diff options
author | gregor herrmann <gregoa@debian.org> | 2021-09-16 21:33:03 +0200 |
---|---|---|
committer | gregor herrmann <gregoa@debian.org> | 2021-09-16 21:33:03 +0200 |
commit | 0bd4991abcc5911b1f33b3e31f92fb3fb1ed9a7f (patch) | |
tree | 4c50de8e0fcaadda80311602cd8417283ff7418c /t/20server.t | |
parent | a0ffee3b830a0e147851f4462e599fe8eb7a63ff (diff) |
New upstream version 0.26
Diffstat (limited to 't/20server.t')
-rw-r--r-- | t/20server.t | 66 |
1 files changed, 33 insertions, 33 deletions
diff --git a/t/20server.t b/t/20server.t index 00d414c..5898ec5 100644 --- a/t/20server.t +++ b/t/20server.t @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; +use v5.14; use warnings; use Test::More; @@ -29,6 +29,38 @@ my $obj = $registry->construct( is_oneref( $obj, '$obj has refcount 1 initially' ); +package TestServer +{ + use base qw( Tangence::Server ); + + sub new + { + return bless { written => "" }, shift; + } + + sub tangence_write + { + my $self = shift; + $self->{written} .= $_[0]; + } + + sub send_message + { + my $self = shift; + my ( $message ) = @_; + $self->tangence_readfrom( $message ); + length($message) == 0 or die "Server failed to read the whole message"; + } + + sub recv_message + { + my $self = shift; + my $message = $self->{written}; + $self->{written} = ""; + return $message; + } +} + my $server = TestServer->new(); $server->registry( $registry ); @@ -165,35 +197,3 @@ is_oneref( $obj, '$obj has refcount 1 before shutdown' ); is_oneref( $registry, '$registry has refcount 1 before shutdown' ); done_testing; - -package TestServer; - -use strict; -use base qw( Tangence::Server ); - -sub new -{ - return bless { written => "" }, shift; -} - -sub tangence_write -{ - my $self = shift; - $self->{written} .= $_[0]; -} - -sub send_message -{ - my $self = shift; - my ( $message ) = @_; - $self->tangence_readfrom( $message ); - length($message) == 0 or die "Server failed to read the whole message"; -} - -sub recv_message -{ - my $self = shift; - my $message = $self->{written}; - $self->{written} = ""; - return $message; -} |