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.