diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:40:42 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:51:19 +0100 |
commit | 29a5d5824ca874b2635f9e812e25198e42b5efc1 (patch) | |
tree | 568510802535956085a5ea99c3498780be9dae8d /tests/unit | |
parent | Fix swedish ordinals. (diff) | |
download | calp-29a5d5824ca874b2635f9e812e25198e42b5efc1.tar.gz calp-29a5d5824ca874b2635f9e812e25198e42b5efc1.tar.xz |
Add procedures for printing big numbers.
Diffstat (limited to '')
-rw-r--r-- | tests/unit/text/big-numbers.scm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/unit/text/big-numbers.scm b/tests/unit/text/big-numbers.scm new file mode 100644 index 00000000..2fb2a736 --- /dev/null +++ b/tests/unit/text/big-numbers.scm @@ -0,0 +1,22 @@ +(define-module (test text-big-numbers) + :use-module (srfi srfi-64) + :use-module (srfi srfi-64 test-error) + :use-module (text big-numbers)) + +(test-assert (power-of-10? #e1e100)) +(test-assert (power-of-10? 1e100)) +;; (test-assert (not (power-of-10? (+ #e1e100 1)))) +;; (test-assert (not (power-of-10? (+ 1e100 1)))) +;; (test-assert (not (power-of-10? (- #e1e100 1)))) +;; (test-assert (not (power-of-10? (- 1e100 1)))) + +(test-equal "₉₆₈₀₂₃₇₄₅₁" (subscript 9680237451)) +(test-equal "⁹⁶⁸⁰²³⁷⁴⁵¹" (supscript 9680237451)) + +(test-equal "10¹⁰⁰" + (number->exponential-form #e1e100)) + +(test-error 'wrong-type-arg + (number->exponential-form 20)) + +'((text big-numbers)) |