Quelle serialize3.g Sprache: unbekannt

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]));

Quelle serialize3.g Sprache: unbekannt

[ Dauer der Verarbeitung: 0.15 Sekunden (vorverarbeitet) ]