/[Search-TokyoDystopia]/t/10-xs.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/10-xs.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5 by dpavlin, Sun Aug 17 22:35:45 2008 UTC revision 6 by dpavlin, Sun Aug 17 22:37:16 2008 UTC
# Line 15  use_ok( 'Search::TokyoDystopia' ); Line 15  use_ok( 'Search::TokyoDystopia' );
15    
16  cmp_ok( $Search::TokyoDystopia::debug, '==', 0, '$debug' );  cmp_ok( $Search::TokyoDystopia::debug, '==', 0, '$debug' );
17    
18  cmp_ok( Search::TokyoDystopia::tcidberrmsg(0), 'eq', 'success', 'tcidberrmsg' );  cmp_ok( Search::TokyoDystopia::errmsg(0), 'eq', 'success', 'errmsg' );
19    
20  ok( my $db = Search::TokyoDystopia::tcidbnew, 'tcidbnew' );     # FIXME check better  ok( my $db = Search::TokyoDystopia::new, 'new' );       # FIXME check better
21    
22  ok( ! Search::TokyoDystopia::tcidbdel( $db ), 'tcidbdel' );  ok( ! Search::TokyoDystopia::del( $db ), 'del' );
23    
24  ok( $db = Search::TokyoDystopia::tcidbnew, 'tcidbnew again' );  ok( $db = Search::TokyoDystopia::new, 'new again' );
25    
26  is( Search::TokyoDystopia::tcidbecode( $db ), 0, 'tcidbecode' );  is( Search::TokyoDystopia::ecode( $db ), 0, 'ecode' );
27    
28  is( Search::TokyoDystopia::tcidbtune( $db, 0, 0, 0, 0  ), 1, 'tcidbtune' );  is( Search::TokyoDystopia::tune( $db, 0, 0, 0, 0  ), 1, 'tune' );

Legend:
Removed from v.5  
changed lines
  Added in v.6

  ViewVC Help
Powered by ViewVC 1.1.26