Add unit tests for lib.functions.parse-integer*

This commit is contained in:
2025-02-21 13:58:41 +00:00
parent 2538077638
commit 53174000df

View File

@@ -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)))