Parent Directory | Revision Log | Patch
revision 14 by dpavlin, Mon Aug 18 15:35:18 2008 UTC | revision 15 by dpavlin, Mon Aug 18 17:26:01 2008 UTC | |
---|---|---|
# | Line 5 use strict; | Line 5 use strict; |
5 | ||
6 | use blib; | use blib; |
7 | ||
8 | use Test::More tests => 14; | use Test::More tests => 15; |
9 | use Test::Exception; | use Test::Exception; |
10 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
11 | ||
# | Line 41 ok( tcidbopen( $idb, $path, IDBOWRITER | | Line 41 ok( tcidbopen( $idb, $path, IDBOWRITER | |
41 | ||
42 | ok( tcidbput( $idb, 1, 'foobar' ), 'tcidbput' ); | ok( tcidbput( $idb, 1, 'foobar' ), 'tcidbput' ); |
43 | ||
44 | ok( tcidbout( $idb, 1, ), 'tcidbout' ); | |
45 | ||
46 | diag tcidberrmsg( tcidbecode( $idb ) ); | diag tcidberrmsg( tcidbecode( $idb ) ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |