Sorry, one of the patches had a mistake.
-- Martín Ferrari
diff -Naur libtest-class-perl-0.11-new/debian/control libtest-class-perl-0.11-newdebian/debian/control --- libtest-class-perl-0.11-new/debian/control 2006-04-15 01:30:27.000000000 -0300 +++ libtest-class-perl-0.11-newdebian/debian/control 2006-04-16 06:57:13.819123404 -0300 @@ -2,12 +2,12 @@ Section: perl Priority: optional Maintainer: Jay Bonci <[EMAIL PROTECTED]> -Build-Depends-Indep: debhelper (>> 4.0), perl (>= 5.6.0-16), libtest-builder-tester-perl, libtest-differences-perl, libtest-exception-perl, libio-string-perl, libmodule-build-perl, libdevel-symdump-perl +Build-Depends-Indep: debhelper (>> 4.0), perl (>= 5.6.0-16), perl-modules (>= 5.8.8), libtest-differences-perl, libtest-exception-perl, libio-string-perl, libmodule-build-perl, libdevel-symdump-perl, dpatch Standards-Version: 3.6.2.1 Package: libtest-class-perl Architecture: all -Depends: ${perl:Depends}, libtest-builder-tester-perl, libtest-differences-perl, libtest-exception-perl, libio-string-perl, libdevel-symdump-perl +Depends: ${perl:Depends}, perl-modules (>= 5.8.8), libtest-differences-perl, libtest-exception-perl, libio-string-perl, libdevel-symdump-perl Suggests: libdate-ical-perl Description: easily create perl test classes in an xUnit style Test::Class from CPAN provides a simple way of creating classes diff -Naur libtest-class-perl-0.11-new/debian/patches/00list libtest-class-perl-0.11-newdebian/debian/patches/00list --- libtest-class-perl-0.11-new/debian/patches/00list 1969-12-31 21:00:00.000000000 -0300 +++ libtest-class-perl-0.11-newdebian/debian/patches/00list 2006-04-16 06:47:52.926220393 -0300 @@ -0,0 +1 @@ +testcases_hardcoding diff -Naur libtest-class-perl-0.11-new/debian/patches/testcases_hardcoding.dpatch libtest-class-perl-0.11-newdebian/debian/patches/testcases_hardcoding.dpatch --- libtest-class-perl-0.11-new/debian/patches/testcases_hardcoding.dpatch 1969-12-31 21:00:00.000000000 -0300 +++ libtest-class-perl-0.11-newdebian/debian/patches/testcases_hardcoding.dpatch 2006-04-16 06:49:46.840111343 -0300 @@ -0,0 +1,128 @@ +#! /bin/sh /usr/share/dpatch/dpatch-run +## testcases_hardcoding.patch.dpatch by Martin Ferrari <[EMAIL PROTECTED]> +## +## All lines beginning with `## DP:' are a description of the patch. +## DP: Fix for the two testcases which failed because of a hardcoded +## DP: stdout/stderr checking + [EMAIL PROTECTED]@ +diff -Naur libtest-class-perl-0.11/t/die_before_plan.t libtest-class-perl-0.11-new/t/die_before_plan.t +--- libtest-class-perl-0.11/t/die_before_plan.t 2005-02-19 16:32:33.000000000 -0300 ++++ libtest-class-perl-0.11-new/t/die_before_plan.t 2006-04-16 05:13:58.474443044 -0300 +@@ -3,10 +3,7 @@ + use strict; + use warnings; + use Test; +-use Fcntl; +-use IO::File; +-use Test::Builder; +-use POSIX qw(_exit); ++use Test::Builder::Tester tests => 1; + + package Object::Test; + use base 'Test::Class'; +@@ -23,29 +20,11 @@ + + package main; + +-my $io = IO::File->new_tmpfile or die "couldn't create tmp file ($!)\n"; +-my $Test = Test::Builder->new; +-$Test->output($io); +-$Test->failure_output($io); +-$ENV{TEST_VERBOSE}=0; +-$ENV{HARNESS_ACTIVE}=0; +-Object::Test->runtests; +- +-plan tests => 4; +- +-seek $io, SEEK_SET, 0; +-my $SEP = $^O eq "MSWin32" ? '\\' : '/'; +-while (my $actual = <$io>) { +- chomp($actual); +- my $expected=<DATA>; chomp($expected); +- $expected =~ s!/!$SEP!gs; +- ok($actual, $expected); +-}; +- +-_exit(0); ++#$ENV{TEST_VERBOSE}=0; ++#$ENV{HARNESS_ACTIVE}=0; + +-__DATA__ +-1..1 +-not ok 1 - setup (for test method 'test') died (died before plan set) +-# Failed test (t/die_before_plan.t at line 32) +-ok 2 - test just here to get setup method run ++test_out("not ok 1 - setup (for test method 'test') died (died before plan set)"); ++test_fail(+2); ++test_out("ok 2 - test just here to get setup method run"); ++Object::Test->runtests; ++test_test("die before plan"); +diff -Naur libtest-class-perl-0.11/t/fail2.t libtest-class-perl-0.11-new/t/fail2.t +--- libtest-class-perl-0.11/t/fail2.t 2005-02-19 16:32:33.000000000 -0300 ++++ libtest-class-perl-0.11-new/t/fail2.t 2006-04-16 05:46:28.119145305 -0300 +@@ -2,12 +2,8 @@ + + use strict; + use warnings; +-use Test; +-use Test::Builder; +-use Fcntl; +-use IO::File; +-use POSIX qw(_exit); +- ++use Test::More tests => 2; ++use Test::Builder::Tester; + + package Object; + sub new {return(undef)}; +@@ -25,38 +21,18 @@ + + + package main; ++#$ENV{TEST_VERBOSE}=0; ++#$ENV{HARNESS_ACTIVE}=0; + +-plan tests => 9; +- +-my $io = IO::File->new_tmpfile or die "couldn't create tmp file ($!)\n"; +-my $Test = Test::Builder->new; +-$Test->output($io); +-$Test->failure_output($io); ++test_out("not ok 1 - The object isa Object"); ++test_out("not ok 2 - cannot create Objects"); ++test_fail(-11); ++test_err(qr/#\s+The object isn't defined\n/); ++test_fail(-13); + +-$ENV{TEST_VERBOSE}=0; +-$ENV{HARNESS_ACTIVE}=0; + Object::Test->runtests; + END { +- $|=1; +- seek $io, SEEK_SET, 0; +- my $SEP = $^O eq "MSWin32" ? '\\' : '/'; +- while (my $actual = <$io>) { +- chomp($actual); +- my $expected=<DATA>; chomp($expected); +- $expected =~ s!/!$SEP!gs; +- ok($actual, $expected); +- }; +- +- ok($?, 3); +- _exit(0); # need to stop Test::Builder's $? tweak +-}; +- +-__DATA__ +-1..3 +-not ok 1 - The object isa Object +-# Failed test (t/fail2.t at line 22) +-# The object isn't defined +-not ok 2 - cannot create Objects +-# Failed test (t/fail2.t at line 22) +-not ok 3 - cannot create Objects +-# Failed test (t/fail2.t at line 22) ++ test_test("fail2"); ++ is($?, 2, "exit value okay"); ++ $?=0; ++} diff -Naur libtest-class-perl-0.11-new/debian/rules libtest-class-perl-0.11-newdebian/debian/rules --- libtest-class-perl-0.11-new/debian/rules 2006-04-15 01:30:27.000000000 -0300 +++ libtest-class-perl-0.11-newdebian/debian/rules 2006-04-16 06:59:43.401026949 -0300 @@ -7,15 +7,17 @@ # This is the debhelper compatibility version to use. #export DH_COMPAT=4 +include /usr/share/dpatch/dpatch.make PACKAGE=`pwd | sed -e "s/.*\/\\(.*\\)-.*/\\1/"` SHAREDIR=$(CURDIR)/debian/$(PACKAGE)/usr/share/$(PACKAGE) -build: +build: patch dh_testdir # Add here commands to compile the package. perl Build.PL installdirs=vendor -clean: +clean: clean-patched unpatch +clean-patched: dh_testdir dh_testroot