diff options
Diffstat (limited to 'Tests/Object.mt')
-rw-r--r-- | Tests/Object.mt | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/Tests/Object.mt b/Tests/Object.mt new file mode 100644 index 0000000..3345fb2 --- /dev/null +++ b/Tests/Object.mt @@ -0,0 +1,71 @@ + +(* Mathematica Test File *) + + +(****************************************************************) +(* NewObject *) +(****************************************************************) + +Test[ + NewObject[Obj, {}] + , + Obj[] + , + TestID->"NewObject-Empty" +] + +Test[ + NewObject[Obj, {"Key" -> 1}] + , + Obj["Key" -> 1] + , + TestID->"NewObject-OneKey" +] + +Test[ + NewObject[Obj, {"Key1" -> 1, "Key2" -> 2}] + , + Obj["Key1" -> 1, "Key2" -> 2] + , + TestID->"NewObject-TwoKeys" +] + +Test[ + SetObjectField[NewObject[Obj, {"Key1" -> 1, "Key2" -> 2}], "Key1", 3] + , + Obj["Key1" -> 3, "Key2" -> 2] + , + TestID->"SetObjectField-Existing" +] + +Test[ + SetObjectField[NewObject[Obj, {"Key1" -> 1, "Key2" -> 2}], "Key3", 3] + , + Obj["Key1" -> 1, "Key2" -> 2, "Key3" -> 3] + , + TestID->"SetObjectField-New" +] + +Test[ + GetObjectField[NewObject[Obj, {"Key1" -> 1, "Key2" -> 2}], "Key1"] + , + 1 + , + TestID->"GetObjectField-Exists" +] + +Test[ + AppendObjectField[NewObject[Obj, {"Key1" -> {}, "Key2" -> 2}], "Key1", 1] + , + Obj["Key1" -> {1}, "Key2" -> 2] + , + TestID->"AppendObjectField-Exists" +] + +Test[ + JoinObjectField[NewObject[Obj, {"Key1" -> {}, "Key2" -> 2}], "Key1", {1}] + , + Obj["Key1" -> {1}, "Key2" -> 2] + , + TestID->"JoinObjectField-Exists" +] |