diff options
Diffstat (limited to 't/1.make_test_manifest.t')
-rw-r--r-- | t/1.make_test_manifest.t | 31 |
1 files changed, 6 insertions, 25 deletions
diff --git a/t/1.make_test_manifest.t b/t/1.make_test_manifest.t index e35ef2e..250dcda 100644 --- a/t/1.make_test_manifest.t +++ b/t/1.make_test_manifest.t @@ -1,33 +1,14 @@ # $Id$ -BEGIN { $| = 1; print "1..3\n"; } -END {print "not ok\n" unless $loaded;} -# Test it loads +use Test::More tests => 2; + use Test::Manifest qw(make_test_manifest); -$loaded = 1; -print "ok\n"; my $test_manifest = 't/test_manifest'; -eval { - unlink $test_manifest; - die "$test_manifest still exists!" if -e $test_manifest; - - make_test_manifest(); - - die "$test_manifest doesn't exist!" unless -e $test_manifest; - }; -print STDERR $@ if $@; -print $@ ? 'not ' : '', "ok\n"; +unlink $test_manifest; +ok( ! -e $test_manifest, 'test_manifest does not exit' ); -eval { - require Text::Diff; - - my $diff = Text::Diff::diff( 'test_manifest', $test_manifest ); - - die "Files are different! [$diff]" if $diff; - }; -print STDERR $@ if $@; -print $@ ? 'not ' : '', "ok\n"; +make_test_manifest(); -unlink $test_manifest; +ok( -e $test_manifest, 'test_manifest exists' ); |