1#!perl -w 2 3BEGIN { 4 if ($] < 5.010) { 5 print "1..0 # Skipped: perl-5.10 required\n"; 6 exit; 7 } 8} 9 10use strict; 11use Test; 12plan tests => 9; 13 14use Data::Dump 'dump'; 15 16ok(dump(v10), q{v10}); 17ok(dump(v5.10.1), q{v5.10.1}); 18ok(dump(5.10.1), q{v5.10.1}); 19ok(dump(500.400.300.200.100), q{v500.400.300.200.100}); 20 21ok(dump(\5.10.1), q{\v5.10.1}); 22ok(dump(\v10), q{\v10}); 23ok(dump(\\v10), q{\\\\v10}); 24ok(dump([v10, v20, v30]), q{[v10, v20, v30]}); 25ok(dump({ version => v6.0.0 }), q({ version => v6.0.0 })); 26