From ada899f158d89e57af44bb2936c32b24f7101263 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 5 Dec 2009 20:38:38 +0000 Subject: [PATCH] added more examples and tests for order-of-magnitude svn: r17212 --- collects/scribblings/reference/numbers.scrbl | 6 ++++-- collects/tests/mzscheme/math.ss | 2 ++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/scribblings/reference/numbers.scrbl b/collects/scribblings/reference/numbers.scrbl index 7537bbf5c7..4512716c9e 100644 --- a/collects/scribblings/reference/numbers.scrbl +++ b/collects/scribblings/reference/numbers.scrbl @@ -955,11 +955,13 @@ Computes the greatest exact integer @scheme[m] such that: (inexact->exact r))] Hence also @schemeblock[(< (inexact->exact r) - (expt 10 (add1 m)))]. + (expt 10 (add1 m)))] @mz-examples[#:eval math-eval (order-of-magnitude 999) - (order-of-magnitude 1000)] + (order-of-magnitude 1000) + (order-of-magnitude 1/100) + (order-of-magnitude 1/101)] } @; ---------------------------------------------------------------------- diff --git a/collects/tests/mzscheme/math.ss b/collects/tests/mzscheme/math.ss index 51f6bc5b2a..1ca07b9eea 100644 --- a/collects/tests/mzscheme/math.ss +++ b/collects/tests/mzscheme/math.ss @@ -14,6 +14,8 @@ (test 3 order-of-magnitude 5000) (test 3 order-of-magnitude 9999) (test 4 order-of-magnitude 10000) +(test -2 order-of-magnitude 1/100) +(test -3 order-of-magnitude 1/101) (test 25 sqr 5) (test 25 sqr -5)