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
48
49
50
51
|
;; character.l
;; Author: Yuki Furuta <furushchev@jsk.imi.i.u-tokyo.ac.jp>
(require :unittest "lib/llib/unittest.l")
(init-unit-test)
(deftest test-char-compare
(format *error-output* " char-compare test ~%")
(assert (eq t (lisp::char= #\a #\a)) "(lisp::char= #\a #\a)")
(assert (eq nil (lisp::char= #\A #\a)) "(lisp::char= #\A #\a)")
(assert (eq nil (lisp::char= #\a #\b)) "(lisp::char= #\a #\b)")
(assert (eq t (lisp::char= #\a #\a #\a)) "(lisp::char= #\a #\a #\a)")
(assert (eq nil (lisp::char= #\a #\a #\b)) "(lisp::char= #\a #\a #\b)")
(assert (eq nil (lisp::char/= #\a #\a)) "(lisp::char/= #\a #\a)")
(assert (eq t (lisp::char/= #\A #\a)) "(lisp::char/= #\A #\a)")
(assert (eq t (lisp::char/= #\a #\b)) "(lisp::char/= #\a #\b)")
(assert (eq nil (lisp::char/= #\a #\a #\a)) "(lisp::char/= #\a #\a #\a)")
(assert (eq nil (lisp::char/= #\a #\a #\b #\a)) "(lisp::char/= #\a #\a #\b #\a)")
(assert (eq t (lisp::char/= #\a #\b #\c #\d)) "(lisp::char/= #\a #\b #\c #\d)")
(assert (eq t (lisp::char< #\a #\b)) "(lisp::char< #\a #\b)")
(assert (eq nil (lisp::char< #\b #\a)) "(lisp::char< #\b #\a)")
(assert (eq nil (lisp::char< #\a #\a)) "(lisp::char< #\a #\a)")
(assert (eq t (lisp::char< #\a #\e #\y #\z)) "(lisp::char< #\a #\e #\y #\z)")
(assert (eq nil (lisp::char< #\a #\e #\e #\y)) "(lisp::char< #\a #\e #\e #\y)")
(assert (eq nil (lisp::char> #\a #\b)) "(lisp::char> #\a #\b)")
(assert (eq t (lisp::char> #\b #\a)) "(lisp::char> #\b #\a)")
(assert (eq nil (lisp::char> #\a #\a)) "(lisp::char> #\a #\a)")
(assert (eq t (lisp::char> #\d #\c #\b #\a)) "(lisp::char> #\d #\c #\b #\a)")
(assert (eq nil (lisp::char> #\d #\d #\c #\a)) "(lisp::char> #\d #\d #\c #\a)")
(assert (eq t (lisp::char<= #\a #\b)) "(lisp::char<= #\a #\b)")
(assert (eq nil (lisp::char<= #\b #\a)) "(lisp::char<= #\b #\a)")
(assert (eq t (lisp::char<= #\a #\a)) "(lisp::char<= #\a #\a)")
(assert (eq t (lisp::char<= #\a #\e #\y #\z)) "(lisp::char<= #\a #\e #\y #\z)")
(assert (eq t (lisp::char<= #\a #\e #\e #\y)) "(lisp::char<= #\a #\e #\e #\y)")
(assert (eq nil (lisp::char>= #\a #\b)) "(lisp::char>= #\a #\b)")
(assert (eq t (lisp::char>= #\b #\a)) "(lisp::char>= #\b #\a)")
(assert (eq t (lisp::char>= #\a #\a)) "(lisp::char>= #\a #\a)")
(assert (eq t (lisp::char>= #\d #\c #\b #\a)) "(lisp::char>= #\d #\c #\b #\a)")
(assert (eq t (lisp::char>= #\d #\d #\c #\a)) "(lisp::char>= #\d #\d #\c #\a)")
)
(eval-when (load eval)
(run-all-tests)
(exit))
;; end of character.l
|
