/[webpac2]/trunk/t/5-output-sorted.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/5-output-sorted.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 937 by dpavlin, Tue Oct 30 22:46:51 2007 UTC revision 938 by dpavlin, Wed Oct 31 12:17:11 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 13;  use Test::More tests => 16;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 56  cmp_ok( $out->path, 'eq', $path, 'path' Line 56  cmp_ok( $out->path, 'eq', $path, 'path'
56    
57  ok( $out->finish, 'finish' );  ok( $out->finish, 'finish' );
58    
59  ok( -e "$path/test.txt", 'list' );  foreach my $l ( qw/source id array foo/ ) {
60            ok( -e "$path/$l.txt", "list $l exists" );
61    }
Legend:
Removed from v.937  
changed lines
  Added in v.938
  ViewVC Help
Powered by ViewVC 1.1.26