summaryrefslogtreecommitdiff
path: root/t/1.make_test_manifest.t
diff options
context:
space:
mode:
Diffstat (limited to 't/1.make_test_manifest.t')
-rw-r--r--t/1.make_test_manifest.t31
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' );