|
CheckSerialization := function(x)
local err, x2;
x2 := DeserializeNativeString(SerializeToNativeString(x));
if DeserializeNativeString(SerializeToNativeString(x)) <> x or
TNUM_OBJ(x) <> TNUM_OBJ(x2) then
err := "Serialization error: ";
Append(err, String(x));
fi;
end;
CheckSerialization2 := function(x, f)
local err;
if not f(DeserializeNativeString(SerializeToNativeString(x))) then
err := "Serialization error: ";
Append(err, String(x));
fi;
end;
for i in [-100000..100000] do
CheckSerialization(i);
od;
CheckSerialization(true);
CheckSerialization(false);
CheckSerialization(fail);
for i in [-100..100] do
CheckSerialization([i]);
od;
CheckSerialization([]);
CheckSerialization(`[]);
CheckSerialization(["abc", `"abc"]);
CheckSerialization([-2..2]);
CheckSerialization([0,3..30]);
CheckSerialization((1,2));
CheckSerialization((1,65537));
for i in [0..255] do
CheckSerialization(CHAR_INT(i));
od;
CheckSerialization(1/2);
CheckSerialization(3.14);
CheckSerialization(E(3));
CheckSerialization(E(3)+E(2));
CheckSerialization(rec(x := 1, y := "abc"));
CheckSerialization([1,2,,3,,,4,"x","y"]);
CheckSerialization2([~], x->IsIdenticalObj(x, x[1]));
CheckSerialization2(["abc", ~[1]], x->IsIdenticalObj(x[1], x[2]));
[ Dauer der Verarbeitung: 0.3 Sekunden
(vorverarbeitet)
]
|
