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

 minor tweaks

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@938 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Output/Sorted.pm b/lib/WebPAC/Output/Sorted.pm
index 69cbf61..60b4b98 100644 (file)
--- a/lib/WebPAC/Output/Sorted.pm
+++ b/lib/WebPAC/Output/Sorted.pm
@@ -61,6 +61,7 @@ sub init {
                $log->info("created ", $self->path);
        }
 
+       return 1;
 }
 
 

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" );
+}