ace.core/sequence-test.lisp at master · qitab/ace.core · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
;;; Copyright 2020 Google LLC
;;;
;;; Use of this source code is governed by an MIT-style
;;; license that can be found in the LICENSE file or at
;;; https://opensource.org/licenses/MIT.

;;;;
;;;; Tests for the ace.core.sequence package.
;;;;

(ace.core.package:defpackage* #:ace.core.sequence-test
  (:use #:common-lisp
        #:ace.test
        #:ace.core.sequence)
  (:use-alias #:ace.core.sequence))

(in-package #:ace.core.sequence-test)

(deftest removef-test ()
  (let* ((c 0)
         (a (list 1 2 3 4))
         (%a a))
    (expect (equal '(2 3 4) (removef 1 a)))
    (expect (equal '(2 3 4) a))
    (expect (equal %a '(1 2 3 4)))

    (expect (equal '(4) (removef 3 (cdr a))))
    (expect (equal '(2 4) a))
    (expect (equal %a '(1 2 3 4)))
    (flet ((id (b) (incf c) b))
      (expect (equal '() (removef 4 (cdr (id a)))))
      (expect (equal '(2) a))
      (expect (equal %a '(1 2 3 4)))
      (expect (= c 1)))))

(deftest deletef-test ()
  (let* ((c 0)
         (a (list 1 2 3 4))
         (%a a))
    (expect (equal '(2 3 4) (deletef 1 a)))
    (expect (equal '(2 3 4) a))
    (expect (equal '(1 2 3 4) %a))

    (expect (equal '(4) (deletef 3 (cdr a))))
    (expect (equal '(2 4) a))
    (expect (equal '(1 2 4) %a))
    (flet ((id (b) (incf c) b))
      (expect (equal '() (deletef 4 (cdr (id a)))))
      (expect (equal '(2) a))
      (expect (equal '(1 2) %a))
      (expect (= c 1)))))