diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-08-05 13:03:29 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-08-05 13:03:29 -0500 |
commit | 6b2008e791b83d281fe2a566763ee329810dc55b (patch) | |
tree | 110d146d21b17cfdf705b50052e8f12a51802da9 | |
parent | b9a34965f2685615db7eb61a3ff20cfa60164fc6 (diff) | |
download | package-stash-6b2008e791b83d281fe2a566763ee329810dc55b.tar.gz package-stash-6b2008e791b83d281fe2a566763ee329810dc55b.zip |
test updates
-rwxr-xr-x | t/07-edge-cases.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t index acd92e8..6bed48e 100755 --- a/t/07-edge-cases.t +++ b/t/07-edge-cases.t @@ -63,6 +63,12 @@ is(exception { $Bar->add_symbol('$foo', \$foo) }, undef, "can add PVIV values"); is(exception { $Bar->add_symbol('$bar', \$bar) }, undef, "can add PVNV values"); +is(exception { bless \$bar, 'Foo'; $Bar->add_symbol('$bar2', $bar) }, undef, + "can add PVMG values"); +is(exception { $Bar->add_symbol('$baz', qr/foo/) }, undef, + "can add regex values"); +is(exception { undef $bar; $Bar->add_symbol('$quux', \$bar) }, undef, + "can add undef values that aren't NULL"); use_ok('CompileTime'); |