--- t/10-xs.t 2008/08/17 22:17:40 1 +++ t/10-xs.t 2008/08/17 22:24:04 2 @@ -5,7 +5,7 @@ use blib; -use Test::More tests => 3; +use Test::More tests => 4; use Test::Exception; use Data::Dump qw/dump/; @@ -14,5 +14,7 @@ } cmp_ok( $Search::TokyoDystopia::debug, '==', 0, '$debug' ); + cmp_ok( Search::TokyoDystopia::tcidberrmsg(0), 'eq', 'success', 'tcidberrmsg' ); +ok( Search::TokyoDystopia::tcidbnew, 'tcidbnew' ); # FIXME check better