diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-08-19 06:18:00 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-08-19 06:18:10 -0500 |
| commit | 6615f365c3cea887645a1cdc186b7a7f7e9fe93e (patch) | |
| tree | 3897a2c520e0fa12d1357b9f6d7d6d55a5953851 /t/defaults.t | |
| parent | d57ed48a8e7391e268d63dd2b108d3f80ff018a9 (diff) | |
| download | fun-6615f365c3cea887645a1cdc186b7a7f7e9fe93e.tar.gz fun-6615f365c3cea887645a1cdc186b7a7f7e9fe93e.zip | |
more tests
Diffstat (limited to 't/defaults.t')
| -rw-r--r-- | t/defaults.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/defaults.t b/t/defaults.t index 0780f50..7f710b6 100644 --- a/t/defaults.t +++ b/t/defaults.t @@ -32,4 +32,17 @@ is(bar(7), "ran sub, got 19"); like($warning, qr/Use of uninitialized value \$baz in addition \(\+\)/); } +fun baz ($a, $b = our $FOO) { + return "$a $b"; +} + +{ + no warnings 'misc'; # 'not imported' warning because we use $FOO later + eval '$FOO'; + like($@, qr/Global symbol "\$FOO" requires explicit package name/, "doesn't leak scope"); +} + +our $FOO = "abc"; +is(baz("123"), "123 abc"); + done_testing; |