view release on metacpan or  search on metacpan

t/003-node.t  view on Meta::CPAN

#!perl
# 003-node.t: test Data::Hopen::G::Node
use rlib 'lib';
use HopenTest;

use Test::Fatal;

use Data::Hopen::G::Node;

my $e = Data::Hopen::G::Node->new(name=>'foo');
isa_ok($e, 'Data::Hopen::G::Node');
is($e->name, 'foo', 'Name was set by constructor');
$e->name('bar');
is($e->name, 'bar', 'Name was set by accessor');

done_testing();