From cc6a75644021f05b288180357cdbb99bf2026637 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 6 Mar 2008 21:32:57 +0000
Subject: [PATCH] tests for (round -0.0), etc.

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

diff --git a/collects/tests/mzscheme/number.ss b/collects/tests/mzscheme/number.ss
index 0c5a0de4e2..f2a6bfa9fe 100644
--- a/collects/tests/mzscheme/number.ss
+++ b/collects/tests/mzscheme/number.ss
@@ -1244,6 +1244,14 @@
 (test 4.0 round 3.5)
 (test -4.0 round -3.5)
 
+(define (test-zero-ident f)
+  (test 0.0 f 0.0)
+  (test -0.0 f -0.0))
+(test-zero-ident round)
+(test-zero-ident floor)
+(test-zero-ident ceiling)
+(test-zero-ident truncate)
+
 (err/rt-test (floor 2.6+0.0i))
 (err/rt-test (ceiling 2.6+0.0i))
 (err/rt-test (round 2.6+0.0i))