--- t/10-xs.t	2008/08/17 23:53:11	10
+++ t/10-xs.t	2008/08/17 23:57:02	11
@@ -34,3 +34,4 @@
 my $path = '/tmp/casket';
 ok( tcidbopen( $idb, $path, IDBOWRITER || IDBOCREAT ), "tcidbopen $path" );
 
+ok( tcidbclose( $idb ), 'tcidbclose' );