X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fver.t;h=63cb7164dd4816c0640667ab38fcbc2d48c2d07b;hb=20822f61cc01ab34be1e17db483aceb9d5ec8fb7;hp=b08849f53a4918d1d47b41e71d0322c46c44c300;hpb=dd629d5bb3bd7014585b7aad3c6715a5011673bc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/ver.t b/t/op/ver.t
index b08849f..63cb716 100755
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, "../lib";
+    @INC = '../lib';
 }
 
-print "1..22\n";
+print "1..23\n";
 
 my $test = 1;
 
@@ -72,6 +72,11 @@ print "not " unless sprintf("%*vb", "##", v1.22.333.4444)
     eq '1##10110##101001101##1000101011100';
 print "ok $test\n";  ++$test;
 
+print "not " unless sprintf("%vd", join("", map { chr }
+					    unpack "U*", v2001.2002.2003))
+		    eq '2001.2002.2003';
+print "ok $test\n";  ++$test;
+
 {
     use bytes;
     print "not " unless sprintf("%vd", "Perl") eq '80.101.114.108';