diff options
| author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-11-22 17:47:51 +0300 |
|---|---|---|
| committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-11-23 02:41:42 +0300 |
| commit | a61a81ec33188e8e93ec02912c60053107ae0485 (patch) | |
| tree | a67fd9d37f434f1c169a05b2d6088a68fe34a798 /tests | |
| parent | 1cfe37610253c20a4fcb0d937c29e70894ecc4f5 (diff) | |
| download | sciteco-a61a81ec33188e8e93ec02912c60053107ae0485.tar.gz | |
disallow setting the radix to values lower than 2
* This would actually causes crashes when trying to format numbers.
* The ^R local register has a custom set_integer() method now,
so that the check is performed also when using nU.^X.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testsuite.at | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/testsuite.at b/tests/testsuite.at index 22f14e2..31ce257 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -33,6 +33,12 @@ AT_CHECK([$SCITECO -e "(1,) \"~|(0/0)'"], 0, ignore, ignore) AT_CHECK([$SCITECO -e "1,(2)=="], 0, ignore, ignore) AT_CLEANUP +AT_SETUP([Radix]) +AT_CHECK([$SCITECO -e "0^R"], 1, ignore, ignore) +AT_CHECK([$SCITECO -e "0U.^R"], 1, ignore, ignore) +AT_CHECK([$SCITECO -e "23 (2^R)\^D .-5\"N(0/0)"], 0, ignore, ignore) +AT_CLEANUP + AT_SETUP([Exponentiation]) AT_CHECK([$SCITECO -e "-1^*0 - (-1)\"N(0/0)'"], 0, ignore, ignore) AT_CHECK([$SCITECO -e "-1^*-5 - (-1)\"N(0/0)'"], 0, ignore, ignore) |