1
0
mirror of synced 2026-02-11 19:04:55 +00:00
Files
Interlisp.medley/internal/test/LANGUAGE/AUTO/STRING.TESTS

19 lines
429 B
Plaintext

(and
(string-equal "abc" "ABC")
(not (string-equal "abc" "abcd"))
(eql 3(string= "abc" "abc"))
(not (string= "abc" "ABC"))
(not (string= "abc" "abcd"))
(not (string= "abcd" "abc"))
(eql 0 (string< "abc" "bbc"))
(eql 1 (string< "abc" "adc"))
(eql 3 (string< "abc" "abcd"))
(not (string< "bbc" "abc"))
(not (string< "abcd" "abc"))
(eql 0 (string/= "abc" "def"))
(eql 3 (string/= "abc" "abcd"))
(eql 3 (string/= "abcd" "abc"))
)