From: Jesse Luehrs Date: Mon, 28 Nov 2011 22:41:38 +0000 (-0600) Subject: initial tests for anonymous packages X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8642531f61a9909d1e43cbe77887927c7cc5e517;p=gitmo%2FPackage-Stash.git initial tests for anonymous packages --- 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;