diff options
Diffstat (limited to 'test.pl')
-rwxr-xr-x | test.pl | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -33,9 +33,9 @@ ok !Tanja::match([2], [1]); # Simple single-session test { - my $serv = Tanja::Server->new; - isa_ok $serv, 'Tanja::Server'; - my $ses = $serv->session; + my $node = Tanja::Node->new; + isa_ok $node, 'Tanja::Node'; + my $ses = $node->session; isa_ok $ses, 'Tanja::Session'; my $done = AnyEvent->condvar; my $n = 0; @@ -101,17 +101,17 @@ sub t_double { is $n, 2; } -{ # same server - my $s = Tanja::Server->new; - note 'Same server'; +{ # same node + my $s = Tanja::Node->new; + note 'Same Node'; t_double($s, $s); } -{ # different servers, linked. (With various combinations of the 'sync' flag) +{ # different nodes, linked. (With various combinations of the 'sync' flag) for my $f (0..3) { - note "Linked servers, $f"; - my $sa = Tanja::Server->new; - my $sb = Tanja::Server->new; + note "Linked nodes, $f"; + my $sa = Tanja::Node->new; + my $sb = Tanja::Node->new; t_double($sa, $sb, sub { socketpair my $socka, my $sockb, AF_UNIX, SOCK_STREAM, PF_UNSPEC; my $done = AnyEvent->condvar; |