1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
;;;; -*- mode: lisp -*-
;;;;
;;;; $Id: test-base64.lisp,v 1.1.1.1 2004/06/09 09:02:41 scaekenberghe Exp $
;;;;
;;;; Unit and functional tests for S-UTILS
;;;;
;;;; Copyright (C) 2002-2005 Sven Van Caekenberghe, Beta Nine BVBA.
;;;;
;;;; You are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser General Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
(in-package :s-utils)
;; tokens
(assert (null (tokens "")))
(assert (equal (tokens "A") '("A")))
(assert (equal (tokens "A,B,C" :separators '(#\,)) '("A" "B" "C")))
(assert (equal (tokens "A B C D" :start 2 :end 5) '("B" "C")))
;; parse-integer-safely
(assert (null (parse-integer-safely nil)))
(assert (null (parse-integer-safely "")))
(assert (null (parse-integer-safely "NaN")))
(assert (eql 123 (parse-integer-safely "123")))
(assert (eql 123 (parse-integer-safely nil :default 123)))
(assert (eql 123 (parse-integer-safely "" :default 123)))
(assert (eql 123 (parse-integer-safely "NaN" :default 123)))
(assert (eql 123 (parse-integer-safely "111" :default 123 :start 3)))
(assert (eql 1 (parse-integer-safely "111" :default 123 :start 2)))
(assert (eql 123 (parse-integer-safely "123XXX" :end 3)))
;;;; eof
|