diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-21 13:58:41 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-21 14:11:08 +0000 |
| commit | 53174000dfaebbe4ecb5b9a89bcf16bea0fdf547 (patch) | |
| tree | 0322a9cdfd671f2603d94b650168abec88597987 /tests | |
| parent | 253807763840392a55f16c2c0aa9f161a4748d02 (diff) | |
| download | cantedraw-53174000dfaebbe4ecb5b9a89bcf16bea0fdf547.tar.gz cantedraw-53174000dfaebbe4ecb5b9a89bcf16bea0fdf547.tar.bz2 cantedraw-53174000dfaebbe4ecb5b9a89bcf16bea0fdf547.zip | |
Add unit tests for lib.functions.parse-integer*
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/functions.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/functions.lisp b/tests/functions.lisp index 5d4d05a..ef6b83e 100644 --- a/tests/functions.lisp +++ b/tests/functions.lisp @@ -22,3 +22,11 @@ (define-test function-test :depends-on ((cantedraw/tests/macros macro-test))) + +(define-test (function-test "parse-integer*") + :compile-at :execute + (is eq 2 (parse-integer* "2")) + (is eq 2048 (parse-integer* "2048abcdef")) + (is eq nil (parse-integer* "a2048abcdef")) + (is eq nil (parse-integer* "garbage")) + (fail (parse-integer* nil))) |