From: Vincent Pit <vince@profvince.com>
Date: Mon, 23 Mar 2009 14:24:38 +0000 (+0100)
Subject: More stash tests for functions/methods
X-Git-Tag: v0.33~5
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=9998c368f87b94cfd7218aeb8f265947f6e6d8e1;p=perl%2Fmodules%2FVariable-Magic.git

More stash tests for functions/methods
---

diff --git a/t/35-stash.t b/t/35-stash.t
index a1b6a7d..dc66fa6 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 => 13;
+ plan tests => 23;
  $run = 1;
 } else {
  plan skip_all => 'uvar magic is required to test symbol table hooks';
@@ -56,35 +56,110 @@ cast %Hlagh::, $wiz;
  }, 'stash: variables';
 }
 
+{
+ local %mg;
+
+ eval q[
+  die "ok\n";
+  package Hlagh;
+  sub eat;
+  sub shoot;
+  sub leave { "bye" };
+  sub shoot { "bang" };
+ ];
+
+ is $@, "ok\n", 'stash: function definitions compiled fine';
+ is_deeply \%mg, {
+  store => [ qw/eat shoot leave shoot/ ],
+ }, 'stash: function definitions';
+}
+
 {
  local %mg;
 
  eval q{
   die "ok\n";
   package Hlagh;
-  foo();
-  bar();
-  foo();
+  eat();
+  shoot();
+  leave();
+  roam();
+  yawn();
+  roam();
  };
 
  is $@, "ok\n", 'stash: function calls compiled fine';
  is_deeply \%mg, {
-  fetch => [ qw/foo bar foo/ ],
-  store => [ qw/foo bar foo/ ],
+  fetch => [ qw/eat shoot leave roam yawn roam/ ],
+  store => [ qw/eat shoot leave roam yawn roam/ ],
  }, 'stash: function calls';
 }
 
+{
+ local %mg;
+
+ eval q{ Hlagh->shoot() };
+
+ is $@, '', 'stash: valid method call ran fine';
+ is_deeply \%mg, {
+  fetch => [ qw/shoot/ ],
+ }, 'stash: valid method call';
+}
+
+{
+ local %mg;
+
+ eval q[
+  package Hlagher;
+  our @ISA;
+  BEGIN { @ISA = 'Hlagh' }
+  Hlagher->shoot()
+ ];
+
+ is $@, '', 'inherited valid method call ran fine';
+ is_deeply \%mg, {
+  fetch => [ qw/ISA shoot/ ],
+ }, 'stash: direct method call';
+}
+
+{
+ local %mg;
+
+ eval q{ Hlagh->unknown() };
+
+ like $@, qr/^Can't locate object method "unknown" via package "Hlagh"/, 'stash: invalid method call croaked';
+ is_deeply \%mg, {
+  fetch => [ qw/unknown/ ],
+  store => [ qw/unknown AUTOLOAD/ ],
+ }, 'stash: invalid method call';
+}
+
+{
+ local %mg;
+
+ eval q{ Hlagher->also_unknown() };
+
+ like $@, qr/^Can't locate object method "also_unknown" via package "Hlagher"/, 'stash: invalid inherited method call croaked';
+ is_deeply \%mg, {
+  fetch => [ qw/also_unknown AUTOLOAD/ ],
+ }, 'stash: invalid method call';
+}
+
 {
  local %mg;
 
  eval q{
   package Hlagh;
-  undef &foo;
+  undef &nevermentioned;
+  undef &eat;
+  undef &shoot;
  };
 
  is $@, '', 'stash: delete executed fine';
  is_deeply \%mg, {
-  store => [ qw/foo foo foo/ ],
+  store => [
+   qw/nevermentioned nevermentioned eat eat shoot shoot nevermentioned/
+  ],
  }, 'stash: delete';
 }