Commit | Line | Data |
---|---|---|
852c2b28 | 1 | use strictures 1; |
2 | use Test::More; | |
3 | use Test::Fatal; | |
4 | use FindBin; | |
5 | ||
6 | use lib "$FindBin::Bin/lib"; | |
7 | ||
abef6e5b | 8 | $ENV{OBJECT_REMOTE_TEST_LOGGER} = 1; |
f129bfaf | 9 | |
852c2b28 | 10 | use Object::Remote; |
11 | ||
12 | is exception { | |
97c80c76 | 13 | my $bridge = ORTestBridge->new::on('-'); #'localhost'); |
852c2b28 | 14 | is $bridge->call('counter'), 0; |
15 | $bridge->call('increment'); | |
16 | is $bridge->call('counter'), 1; | |
17 | }, undef, 'no error during bridge access'; | |
18 | ||
19 | done_testing; |