Add new Object package

Currently performs no error checking, but this can be added later. The plan is to also add a schema for each class.

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"
+]