#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use blib;
use jsFind;
BEGIN { use_ok('jsFind'); }
my $t = new jsFind B => 4;
isa_ok($t,'jsFind');
isa_ok($t->root,'jsFind::Node');
cmp_ok($t->B, '==', 4, "B is 4");
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use blib;
use jsFind;
BEGIN { use_ok('jsFind'); }
my $t = new jsFind B => 4;
isa_ok($t,'jsFind');
isa_ok($t->root,'jsFind::Node');
cmp_ok($t->B, '==', 4, "B is 4");