trunk/t/5_Node.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 3;
use Test::Exception;
use Data::Dumper;

BEGIN { use_ok('Search::Estraier') };

ok(my $node = new Search::Estraier::Node, 'new');
isa_ok($node, 'Search::Estraier::Node');

1	#!/usr/bin/perl -w
2
3	use strict;
4	use blib;
5
6	use Test::More tests => 3;
7	use Test::Exception;
8	use Data::Dumper;
9
10	BEGIN { use_ok('Search::Estraier') };
11
12	ok(my $node = new Search::Estraier::Node, 'new');
13	isa_ok($node, 'Search::Estraier::Node');
14