use Config;
require "test.pl";
-plan( tests => 47 );
+plan( tests => 50 );
eval { use v5.5.640; };
is( $@, '', "use v5.5.640; $@");
# Chapter 15, pp403
# See if sane addr and gethostbyaddr() work
-eval { require Socket; gethostbyaddr(v127.0.0.1, Socket::AF_INET) };
+eval { require Socket; gethostbyaddr(v127.0.0.1, &Socket::AF_INET) };
if ($@) {
# No - so do not test insane fails.
$@ =~ s/\n/\n# /g;
skip("No Socket::AF_INET # $@") if $@;
my $ip = v2004.148.0.1;
my $host;
- eval { $host = gethostbyaddr($ip,Socket::AF_INET) };
+ eval { $host = gethostbyaddr($ip,&Socket::AF_INET) };
like($@, qr/Wide character/, "Non-bytes leak to gethostbyaddr");
}
# Tests for string/numeric value of $] itself
my ($revision,$version,$subversion) = split '\.', sprintf("%vd",$^V);
+print "# revision = '$revision'\n";
+print "# version = '$version'\n";
+print "# subversion = '$subversion'\n";
+
my $v = sprintf("%d.%.3d%.3d",$revision,$version,$subversion);
-ok( $v eq "$]", qq{"\$^V eq "\$]"});
+print "# v = '$v'\n";
+print "# ] = '$]'\n";
+
+$v =~ s/000$// if $subversion == 0;
+
+print "# v = '$v'\n";
+
+ok( $v eq "$]", qq{\$^V eq "\$]"});
$v = $revision + $version/1000 + $subversion/1000000;
}
}
}
+
+# Tests for magic v-strings
+
+$v = 1.2.3;
+is( ref(\$v), 'VSTRING', 'v-string objects' );
+
+$v = v1.2_3;
+is( ref(\$v), 'VSTRING', 'v-string objects with v' );
+is( sprintf("%vd", $v), '1.23', 'v-string ignores underscores' );