From 6b385008ad626f76f4b174899540ab5514b39e28 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 14 Oct 2006 22:41:26 +0000
Subject: [PATCH] numeric tests for (expt ... 1/2) and complex divide

svn: r4607
---
 collects/tests/mzscheme/number.ss | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/collects/tests/mzscheme/number.ss b/collects/tests/mzscheme/number.ss
index 2a80be764c..aa61e674e0 100644
--- a/collects/tests/mzscheme/number.ss
+++ b/collects/tests/mzscheme/number.ss
@@ -577,6 +577,9 @@
 (test 1/1024 expt 2 -10)
 (test 1/1024 expt 1/2 10)
 (test (/ 1 (expt 2 10000)) expt 1/2 10000)
+(test 2 expt 4 1/2)
+(test 2.0 expt 4 0.5)
+(test (sqrt 5) expt 5 1/2)
 (arity-test expt 2 2)
 
 (test 31525197391593472 inexact->exact 31525197391593473.0)
@@ -685,6 +688,18 @@
 (test 0 / 0 4+3i)
 (test 0.25+0.0i / 1e300+1e300i (* 4 1e300+1e300i))
 (test 0.25+0.0i / 1e-300+1e-300i (* 4 1e-300+1e-300i))
+(test 1/2-1/2i / 1+1i)
+(test 1/2+1/2i / 1-1i)
+(test 1/5-2/5i / 1+2i)
+(test 1/5+2/5i / 1-2i)
+(test 2/5-1/5i / 2+1i)
+(test 2/5+1/5i / 2-1i)
+(test 0.5-0.5i / 1.0+1.0i)
+(test 0.5+0.5i / 1.0-1.0i)
+(test 0.2-0.4i / 1.0+2.0i)
+(test 0.2+0.4i / 1.0-2.0i)
+(test 0.4-0.2i / 2.0+1.0i)
+(test 0.4+0.2i / 2.0-1.0i)
 
 (test 3 / 1 1/3)
 (test -3 / 1 -1/3)