diff options
| -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))) |