/[gcl]/gcl/ansi-tests/remove-duplicates.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remove-duplicates.lsp

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

revision 1.14 by pfdietz, Mon Jun 13 14:24:44 2005 UTC revision 1.15 by pfdietz, Wed Jul 27 03:09:01 2005 UTC
# Line 329  Line 329 
329       (assert (string= s2 "abcdefgz"))))       (assert (string= s2 "abcdefgz"))))
330    nil)    nil)
331    
332    ;;; Order of elements kept under EQUAL, EQUALP tests
333    
334    (deftest remove-duplicates.2
335      (let* ((x (list 'a))
336             (y (list 'a))
337             (result (remove-duplicates (list x y) :test 'equal)))
338        (values
339         result
340         (notnot (eql (car result) x))
341         (notnot (eql (car result) y))))
342      ((a)) nil t)
343    
344    (deftest remove-duplicates.2a
345      (let* ((x (list 'a))
346             (y (list 'a))
347             (result (remove-duplicates (list x 'x y) :test 'equal)))
348        (values
349         result
350         (notnot (eql (cadr result) x))
351         (notnot (eql (cadr result) y))))
352      (x (a)) nil t)
353    
354    (deftest remove-duplicates.3
355      (let* ((x (list 'a))
356             (y (list 'a))
357             (result (remove-duplicates (list x y) :test 'equal :from-end t)))
358        (values
359         result
360         (notnot (eql (car result) x))
361         (notnot (eql (car result) y))))
362      ((a)) t nil)
363    
364    (deftest remove-duplicates.3a
365      (let* ((x (list 'a))
366             (y (list 'a))
367             (result (remove-duplicates (list x 'u 'v y) :test 'equal :from-end t)))
368        (values
369         result
370         (notnot (eql (car result) x))
371         (notnot (eql (car result) y))))
372      ((a) u v) t nil)
373    
374    (deftest remove-duplicates.4
375      (let* ((x (list 'a))
376             (y (list 'a))
377             (result (remove-duplicates (list x y) :test 'equalp)))
378        (values
379         result
380         (notnot (eql (car result) x))
381         (notnot (eql (car result) y))))
382      ((a)) nil t)
383    
384    (deftest remove-duplicates.5
385      (let* ((x (list 'a))
386             (y (list 'a))
387             (result (remove-duplicates (list x y) :test 'equalp :from-end t)))
388        (values
389         result
390         (notnot (eql (car result) x))
391         (notnot (eql (car result) y))))
392      ((a)) t nil)
393    
394    ;;; Similar, but destructive
395    
396    (deftest delete-duplicates.2
397      (let* ((x (list 'a))
398             (y (list 'a))
399             (result (delete-duplicates (list x y) :test 'equal)))
400        (values
401         result
402         (notnot (eql (car result) x))
403         (notnot (eql (car result) y))))
404      ((a)) nil t)
405    
406    (deftest delete-duplicates.2a
407      (let* ((x (list 'a))
408             (y (list 'a))
409             (result (delete-duplicates (list x 'x y) :test 'equal)))
410        (values
411         result
412         (notnot (eql (cadr result) x))
413         (notnot (eql (cadr result) y))))
414      (x (a)) nil t)
415    
416    (deftest delete-duplicates.3
417      (let* ((x (list 'a))
418             (y (list 'a))
419             (result (delete-duplicates (list x y) :test 'equal :from-end t)))
420        (values
421         result
422         (notnot (eql (car result) x))
423         (notnot (eql (car result) y))))
424      ((a)) t nil)
425    
426    (deftest delete-duplicates.3a
427      (let* ((x (list 'a))
428             (y (list 'a))
429             (result (delete-duplicates (list x 'u 'v y) :test 'equal :from-end t)))
430        (values
431         result
432         (notnot (eql (car result) x))
433         (notnot (eql (car result) y))))
434      ((a) u v) t nil)
435    
436    (deftest delete-duplicates.4
437      (let* ((x (list 'a))
438             (y (list 'a))
439             (result (delete-duplicates (list x y) :test 'equalp)))
440        (values
441         result
442         (notnot (eql (car result) x))
443         (notnot (eql (car result) y))))
444      ((a)) nil t)
445    
446    (deftest delete-duplicates.5
447      (let* ((x (list 'a))
448             (y (list 'a))
449             (result (delete-duplicates (list x y) :test 'equalp :from-end t)))
450        (values
451         result
452         (notnot (eql (car result) x))
453         (notnot (eql (car result) y))))
454      ((a)) t nil)
455    
456    
457    
458        
459        
460    
461    
462                                            

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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