root/libswish3/trunk/bindings/perl/t/13-chained.t

Revision 2172, 154 bytes (checked in by karpet, 2 months ago)

still have some mem leaks somewhere, but this is at least a better approach

Line 
1 use Test::More tests => 3;
2
3 use_ok('SWISH::3');
4 ok(my $a = SWISH::3->new->analyzer,   'new analyzer');
5 is($a->refcount, 1,                   'refcount');
Note: See TracBrowser for help on using the browser.