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

Revision 2161, 251 bytes (checked in by karpet, 2 months ago)

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

Line 
1 use Test::More tests => 3;
2
3 use SWISH::3;
4
5 ok( my $s3 = SWISH::3->new(), "new s3 object" );
6
7 #ok( my $analyzer = $s3->analyzer, "get analyzer" );
8
9 like( 'foo', $s3->analyzer->get_regex, 'get regex' );
10
11 ok( $s3->tokenize('foo bar baz'), "tokenize" );
12
Note: See TracBrowser for help on using the browser.