From 107b76d5df8fc0211e106fcc51db8e7d126b32a8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 27 Aug 2006 10:47:18 +0000
Subject: [PATCH] add comparison tests with negative numbers

svn: r4154
---
 collects/tests/mzscheme/optimize.ss | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/collects/tests/mzscheme/optimize.ss b/collects/tests/mzscheme/optimize.ss
index 3fe12d4f33..fae0aa94a5 100644
--- a/collects/tests/mzscheme/optimize.ss
+++ b/collects/tests/mzscheme/optimize.ss
@@ -139,22 +139,31 @@
     (bin #t '< 100 200)
     (bin #f '< 200 100)
     (bin #f '< 100 100)
+    (bin #t '< -200 100)
+    (bin #f '< 100 -200)
 
     (bin #t '<= 100 200)
     (bin #f '<= 200 100)
     (bin #t '<= 100 100)
+    (bin #t '<= -200 100)
+    (bin #f '<= 100 -200)
 
     (bin #f '> 100 200)
     (bin #t '> 200 100)
     (bin #f '> 100 100)
+    (bin #f '> -200 100)
+    (bin #t '> 100 -200)
 
     (bin #f '>= 100 200)
     (bin #t '>= 200 100)
     (bin #t '>= 100 100)
+    (bin #f '>= -200 100)
+    (bin #t '>= 100 -200)
 
     (bin #f '= 100 200)
     (bin #f '= 200 100)
     (bin #t '= 100 100)
+    (bin #f '= -200 100)
 
     (un 3 'add1 2)
     (un -3 'add1 -4)