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

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

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

revision 1.8 by pfdietz, Fri Feb 14 05:10:36 2003 UTC revision 1.9 by pfdietz, Thu Feb 20 23:57:54 2003 UTC
# Line 54  Line 54 
54    2)    2)
55    
56  (deftest mismatch-list.13  (deftest mismatch-list.13
57    (mismatch '(1 2 3 4) '(1 2 3 4) :test 'eq)    (mismatch '(1 2 3 4) '(1 2 3 4) :test 'eql)
58    nil)    nil)
59    
60  (deftest mismatch-list.14  (deftest mismatch-list.14
61    (mismatch '(1 2 3 4) '(5 6 7 8) :test-not 'eq)    (mismatch '(1 2 3 4) '(5 6 7 8) :test-not 'eql)
62    nil)    nil)
63    
64  (deftest mismatch-list.15  (deftest mismatch-list.15
# Line 78  Line 78 
78    7)    7)
79    
80  (deftest mismatch-list.19  (deftest mismatch-list.19
81    (mismatch '(1 1 1) '(2 2 2 2 2 1 2 2) :from-end t :test-not 'eq)    (mismatch '(1 1 1) '(2 2 2 2 2 1 2 2) :from-end t :test-not 'eql)
82    1)    1)
83    
84  (deftest mismatch-list.20  (deftest mismatch-list.20
# Line 144  Line 144 
144    2)    2)
145    
146  (deftest mismatch-vector.13  (deftest mismatch-vector.13
147    (mismatch #(1 2 3 4) #(1 2 3 4) :test 'eq)    (mismatch #(1 2 3 4) #(1 2 3 4) :test 'eql)
148    nil)    nil)
149    
150  (deftest mismatch-vector.14  (deftest mismatch-vector.14
151    (mismatch #(1 2 3 4) #(5 6 7 8) :test-not 'eq)    (mismatch #(1 2 3 4) #(5 6 7 8) :test-not 'eql)
152    nil)    nil)
153    
154  (deftest mismatch-vector.15  (deftest mismatch-vector.15
# Line 168  Line 168 
168    7)    7)
169    
170  (deftest mismatch-vector.19  (deftest mismatch-vector.19
171    (mismatch #(1 1 1) #(2 2 2 2 2 1 2 2) :from-end t :test-not 'eq)    (mismatch #(1 1 1) #(2 2 2 2 2 1 2 2) :from-end t :test-not 'eql)
172    1)    1)
173    
174  (deftest mismatch-vector.20  (deftest mismatch-vector.20
# Line 301  Line 301 
301    nil)    nil)
302    
303  (deftest mismatch-bit-vector.11b  (deftest mismatch-bit-vector.11b
304    (mismatch #*0101 #*1010 :key #'evenp :test-not 'eq)    (mismatch #*0101 #*1010 :key #'evenp :test-not 'eql)
305    nil)    nil)
306    
307  (deftest mismatch-bit-vector.11c  (deftest mismatch-bit-vector.11c
# Line 325  Line 325 
325    2)    2)
326    
327  (deftest mismatch-bit-vector.13  (deftest mismatch-bit-vector.13
328    (mismatch #*0001 #*0001 :test 'eq)    (mismatch #*0001 #*0001 :test 'eql)
329    nil)    nil)
330    
331  (deftest mismatch-bit-vector.14  (deftest mismatch-bit-vector.14
332    (mismatch '#*10001 #*01110 :test-not 'eq)    (mismatch '#*10001 #*01110 :test-not 'eql)
333    nil)    nil)
334    
335  (deftest mismatch-bit-vector.15  (deftest mismatch-bit-vector.15
# Line 349  Line 349 
349    7)    7)
350    
351  (deftest mismatch-bit-vector.19  (deftest mismatch-bit-vector.19
352    (mismatch #*000 #*11111011 :from-end t :test-not 'eq)    (mismatch #*000 #*11111011 :from-end t :test-not 'eql)
353    1)    1)
354    
355  (deftest mismatch-bit-vector.20  (deftest mismatch-bit-vector.20
# Line 497  Line 497 
497    nil)    nil)
498    
499  (deftest mismatch-string.11b  (deftest mismatch-string.11b
500    (mismatch "0101" "1010" :key #'evendigitp :test-not 'eq)    (mismatch "0101" "1010" :key #'evendigitp :test-not 'eql)
501    nil)    nil)
502    
503  (deftest mismatch-string.11c  (deftest mismatch-string.11c
# Line 509  Line 509 
509    4)    4)
510    
511  (deftest mismatch-string.11e  (deftest mismatch-string.11e
512    (mismatch "0101" '(#\1 #\0 #\1 #\0) :key #'evendigitp :test-not 'eq)    (mismatch "0101" '(#\1 #\0 #\1 #\0) :key #'evendigitp :test-not 'eql)
513    nil)    nil)
514    
515  (deftest mismatch-string.12  (deftest mismatch-string.12
# Line 525  Line 525 
525    2)    2)
526    
527  (deftest mismatch-string.13  (deftest mismatch-string.13
528    (mismatch "0001" "0001" :test 'eq)    (mismatch "0001" "0001" :test 'eql)
529    nil)    nil)
530    
531  (deftest mismatch-string.14  (deftest mismatch-string.14
532    (mismatch "10001" "01110" :test-not 'eq)    (mismatch "10001" "01110" :test-not 'eql)
533    nil)    nil)
534    
535  (deftest mismatch-string.15  (deftest mismatch-string.15
# Line 549  Line 549 
549    7)    7)
550    
551  (deftest mismatch-string.19  (deftest mismatch-string.19
552    (mismatch "000" "11111011" :from-end t :test-not 'eq)    (mismatch "000" "11111011" :from-end t :test-not 'eql)
553    1)    1)
554    
555  (deftest mismatch-string.20  (deftest mismatch-string.20

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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