Lines Matching refs:is
17 is( $@, '', "use v5.5.640; $@");
23 is('ok ',v111.107.32,'ASCII printing characters');
27 is('ok',$h{v111.107},'ASCII hash keys');
30 is('ok ',v150.146.64,'EBCDIC printing characters');
34 is('ok',$h{v150.146},'EBCDIC hash keys');
40 is('ok',$x,'poetry optimization');
49 is($x, 'MNO','poetry optimization with dots');
51 is(v1.20.300.4000, "\x{1}\x{14}\x{12c}\x{fa0}",'compare embedded \x{} string');
56 is( $@, '', "use 5.5.640; $@");
67 is('ok',$h{ok },'hash keys w/o v');
75 is($x, 'MNO','poetry optimization with dots w/o v');
77 is(1.20.300.4000, "\x{1}\x{14}\x{12c}\x{fa0}",'compare embedded \x{} string w/o v');
81 is(sprintf("%vd", "Perl"), '80.101.114.108', 'ASCII sprintf("%vd", "Perl")');
84 is(sprintf("%vd", "Perl"), '215.133.153.147', 'EBCDIC sprintf("%vd", "Perl")');
87 is(sprintf("%vd", v1.22.333.4444), '1.22.333.4444', 'sprintf("%vd", v1.22.333.4444)');
90 is(sprintf("%vx", "Perl"), '50.65.72.6c', 'ASCII sprintf("%vx", "Perl")');
93 is(sprintf("%vx", "Perl"), 'd7.85.99.93', 'EBCDIC sprintf("%vx", "Perl")');
96 is(sprintf("%vX", 1.22.333.4444), '1.16.14D.115C','ASCII sprintf("%vX", 1.22.333.4444)');
99 is(sprintf("%#*vo", ":", "Perl"), '0120:0145:0162:0154', 'ASCII sprintf("%vo", "Perl")');
102 is(sprintf("%#*vo", ":", "Perl"), '0327:0205:0231:0223', 'EBCDIC sprintf("%vo", "Perl")');
105 is(sprintf("%*vb", "##", v1.22.333.4444),
108 is(sprintf("%vd", join("", map { chr }
116 is(sprintf("%vd", "Perl"), '80.101.114.108', 'ASCII sprintf("%vd", "Perl") w/use bytes');
119 is(sprintf("%vd", "Perl"), '215.133.153.147', 'EBCDIC sprintf("%vd", "Perl") w/use bytes');
123 …is(sprintf("%vd", 1.22.333.4444), '1.22.197.141.225.133.156', 'ASCII sprintf("%vd", v1.22.333.4444…
126 …is(sprintf("%vd", 1.22.333.4444), '1.22.142.84.187.81.112', 'EBCDIC sprintf("%vd", v1.22.333.4444 …
130 is(sprintf("%vx", "Perl"), '50.65.72.6c', 'ASCII sprintf("%vx", "Perl")');
133 is(sprintf("%vx", "Perl"), 'd7.85.99.93', 'EBCDIC sprintf("%vx", "Perl")');
137 is(sprintf("%vX", v1.22.333.4444), '1.16.C5.8D.E1.85.9C', 'ASCII sprintf("%vX", v1.22.333.4444)');
140 is(sprintf("%vX", v1.22.333.4444), '1.16.8E.54.BB.51.70', 'EBCDIC sprintf("%vX", v1.22.333.4444)');
144 is(sprintf("%#*vo", ":", "Perl"), '0120:0145:0162:0154', 'ASCII sprintf("%#*vo", ":", "Perl")');
147 is(sprintf("%#*vo", ":", "Perl"), '0327:0205:0231:0223', 'EBCDIC sprintf("%#*vo", ":", "Perl")');
151 is(sprintf("%*vb", "##", v1.22.333.4444),
156 is(sprintf("%*vb", "##", v1.22.333.4444),
165 is( "\x{41}", +v65, 'bug id 20000323.056');
166 is( "\x41", +v65, 'bug id 20000323.056');
167 is( "\x{c8}", +v200, 'bug id 20000323.056');
168 is( "\xc8", +v200, 'bug id 20000323.056');
169 is( "\x{221b}", +v8731, 'bug id 20000323.056');
176 is($vs,"\x{1}\x{14}\x{12c}\x{fa0}","v-string ne \\x{}");
177 is($vs,chr(1).chr(20).chr(300).chr(4000),"v-string ne chr()");
178 is('foo',((chr(193) eq 'A') ? v134.150.150 : v102.111.111),"v-string ne ''");
200 is(v200, chr(200), "v200 eq chr(200)" );
201 is(v200, +v200, "v200 eq +v200" );
202 is(v200, eval( "v200"), 'v200 eq "v200"' );
203 is(v200, eval("+v200"), 'v200 eq eval("+v200")' );
233 …is( sprintf("%vd", eval 'v2147483647.2147483648'), '2147483647.2147483648', 'v-string > IV_MAX[…
234 …is( sprintf("%vd", eval 'v3141592653'), '3141592653', 'IV_MAX < v-string …
235 …is( sprintf("%vd", eval 'v4294967295'), '4294967295', 'v-string == UV_MAX…
242 …is( sprintf("%vd", eval 'v9223372036854775807.9223372036854775808'), '9223372036854775807.92233…
243 …is( sprintf("%vd", eval 'v17446744073709551615'), '17446744073709551615', …
244 …is( sprintf("%vd", eval 'v18446744073709551615'), '18446744073709551615', …
252 is( ref(\$v), 'SCALAR', 'v-strings are just scalars' );
255 is( ref(\$v), 'SCALAR', 'v-strings with v are just scalars' );
256 is( sprintf("%vd", $v), '1.23', 'v-string ignores underscores' );