view release on metacpan or  search on metacpan

t/004_dump.t  view on Meta::CPAN

is(dump(12345), "12345", "longer integer");
is(dump(12345678), "12345678", "another longer integer");
is(dump(123456789012345), "123456789012345", "much longer integer");
is(dump(0.333), "0.333", "float");
like(dump(1/3), qr/^0\.3+\z/, '/^0\.3+\z/');
is(dump(-33), "-33", "-33");
is(dump(-1.5), "-1.5", "-1.5");
is(dump("Inf"), qq("Inf"), qq("Inf"));
is(dump("-Inf"), qq("-Inf"), qq("-Inf"));
is(dump("nan"), qq("nan"), qq("nan"));
is(dump("NaN"), qq("NaN"), qq("NaN"));
is(dump("0123"), qq("0123"), qq("0123"));
is(dump(1..2), "(1, 2)", "(1, 2)");
is(dump(1..3), "(1, 2, 3)", "(1, 2, 3)");
is(dump(1..4), "(1 .. 4)", "(1 .. 4)");
is(dump(1..5,6,8,9), "(1 .. 6, 8, 9)", "(1 .. 6, 8, 9)");
is(dump(1..5,4..8), "(1 .. 5, 4 .. 8)", "(1 .. 5, 4 .. 8)");
is(dump([-2..2]), "[-2 .. 2]", "[-2 .. 2]");
is(dump(["a0" .. "z9"]), qq(["a0" .. "z9"]), qq(["a0" .. "z9"]));
is(dump(["x", 0, 1, 2, 3, "a", "b", "c", "d"]), qq(["x", 0 .. 3, "a" .. "d"]), qq(["x", 0 .. 3, "a" .. "d"]));
is(dump({ a => 1, b => 2 }), "{ a => 1, b => 2 }", "{ a => 1, b => 2 }");