Commit | Line | Data |
---|---|---|
4829a0e1 | 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 TestClass; | |
9 | use Object::Remote; | |
10 | ||
11 | is exception { | |
85152176 | 12 | my $bridge = TestBridge->new::on('-'); |
4829a0e1 | 13 | is $bridge->result, 23; |
14 | }, undef, 'no error during bridge access'; | |
15 | ||
16 | done_testing; |