From da33269c307c8a045e548cb1df2a3281a7a0f99e Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Thu, 19 Apr 2018 17:23:44 -0700
Subject: All tests passing (except object)

---
 tests/object.nom | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

(limited to 'tests/object.nom')

diff --git a/tests/object.nom b/tests/object.nom
index 84524e5..ab87fc7 100644
--- a/tests/object.nom
+++ b/tests/object.nom
@@ -1,23 +1,24 @@
 use "core"
 use "lib/object2.nom"
 
-immediately:
-    define object "Dog":
-        action [bark]:
-            %barks <- ("Bark!" for all 1 to (@%barks))
-            return (%barks joined with " ")
-        action [get pissed off]:
-            (@%barks) +<- 1
+#..
+    immediately:
+        define object "Dog":
+            action [bark]:
+                %barks <- ("Bark!" for all 1 to (@%barks))
+                return (%barks joined with " ")
+            action [get pissed off]:
+                (@%barks) +<- 1
 
-%d <- (new Dog {barks:2})
-as %d:
-    assume ((@) = %d)
-    assume ((@%barks) = 2)
-    assume ((bark) = "Bark! Bark!")
-    get pissed off
-    assume ((@%barks) = 3)
-    assume ((bark) = "Bark! Bark! Bark!")
-assume ("\(%d's "class")" = "Dog")
-assume ((%d's "barks") = 3)
+    %d <- (new Dog {barks:2})
+    as %d:
+        assume ((@) = %d)
+        assume ((@%barks) = 2)
+        assume ((bark) = "Bark! Bark!")
+        get pissed off
+        assume ((@%barks) = 3)
+        assume ((bark) = "Bark! Bark! Bark!")
+    assume ("\(%d's "class")" = "Dog")
+    assume ((%d's "barks") = 3)
 
-say "Object test passed."
+    say "Object test passed."
-- 
cgit v1.2.3