Minilisp.pm/t/strings.t

14 lines
386 B
Perl
Raw Normal View History

2021-04-10 01:26:07 +02:00
(plan 5)
2021-04-09 00:01:27 +02:00
2021-04-03 18:48:10 +02:00
(expect "length of string" (= (length "hello") 5))
2021-04-10 01:26:07 +02:00
(expect "empty strings" (= (length "") 0))
2021-04-03 18:48:10 +02:00
(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"))