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