suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add comparison tests with negative numbers

Browse Source 
svn: r4154
This commit is contained in:
Matthew Flatt 2006-08-27 10:47:18 +00:00
parent f735ba32f7
commit 107b76d5df
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/mzscheme/optimize.ss
View File

@ -139,22 +139,31 @@
(bin #t '< 100 200) (bin #t '< 100 200)
(bin #f '< 200 100) (bin #f '< 200 100)
(bin #f '< 100 100) (bin #f '< 100 100)
(bin #t '< -200 100)
(bin #f '< 100 -200)
(bin #t '<= 100 200) (bin #t '<= 100 200)
(bin #f '<= 200 100) (bin #f '<= 200 100)
(bin #t '<= 100 100) (bin #t '<= 100 100)
(bin #t '<= -200 100)
(bin #f '<= 100 -200)
(bin #f '> 100 200) (bin #f '> 100 200)
(bin #t '> 200 100) (bin #t '> 200 100)
(bin #f '> 100 100) (bin #f '> 100 100)
(bin #f '> -200 100)
(bin #t '> 100 -200)
(bin #f '>= 100 200) (bin #f '>= 100 200)
(bin #t '>= 200 100) (bin #t '>= 200 100)
(bin #t '>= 100 100) (bin #t '>= 100 100)
(bin #f '>= -200 100)
(bin #t '>= 100 -200)
(bin #f '= 100 200) (bin #f '= 100 200)
(bin #f '= 200 100) (bin #f '= 200 100)
(bin #t '= 100 100) (bin #t '= 100 100)
(bin #f '= -200 100)
(un 3 'add1 2) (un 3 'add1 2)
(un -3 'add1 -4) (un -3 'add1 -4)