35 |
|
|
36 |
ok( tcjdbopen( $jdb, $path, JDBOWRITER | JDBOCREAT | JDBOTRUNC ), "tcjdbopen $path" ); |
ok( tcjdbopen( $jdb, $path, JDBOWRITER | JDBOCREAT | JDBOTRUNC ), "tcjdbopen $path" ); |
37 |
|
|
38 |
ok( tcjdbclose( $jdb ), 'tcjdbclose' ); |
SKIP: { |
39 |
diag tcjdberrmsg( tcjdbecode( $jdb ) ); |
skip 'close on empty database makes next open segfault', 2; |
40 |
|
|
41 |
ok( tcjdbopen( $jdb, $path, JDBOWRITER | JDBOCREAT ), "tcjdbopen $path again" ); |
ok( tcjdbclose( $jdb ), 'tcjdbclose' ); |
42 |
diag tcjdberrmsg( tcjdbecode( $jdb ) ); |
|
43 |
|
ok( tcjdbopen( $jdb, $path, JDBOWRITER | JDBOCREAT ), "tcjdbopen $path again" ); |
44 |
|
|
45 |
|
} |
46 |
|
|
47 |
ok( tcjdbput( $jdb, 1, [ 'foobar' ] ), 'tcjdbput' ); |
ok( tcjdbput( $jdb, 1, [ 'foobar' ] ), 'tcjdbput' ); |
48 |
diag tcjdberrmsg( tcjdbecode( $jdb ) ); |
diag tcjdberrmsg( tcjdbecode( $jdb ) ); |
68 |
|
|
69 |
is( tcjdbpath( $jdb ), $path, 'tcjdbpath' ); |
is( tcjdbpath( $jdb ), $path, 'tcjdbpath' ); |
70 |
|
|
71 |
is( tcjdbtnum( $jdb ), 13, 'tcjdbtnum' ); |
is( tcjdbrnum( $jdb ), 3, 'tcjdbrnum' ); |
72 |
|
|
73 |
ok( my $file_size = tcjdbfsiz( $jdb ), 'tcjdbfsiz' ); |
ok( my $file_size = tcjdbfsiz( $jdb ), 'tcjdbfsiz' ); |
74 |
|
|