about summary refs log tree commit diff homepage
diff options
context:
space:
mode:
-rw-r--r--test/Expr/Evaluate2.pc5
-rw-r--r--test/Expr/Parser/Simplify.pc5
2 files changed, 7 insertions, 3 deletions
diff --git a/test/Expr/Evaluate2.pc b/test/Expr/Evaluate2.pc
index 0b50a0bd..d62241f0 100644
--- a/test/Expr/Evaluate2.pc
+++ b/test/Expr/Evaluate2.pc
@@ -1,6 +1,5 @@
 # RUN: %kleaver -evaluate %s > %t.log
 
-# RUN: grep "Query 0:	INVALID" %t.log
+# RUN: grep "Query 0:	VALID" %t.log
 # XFAIL: *
-(query [false] true)
-
+(query [false] false)
diff --git a/test/Expr/Parser/Simplify.pc b/test/Expr/Parser/Simplify.pc
index e89d79ff..1a853b16 100644
--- a/test/Expr/Parser/Simplify.pc
+++ b/test/Expr/Parser/Simplify.pc
@@ -33,3 +33,8 @@ array a[64] : w32 -> w8 = symbolic
 # RUN: grep                       \"(Not (Eq 1 (Read w8 1 a))))\" %t2
 (query [] false [(Not (Or (Eq 0 (Read w8 0 a))
                           (Eq 1 (Read w8 1 a))))])
+
+# Check -- false == X ==> !X
+# RUN: grep -A 2 \"# Query 7\" %t > %t2
+# RUN: grep \"(query .. false .(Not (Extract 1 (Read w8 0 a))).)\" %t2
+(query [] false [(Eq (Extract w1 1 (Read w8 0 a)) false)])