70 lines
1.7 KiB
Common Lisp
70 lines
1.7 KiB
Common Lisp
|
;; ----------------------------------------
|
||
|
|
;; STRING.LISP
|
||
|
|
;; ----------------------------------------
|
||
|
|
|
||
|
|
|
||
|
|
;; DATA DECLARATIONS
|
||
|
|
;; ----------------------------------------
|
||
|
|
|
||
|
|
(defvar *single-line-string*
|
||
|
|
"Hiya! <3<3<3")
|
||
|
|
|
||
|
|
(defvar *multi-line-string*
|
||
|
|
"Oh, hi, how're you doing?
|
||
|
|
I hope you responded 'fine'.
|
||
|
|
Honestly, I can't hear you from here,
|
||
|
|
Hopefully your day is OK, though. <3")
|
||
|
|
|
||
|
|
(defvar *line-list*
|
||
|
|
'("Oh, hi, how're you doing?"
|
||
|
|
"I hope you responded 'fine'."
|
||
|
|
"Honestly, I can't hear you from here,"
|
||
|
|
"Hopefully your day is OK, though. <3"))
|
||
|
|
|
||
|
|
(defvar *single-line-list*
|
||
|
|
'("Hiya! <3<3<3"))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;; TESTS
|
||
|
|
;; ----------------------------------------
|
||
|
|
|
||
|
|
(rt:deftest string-line-list-i
|
||
|
|
(qotdd:string-line-list *multi-line-string*)
|
||
|
|
("Oh, hi, how're you doing?" "I hope you responded 'fine'."
|
||
|
|
"Honestly, I can't hear you from here,"
|
||
|
|
"Hopefully your day is OK, though. <3"))
|
||
|
|
|
||
|
|
(rt:deftest string-line-list-ii
|
||
|
|
(qotdd:string-line-list *single-line-string*)
|
||
|
|
("Hiya! <3<3<3"))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(rt:deftest line-list-string-i
|
||
|
|
(qotdd:line-list-string *line-list*)
|
||
|
|
"Oh, hi, how're you doing?
|
||
|
|
I hope you responded 'fine'.
|
||
|
|
Honestly, I can't hear you from here,
|
||
|
|
Hopefully your day is OK, though. <3")
|
||
|
|
|
||
|
|
(rt:deftest line-list-string-ii
|
||
|
|
(qotdd:line-list-string *single-line-list*)
|
||
|
|
"Hiya! <3<3<3")
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(rt:deftest string-after-prefix-i
|
||
|
|
(qotdd:string-after-prefix "Doggo -- Pomeranian" "Doggo -- ")
|
||
|
|
"Pomeranian")
|
||
|
|
|
||
|
|
(rt:deftest string-after-prefix-ii
|
||
|
|
(qotdd:string-after-prefix "Doggo -- Pomeranian" "oggo -- ")
|
||
|
|
nil)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(rt:deftest get-line-i
|
||
|
|
(qotdd:get-line *multi-line-string* "I hope")
|
||
|
|
"I hope you responded 'fine'.")
|