diff options
| author | Toby Inkster <mail@tobyinkster.co.uk> | 2013-07-25 09:42:08 +0100 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-30 15:44:46 -0400 |
| commit | ca2be2088b1fbc33d7ed7ba84c224a44add38e89 (patch) | |
| tree | f19790b17a5bc65c2001e19e987a4978b8e6625a /t | |
| parent | 38482e7653fbac3f21de0097b2ded9d1fa0ff64e (diff) | |
| download | eval-closure-ca2be2088b1fbc33d7ed7ba84c224a44add38e89.tar.gz eval-closure-ca2be2088b1fbc33d7ed7ba84c224a44add38e89.zip | |
use Devel::LexAlias when it is available
Diffstat (limited to 't')
| -rw-r--r-- | t/close-over.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/close-over.t b/t/close-over.t index 254ec40..6aa0f25 100644 --- a/t/close-over.t +++ b/t/close-over.t @@ -9,7 +9,8 @@ use Eval::Closure; use Test::Requires 'PadWalker'; -{ +SKIP: { + skip "Devel::LexAlias not available", 1 unless Eval::Closure::HAS_DEVEL_LEXALIAS; my $foo = []; my $env = { '$foo' => \$foo }; @@ -21,7 +22,8 @@ use Test::Requires 'PadWalker'; "closed over the right things"); } -{ +SKIP: { + skip "Devel::LexAlias not available", 1 unless Eval::Closure::HAS_DEVEL_LEXALIAS; my $foo = {}; my $bar = []; my $env = { '$foo' => \$bar, '$bar' => \$foo }; |