diff options
| author | Colin Kuskie (via RT) <perlbug-followup@perl.org> | 2012-09-09 17:32:53 -0700 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2012-09-10 08:12:31 +0200 |
| commit | 6944c18b75609b4a2cfdc17a74adaa3d26e7fa88 (patch) | |
| tree | 105ee5f0d95d48e59b5a4f46680235eeb8ea83ab /t/porting | |
| parent | 86f11a3d4085bbaf2b72fce18f55bd5a0cfc46d3 (diff) | |
| download | perl-6944c18b75609b4a2cfdc17a74adaa3d26e7fa88.tar.gz | |
Refactor t/porting/customized to use test.pl instead of making TAP by hand
Diffstat (limited to 't/porting')
| -rw-r--r-- | t/porting/customized.t | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/t/porting/customized.t b/t/porting/customized.t index 76053bcc07..631c1bcfb8 100644 --- a/t/porting/customized.t +++ b/t/porting/customized.t @@ -10,7 +10,8 @@ BEGIN { # XXX that should be fixed chdir '..' unless -d 't'; - @INC = qw(lib Porting); + @INC = qw(lib Porting t); + require 'test.pl'; } use strict; @@ -99,21 +100,16 @@ foreach my $module ( keys %Modules ) { next; } my $should_be = $customised{ $module }->{ $file }; - if ( $id ne $should_be ) { - print "not ok ".++$TestCounter." - SHA for $file does not match stashed SHA\n"; - } - else { - print "ok ".++$TestCounter." - SHA for $file matched\n"; - } + is( $id, $should_be, "SHA for $file matches stashed SHA" ); } } if ( $regen ) { - print "ok ".++$TestCounter." - regenerated data file\n"; + pass( "regenerated data file" ); close $data_fh; } -print "1..".$TestCounter."\n"; +done_testing(); =pod |