From 29937e424c53ed5a2c269bf490e63c17ee5e5cc2 Mon Sep 17 00:00:00 2001 From: Stewart Stewart Date: Tue, 11 Aug 2015 16:15:13 -0700 Subject: Step-by-Step reduction test to match example --- src/test/scala/Tests.scala | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/test/scala/Tests.scala b/src/test/scala/Tests.scala index 1c28875..2b7e465 100644 --- a/src/test/scala/Tests.scala +++ b/src/test/scala/Tests.scala @@ -102,10 +102,8 @@ object Tests extends TestSuite { "step by step reduction"-{ /*assert( - evalHead(S * (K * S) * K * p * q * r) == (S * (K * S) * K * p * q), - evalHead(S * (K * S) * K * p * q) == (K * S * p * (K * p) * q), - evalHead(K * S * p * (K * p) * q) == (S * (K * p) * q), - evalHead(S * (K * p) * q) == (S * (K * p) * q * r), + evalHead(S * (K * S) * K * p * q * r) == (S * (K * S) * K * p * q * r), + evalHead(K * S * p * (K * p) * q * r) == (S * (K * p) * q * r), evalHead(S * (K * p) * q * r) == (K * p * r * (q * r)), evalHead(K * p * r * (q * r)) == (p * (q * r)) )*/ -- cgit v1.2.3