1#!./perl
2
3use strict;
4use warnings;
5
6$|=1;
7use Scalar::Util ();
8use Test::More  (grep { /isvstring/ } @Scalar::Util::EXPORT_FAIL)
9    ? (skip_all => 'isvstring is not supported on this perl version')
10    : (tests => 3);
11
12use Scalar::Util qw(isvstring);
13
14my $vs = ord("A") == 193 ? 241.75.240 : 49.46.48;
15
16ok( $vs == "1.0", 'dotted num');
17ok( isvstring($vs), 'isvstring');
18
19my $sv = "1.0";
20ok( !isvstring($sv), 'not isvstring');
21
22
23
24