Parent Directory | Revision Log | Patch
revision 26 by dpavlin, Mon Aug 18 19:04:10 2008 UTC | revision 27 by dpavlin, Mon Aug 18 19:07:04 2008 UTC | |
---|---|---|
# | Line 5 use strict; | Line 5 use strict; |
5 | ||
6 | use blib; | use blib; |
7 | ||
8 | use Test::More tests => 32; | use Test::More tests => 33; |
9 | use Test::Exception; | use Test::Exception; |
10 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
11 | ||
# | Line 77 ok( tcidbcopy( $idb, $copy_path ), "tcid | Line 77 ok( tcidbcopy( $idb, $copy_path ), "tcid |
77 | ok( -e $copy_path, 'copy exists' ); | ok( -e $copy_path, 'copy exists' ); |
78 | ||
79 | is( tcidbpath( $idb ), $path, 'tcidbpath' ); | is( tcidbpath( $idb ), $path, 'tcidbpath' ); |
80 | ||
81 | is( tcidbrnum( $idb ), 0, 'tcidbrnum' ); | |
82 | ||
83 | diag tcidberrmsg( tcidbecode( $idb ) ); | diag tcidberrmsg( tcidbecode( $idb ) ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |