r1416@llin: dpavlin | 2007-10-31 13:17:08 +0100

[webpac2] / t / 5-output-sorted.t

diff --git a/t/5-output-sorted.t b/t/5-output-sorted.t
index b43c9be..8b73bf6 100755 (executable)
--- a/t/5-output-sorted.t
+++ b/t/5-output-sorted.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 13;
+use Test::More tests => 16;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use Data::Dump qw/dump/;
@@ -56,4 +56,6 @@ cmp_ok( $out->path, 'eq', $path, 'path' );
 
 ok( $out->finish, 'finish' );
 
-ok( -e "$path/test.txt", 'list' );
+foreach my $l ( qw/source id array foo/ ) {
+       ok( -e "$path/$l.txt", "list $l exists" );
+}