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 |
|
|