Parent Directory | Revision Log | Patch
revision 920 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 | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |