From ce2a0bdee2ce702b9121e33b7881670b4d0e16a1 Mon Sep 17 00:00:00 2001
From: Roman Venediktov <e2e4b6b7@gmail.com>
Date: Sun, 30 Jun 2024 19:32:41 +0200
Subject: [PATCH] Normalized compare results in test03

---
 stdlib/regression/test03.lama | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/stdlib/regression/test03.lama b/stdlib/regression/test03.lama
index ade9a34a7..e977a6922 100644
--- a/stdlib/regression/test03.lama
+++ b/stdlib/regression/test03.lama
@@ -1,3 +1,7 @@
+fun normalize (x) {
+  if x < 0 then -1 else if x > 0 then 1 else 0 fi fi
+}
+
 fun f (x) {
   fun (y) {x + y}
 }
@@ -8,8 +12,8 @@ write (compare (3, 3));
 write (compare (2, "abc")); 
 write (compare ("abc", 2)); 
 write (compare ("abc", "abc"));
-write (compare ("ab", "abc"));
-write (compare ("abc", "ab"));
+write (normalize (compare ("ab", "abc")));
+write (normalize (compare ("abc", "ab")));
 write (compare ([], []));
 write (compare (A, A));
 write (compare (A, B));