HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
201e7da
)
* tests/numbers.test ("expt"): add tests.
author
Rob Browning
<rlb@defaultvalue.org>
Sat, 5 Oct 2002 04:12:23 +0000
(
04:12
+0000)
committer
Rob Browning
<rlb@defaultvalue.org>
Sat, 5 Oct 2002 04:12:23 +0000
(
04:12
+0000)
test-suite/tests/numbers.test
patch
|
blob
|
blame
|
history
diff --git
a/test-suite/tests/numbers.test
b/test-suite/tests/numbers.test
index
951325f
..
9177184
100644
(file)
--- a/
test-suite/tests/numbers.test
+++ b/
test-suite/tests/numbers.test
@@
-1461,6
+1461,16
@@
;;; ceiling
;;;
+;;;
+;;; expt
+;;;
+
+(with-test-prefix "expt"
+ (pass-if "(= 1 (expt 0 0))" (= 1 (expt 0 0)))
+ (pass-if "(= 1 (expt 0 0.0))" (= 1 (expt 0 0.0)))
+ (pass-if "(= 1 (expt 0.0 0))" (= 1 (expt 0.0 0)))
+ (pass-if "(= 1 (expt 0.0 0.0))" (= 1 (expt 0.0 0.0))))
+
;;;
;;; make-rectangular
;;;