trunk/t/02btree.t

#!/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");

1	dpavlin	1	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			use Test::More tests => 4;
7			use blib;
8			use jsFind;
9
10			BEGIN { use_ok('jsFind'); }
11
12			my $t = new jsFind B => 4;
13
14			isa_ok($t,'jsFind');
15			isa_ok($t->root,'jsFind::Node');
16
17			cmp_ok($t->B, '==', 4, "B is 4");
18