Minilisp.pm/t/strings.t

10 lines
332 B
Perl
Raw Normal View History

2021-04-03 18:48:10 +02:00
(expect "length of string" (= (length "hello") 5))
(expect "string-upcase" (string= (string-upcase "helLo") "HELLO"))
(expect "string-downcase" (string= (string-downcase "HEllO") "hello"))
(expect "string-capitalize"
(string= (string-capitalize "hello world i like cheese")
"Hello World I Like Cheese"))