Commit | Line | Data |
542d5b5c |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
4 | use Object::Remote::Connector::Local; |
5 | use Object::Remote; |
6 | use Object::Remote::ModuleSender; |
7 | |
8 | $ENV{PERL5LIB} = join( |
9 | ':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib) |
10 | ); |
11 | |
12 | my $connection = Object::Remote::Connector::Local->new->connect; |
13 | |
14 | my $ms = Object::Remote::ModuleSender->new( |
15 | dir_list => [ 't/lib' ] |
16 | ); |
17 | |
18 | my $ml = Object::Remote->new( |
19 | connection => $connection, |
20 | class => 'Object::Remote::ModuleLoader', |
21 | args => { module_sender => $ms }, |
22 | ); |
23 | |
676438a1 |
24 | my $counter = Object::Remote->new( |
542d5b5c |
25 | connection => $connection, |
26 | class => 'ORTestClass' |
676438a1 |
27 | ); |
542d5b5c |
28 | |
676438a1 |
29 | isnt($$, $counter->pid, 'Different pid on the other side'); |
542d5b5c |
30 | |
676438a1 |
31 | is($counter->counter, 0, 'Counter at 0'); |
542d5b5c |
32 | |
676438a1 |
33 | is($counter->increment, 1, 'Increment to 1'); |
542d5b5c |
34 | |
676438a1 |
35 | is($counter->counter, 1, 'Counter at 1'); |
542d5b5c |
36 | |
37 | done_testing; |