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