summaryrefslogtreecommitdiff
path: root/test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'test.pl')
-rwxr-xr-xtest.pl20
1 files changed, 10 insertions, 10 deletions
diff --git a/test.pl b/test.pl
index 25470b2..b0f6272 100755
--- a/test.pl
+++ b/test.pl
@@ -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;