Lines Matching full:is
17 is(0x0p0, 0);
18 is(0x0.p0, 0);
19 is(0x.0p0, 0);
20 is(0x0.0p0, 0);
21 is(0x0.00p0, 0);
23 is(0x1p0, 1);
24 is(0x1.p0, 1);
25 is(0x1.0p0, 1);
26 is(0x1.00p0, 1);
28 is(0x2p0, 2);
29 is(0x2.p0, 2);
30 is(0x2.0p0, 2);
31 is(0x2.00p0, 2);
33 is(0x1p1, 2);
34 is(0x1.p1, 2);
35 is(0x1.0p1, 2);
36 is(0x1.00p1, 2);
38 is(0x.1p0, 0.0625);
39 is(0x0.1p0, 0.0625);
40 is(0x0.10p0, 0.0625);
41 is(0x0.100p0, 0.0625);
43 is(0x.1p0, 0.0625);
44 is(0x1.1p0, 1.0625);
45 is(0x1.11p0, 1.06640625);
46 is(0x1.111p0, 1.066650390625);
49 is(0x1p2, 4);
50 is(0x1p+2, 4);
51 is(0x0p+0, 0);
54 is(0x1p-1, 0.5);
55 is(0x1.p-1, 0.5);
56 is(0x1.0p-1, 0.5);
57 is(0x0p-0, 0);
59 is(0x1p+2, 4);
60 is(0x1p-2, 0.25);
62 is(0x3p+2, 12);
63 is(0x3p-2, 0.75);
66 is(0x1p2, 1 << 2);
67 is(0x1p3, 1 << 3);
68 is(0x3p4, 3 << 4);
69 is(0x3p5, 3 << 5);
70 is(0x12p23, 0x12 << 23);
73 is(0x1p-2, 1 / (1 << 2));
74 is(0x1p-3, 1 / (1 << 3));
75 is(0x3p-4, 3 / (1 << 4));
76 is(0x3p-5, 3 / (1 << 5));
77 is(0x12p-23, 0x12 / (1 << 23));
80 is(-0x1p+2, -4);
81 is(-0x1p-2, -0.25);
82 is(-0x0p+0, 0);
83 is(-0x0p-0, 0);
85 is(0x0.10p0, 0.0625);
86 is(0x0.1p0, 0.0625);
87 is(0x.1p0, 0.0625);
89 is(0x12p+3, 144);
90 is(0x12p-3, 2.25);
93 is(0x9p+0, 9);
94 is(0xap+0, 10);
95 is(0xfp+0, 15);
96 is(0x10p+0, 16);
97 is(0x11p+0, 17);
98 is(0xabp+0, 171);
99 is(0xab.cdp+0, 171.80078125);
102 is(0xAp+0, 10);
103 is(0xFp+0, 15);
104 is(0xABP+0, 171);
105 is(0xAB.CDP+0, 171.80078125);
108 is(0xa_b.c_dp+1_2, 703696);
110 # Note that the hexfloat representation is not unique since the
111 # exponent can be shifted, and the hexdigits with it: this is no
117 skip("nv_preserves_uv_bits is $Config{nv_preserves_uv_bits} not 53", 3)
119 is(0x0.b17217f7d1cf78p0, 0x1.62e42fefa39efp-1);
120 is(0x0.58b90bfbe8e7bcp1, 0x1.62e42fefa39efp-1);
121 is(0x0.2c5c85fdf473dep2, 0x1.62e42fefa39efp-1);
124 # Needs to use within() instead of is() because of long doubles.
148 is("@a", "3 4 5");
152 is($a, undef); # throws an error
156 is($a, '123');
160 is($a, undef);
166 skip "nv_preserves_uv_bits is $Config{nv_preserves_uv_bits} not 53", 26
172 is(get_warn(), undef);
178 is(get_warn(), undef);
184 is(get_warn(), undef);
190 is(get_warn(), undef);
198 is($a, 273);
206 is($a, 273);
211 is($a, 273);
215 is(get_warn(), undef);
216 is($a, 4.5035996273705e+15);
220 is(get_warn(), undef);
221 is($a, 4.5035996273705e+15);
226 is($a, 4.5035996273705e+15);
230 is(get_warn(), undef);
231 is($a, 16);
235 is(get_warn(), undef);
236 is($a, 16);
241 is($a, 16);
250 is(0x1p-1074, 4.94065645841246544e-324);
251 is(0x1p-1075, 2.47032822920623272e-324, '[perl #128919]');
252 is(0x1p-1076, 1.23516411460311636e-324);
253 is(0x1p-16445, 3.6451995318824746e-4951);
261 is sprintf("%a", eval("0x030000000000000.1p0")), "0x1.8p+53";
262 is sprintf("%a", eval("01400000000000000000.1p0")), "0x1.8p+54";
263 …is sprintf("%a", eval("0b110000000000000000000000000000000000000000000000000000000.1p0")), "0x1.8p…
267 is(01p0, 1);
268 is(01.0p0, 1);
269 is(01.00p0, 1);
270 is(010.1p0, 8.125);
271 is(00.400p1, 1);
272 is(00p0, 0);
273 is(01.1p0, 1.125);
275 is(0b0p0, 0);
276 is(0b1p0, 1);
277 is(0b10p0, 2);
278 is(0b1.1p0, 1.5);
294 # sprintf %a/%A testing is done in sprintf2.t,