Show
Ignore:
Timestamp:
09/20/08 01:05:54 (4 months ago)
Author:
karpet
Message:

yank old wordlist in favor of token_iterator -- TODO still some ref_cnt issues

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • libswish3/trunk/bindings/perl/t/15-analyzer.t

    r2151 r2161  
    1 use Test::More tests => 5; 
     1use Test::More tests => 3; 
    22 
    33use SWISH::3; 
    …… 
    77#ok( my $analyzer = $s3->analyzer, "get analyzer" ); 
    88 
    9 eval { my $handler = $s3->analyzer->get_token_handler }; 
    10  
    11 ok( $@, "get token handler: $@" ); 
    12  
    139like( 'foo', $s3->analyzer->get_regex, 'get regex' ); 
    14  
    15 ok( !$s3->analyzer->set_token_handler( sub { $_[0]->debug } ), 
    16     "set token handler" ); 
    1710 
    1811ok( $s3->tokenize('foo bar baz'), "tokenize" );