/[gcl]/gcl/ansi-tests/sort.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/sort.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.5 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 80  Line 80 
80      (sort a #'char<))      (sort a #'char<))
81    "00111")    "00111")
82    
83    ;;; Order of evaluation tests
84    
85    (deftest sort.order.1
86      (let ((i 0) x y)
87        (values
88         (sort (progn (setf x (incf i)) (list 1 7 3 2))
89               (progn (setf y (incf i)) #'<))
90         i x y))
91      (1 2 3 7) 2 1 2)
92    
93    (deftest sort.order.2
94      (let ((i 0) x y z)
95        (values
96         (sort (progn (setf x (incf i)) (list 1 7 3 2))
97               (progn (setf y (incf i)) #'<)
98               :key (progn (setf z (incf i)) #'-))
99         i x y z))
100      (7 3 2 1) 3 1 2 3)
101    
102    
103  ;;; Error cases  ;;; Error cases
104    
105  (deftest sort.error.1  (deftest sort.error.1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26