root/libswish3/trunk/bindings/perl/t/15-analyzer.t
| Revision 2161, 251 bytes (checked in by karpet, 2 months ago) |
|---|
| 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.
