Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Sat Jan 17 22:34:46 2004 UTC | revision 1.8 by pfdietz, Tue Sep 21 13:07:11 2004 UTC | |
---|---|---|
# | Line 91 | Line 91 |
91 | (stable-sort a #'char<)) | (stable-sort a #'char<)) |
92 | "00111") | "00111") |
93 | ||
94 | (deftest stable-sort-string.4 | |
95 | (do-special-strings | |
96 | (s "aebdc" nil) | |
97 | (let ((s2 (stable-sort s #'char<))) | |
98 | (assert (eq s s2)) | |
99 | (assert (string= s2 "abcde")))) | |
100 | nil) | |
101 | ||
102 | ;;; Order of evaluation tests | ;;; Order of evaluation tests |
103 | ||
104 | (deftest stable-sort.order.1 | (deftest stable-sort.order.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |