Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

eval around compile-time lookup failures

  • Loading branch information...
commit cecf9d0ed9d723d826de34ddd7a83290db2db7f7 1 parent 86459a9
@moritz moritz authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 S11-modules/import-tag.t
View
6 S11-modules/import-tag.t
@@ -8,7 +8,7 @@ plan 12;
{
use t::spec::packages::S11-modules::Foo :others;
- dies_ok { foo() }, 'foo() not imported - not tagged :others';
+ dies_ok { eval 'foo()' }, 'foo() not imported - not tagged :others';
ok( &bar, 'Foo::bar is defined (explicitly :DEFAULT and :others)' );
is( bar(), 'Foo::bar', 'Foo::bar is the sub we expect' );
@@ -16,12 +16,12 @@ plan 12;
ok( &baz, 'Foo::baz is defined (:MANDATORY)' );
is( baz(), 'Foo::baz', 'Foo::baz is the sub we expect' );
- dies_ok { bop() }, 'bop() not imported';
+ dies_ok { eval 'bop()' }, 'bop() not imported';
ok( &qux, 'Foo::qux is defined (explicitly :others)' );
is( qux(), 'Foo::qux', 'Foo::qux is the sub we expect' );
- dies_ok { waz() }, 'waz() not imported';
+ dies_ok { eval 'waz()' }, 'waz() not imported';
ok( &gaz, 'Foo::gaz multi is defined (implicitly :others)' );
is( gaz(), 'Foo::gaz1', 'Foo::gaz is the sub we expect' );
Please sign in to comment.
Something went wrong with that request. Please try again.