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 | ||
8 | use Object::Remote; | |
9 | ||
10 | is exception { | |
97c80c76 | 11 | my $bridge = ORTestBridge->new::on('-'); #'localhost'); |
852c2b28 | 12 | is $bridge->call('counter'), 0; |
13 | $bridge->call('increment'); | |
14 | is $bridge->call('counter'), 1; | |
15 | }, undef, 'no error during bridge access'; | |
16 | ||
17 | done_testing; |