Commit | Line | Data |
b63a955f |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
4 | use Object::Remote::Connector::Local; |
5 | use Object::Remote; |
6 | |
7 | $ENV{PERL5LIB} = join( |
8 | ':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib t/lib) |
9 | ); |
10 | |
11 | my $connection = Object::Remote::Connector::Local->new->connect; |
12 | |
13 | #$Object::Remote::Connection::DEBUG = 1; |
14 | |
676438a1 |
15 | my $remote = Object::Remote->new( |
b63a955f |
16 | connection => $connection, |
17 | class => 'ORTestClass' |
676438a1 |
18 | ); |
b63a955f |
19 | |
676438a1 |
20 | isnt($$, $remote->pid, 'Different pid on the other side'); |
b63a955f |
21 | |
676438a1 |
22 | is($remote->counter, 0, 'Counter at 0'); |
b63a955f |
23 | |
676438a1 |
24 | is($remote->increment, 1, 'Increment to 1'); |
b63a955f |
25 | |
676438a1 |
26 | is($remote->counter, 1, 'Counter at 1'); |
b63a955f |
27 | |
28 | done_testing; |