From: Vincent Pit <vince@profvince.com>
Date: Sat, 28 Mar 2009 01:01:55 +0000 (+0100)
Subject: Test (lack of) stash magic for dynamic method calls
X-Git-Tag: v0.34~4
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=9fc034651e3b744e316d0de98c5f9054ede59752;p=perl%2Fmodules%2FVariable-Magic.git

Test (lack of) stash magic for dynamic method calls
---

diff --git a/t/35-stash.t b/t/35-stash.t
index f52dd32..43155eb 100644
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -9,7 +9,7 @@ use Variable::Magic qw/wizard cast dispell VMG_UVAR VMG_OP_INFO_NAME VMG_OP_INFO
 
 my $run;
 if (VMG_UVAR) {
- plan tests => 29;
+ plan tests => 33;
  $run = 1;
 } else {
  plan skip_all => 'uvar magic is required to test symbol table hooks';
@@ -106,6 +106,17 @@ cast %Hlagh::, $wiz;
  }, 'stash: valid method call';
 }
 
+{
+ local %mg;
+
+ eval q{ my $meth = 'shoot'; Hlagh->$meth() };
+
+ is $@, '', 'stash: valid dynamic method call ran fine';
+ is_deeply \%mg, {
+  store => [ qw/shoot/ ],
+ }, 'stash: valid dynamic method call';
+}
+
 {
  local %mg;
 
@@ -119,7 +130,7 @@ cast %Hlagh::, $wiz;
  is $@, '', 'inherited valid method call ran fine';
  is_deeply \%mg, {
   fetch => [ qw/ISA shoot/ ],
- }, 'stash: direct method call';
+ }, 'stash: inherited valid method call';
 }
 
 {
@@ -134,6 +145,17 @@ cast %Hlagh::, $wiz;
  }, 'stash: invalid method call';
 }
 
+{
+ local %mg;
+
+ eval q{ my $meth = 'unknown_too'; Hlagh->$meth() };
+
+ like $@, qr/^Can't locate object method "unknown_too" via package "Hlagh"/, 'stash: invalid dynamic method call croaked';
+ is_deeply \%mg, {
+  store => [ qw/unknown_too AUTOLOAD/ ],
+ }, 'stash: invalid dynamic method call';
+}
+
 {
  local %mg;