From e7bdc35aa82339f0734ec7014d2da0459ff0462d Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Mon, 4 Jun 2018 17:23:02 -0700
Subject: Cleanups to try/catch logic and object logic.

---
 tests/control_flow.nom | 5 +++--
 tests/object.nom       | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'tests')

diff --git a/tests/control_flow.nom b/tests/control_flow.nom
index 40b344f..886b59c 100644
--- a/tests/control_flow.nom
+++ b/tests/control_flow.nom
@@ -178,9 +178,10 @@ try
     do
         barf
     ..then always
-        %x <- 1
+        %x <- 3
 ..and if it barfs: do nothing
-assume (%x = 1) or barf "do/then always failed"
+lua> "collectgarbage()"
+assume (%x = 3) or barf "do/then always failed"
 
 say "Control flow test passed."
 
diff --git a/tests/object.nom b/tests/object.nom
index aeeb559..041b784 100644
--- a/tests/object.nom
+++ b/tests/object.nom
@@ -26,9 +26,9 @@ as: new "Dog" {barks:1}
 action [foo]
     as: new "Dog" {barks:23}
         return: (me).barks
-    barf "Reached unreachable code"
 
 assume: (foo) = 23
+..or barf: "Oops, \(foo) != 23"
 
 as: new "Dog" {barks:101}
     try: as (new "Dog" {barks:8}) (barf)
-- 
cgit v1.2.3