X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdumpvar.t;h=843ba1c056357cc7c68369f90b88a7c262bc7419;hb=9137345a080bfc646c2f9440cdb7bd90b8b37428;hp=4101940886ff7df95931a82330d85721d249896d;hpb=9bcb75adede2a39cb8240247959be87308b46bee;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/dumpvar.t b/lib/dumpvar.t
index 4101940..843ba1c 100644
--- a/lib/dumpvar.t
+++ b/lib/dumpvar.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require Config;
+    if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
+	print "1..0 # Skip -- Perl configured without List::Util module\n";
+	exit 0;
+    }
 }
 
 use strict;
@@ -26,11 +31,12 @@ sub unctrl    { print dumpvar::unctrl($_[0]), "\n" }
 sub uniescape { print dumpvar::uniescape($_[0]), "\n" }
 sub stringify { print dumpvar::stringify($_[0]), "\n" }
 sub dumpvalue { 
+	# Call main::dumpValue exactly as the perl5db.pl calls it.
         local $\ = '';
         local $, = '';
         local $" = ' ';
         my @params = @_;
-        &main::dumpValue(\@params, -1);
+        &main::dumpValue(\@params,-1);
 }
 
 package Foo;
@@ -173,11 +179,22 @@ EXPECT
 1  2
 2  3
 ########
+dumpValue([1..3]);
+EXPECT
+0  1
+1  2
+2  3
+########
 dumpValue({1..4},1);
 EXPECT
 1 => 2
 3 => 4
 ########
+dumpValue({1..4});
+EXPECT
+1 => 2
+3 => 4
+########
 dumpValue($foo,1);
 EXPECT
 0  1
@@ -186,6 +203,14 @@ EXPECT
 3  4
 4  5
 ########
+dumpValue($foo);
+EXPECT
+0  1
+1  2
+2  3
+3  4
+4  5
+########
 dumpValue($bar,1);
 EXPECT
 0  1
@@ -194,6 +219,14 @@ EXPECT
 3  4
 4  5
 ########
+dumpValue($bar);
+EXPECT
+0  1
+1  2
+2  3
+3  4
+4  5
+########
 dumpvalue("a");
 EXPECT
 0  'a'