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 9a81619..6a5da70 100644 (file)
--- a/ext/Devel/PPPort/t/call.t
+++ b/ext/Devel/PPPort/t/call.t
@@ -4,6 +4,10 @@
 #
 #            Edit mktests.PL and/or parts/inc/call instead.
 #
+#  This file was automatically generated from the definition files in the
+#  parts/inc/ subdirectory by mktests.PL. To learn more about how all this
+#  works, please read the F<HACKERS> file that came with this distribution.
+#
 ################################################################################
 
 BEGIN {
@@ -26,9 +30,9 @@ BEGIN {
     require 'testutil.pl' if $@;
   }
 
-  if (44) {
+  if (46) {
     load();
-    plan(tests => 44);
+    plan(tests => 46);
   }
 }
 
@@ -96,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");
+