Upgrade to Devel::PPPort 3.11_05

[p5sagit/p5-mst-13.2.git] / ext / Devel / PPPort / t / call.t

diff --git a/ext/Devel/PPPort/t/call.t b/ext/Devel/PPPort/t/call.t
index aee8819..6a5da70 100644 (file)
--- a/ext/Devel/PPPort/t/call.t
+++ b/ext/Devel/PPPort/t/call.t
@@ -30,9 +30,9 @@ BEGIN {
     require 'testutil.pl' if $@;
   }
 
-  if (44) {
+  if (46) {
     load();
-    plan(tests => 44);
+    plan(tests => 46);
   }
 }
 
@@ -100,3 +100,7 @@ for $test (
 ok(&Devel::PPPort::eval_pv('f()', 0), 'y');
 ok(&Devel::PPPort::eval_pv('f(qw(a b c))', 0), 'y');
 
+ok(!defined $::{'less::'}, 1, "Hadn't loaded less yet");
+Devel::PPPort::load_module(0, "less", undef);
+ok(defined $::{'less::'}, 1, "Have now loaded less");
+