diff options
Diffstat (limited to 't')
-rw-r--r-- | t/anon.t | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/t/anon.t b/t/anon.t new file mode 100644 index 0000000..bdfbe42 --- /dev/null +++ b/t/anon.t @@ -0,0 +1,45 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use Test::Fatal; +use lib 't/lib'; + +use Test::Requires 'Package::Anon'; + +use Package::Stash; +use Symbol; + +my $anon = Package::Anon->new; +my $stash = Package::Stash->new($anon); +my $obj = $anon->bless({}); + +{ + my $code = sub { 'FOO' }; + $stash->add_symbol('&foo' => $code); + is($stash->get_symbol('&foo'), $code); + is($obj->foo, 'FOO'); +} + +{ + $anon->{bar} = \123; + + my $code = $stash->get_symbol('&bar'); + is(ref($code), 'CODE'); + is($code->(), 123); + + is($obj->bar, 123); +} + +{ + $anon->{baz} = -1; + + my $code = $stash->get_symbol('&baz'); + is(ref($code), 'CODE'); + like( + exception { $code->() }, + qr/Undefined subroutine \&__ANON__::baz called/ + ); +} + +done_testing; |