From a31ada919283e744bc87ff849a6a228adb99fd5e Mon Sep 17 00:00:00 2001
From: Rauli Laine <rauli.laine@iki.fi>
Date: Thu, 17 Aug 2017 00:51:27 +0300
Subject: [PATCH] Fix boolean test case

---
 tests/test-boolean.plorth | 24 ++++++++++++++++++++----
 1 file changed, 20 insertions(+), 4 deletions(-)

diff --git a/tests/test-boolean.plorth b/tests/test-boolean.plorth
index 4883ac9..b49d814 100644
--- a/tests/test-boolean.plorth
+++ b/tests/test-boolean.plorth
@@ -1,13 +1,29 @@
 "./framework.plorth" import
 
 "and"
-( true true and ) expect
+[
+  ( true true and ),
+  ( true false and not ),
+]
+test-case
 
 "or"
-( false true or ) expect
+[
+  ( false true or ),
+  ( false false or not ),
+]
+test-case
 
 "xor"
-( true false xor ) expect
+[
+  ( true false xor ),
+  ( false false xor not ),
+]
+test-case
 
 "not"
-( true not false = ) expect
+[
+  ( true not false = ),
+  ( false not true = ),
+]
+test-case