make.test-batch.log

Running 311 tests (2016-07-31 11:03:18-0700)
   passed    1/311  list-utils-alist-flatten-01
   passed    2/311  list-utils-alist-flatten-02
   passed    3/311  list-utils-alist-flatten-03
   passed    4/311  list-utils-alist-flatten-04
   passed    5/311  list-utils-alist-flatten-05
   passed    6/311  list-utils-alist-flatten-06
   passed    7/311  list-utils-alist-or-flat-length-01
   passed    8/311  list-utils-and-01
   passed    9/311  list-utils-and-02
   passed   10/311  list-utils-and-03
   passed   11/311  list-utils-and-04
   passed   12/311  list-utils-and-05
   passed   13/311  list-utils-and-06
   passed   14/311  list-utils-and-07
   passed   15/311  list-utils-and-08
   passed   16/311  list-utils-and-09
   passed   17/311  list-utils-and-10
   passed   18/311  list-utils-and-11
   passed   19/311  list-utils-and-12
   passed   20/311  list-utils-and-13
   passed   21/311  list-utils-and-14
   passed   22/311  list-utils-and-15
   passed   23/311  list-utils-and-16
   passed   24/311  list-utils-cons-cell-p-01
   passed   25/311  list-utils-cons-cell-p-02
   passed   26/311  list-utils-cons-cell-p-03
   passed   27/311  list-utils-cons-cell-p-04
   passed   28/311  list-utils-cons-cell-p-05
   passed   29/311  list-utils-cyclic-length-01
   passed   30/311  list-utils-cyclic-length-02
   passed   31/311  list-utils-cyclic-length-03
   passed   32/311  list-utils-cyclic-length-04
   passed   33/311  list-utils-cyclic-length-05
   passed   34/311  list-utils-cyclic-length-06
   passed   35/311  list-utils-cyclic-p-01
   passed   36/311  list-utils-cyclic-p-02
   passed   37/311  list-utils-cyclic-p-03
   passed   38/311  list-utils-cyclic-p-04
   passed   39/311  list-utils-cyclic-p-05
   passed   40/311  list-utils-cyclic-p-06
   passed   41/311  list-utils-cyclic-p-07
   passed   42/311  list-utils-cyclic-p-08
   passed   43/311  list-utils-cyclic-p-09
   passed   44/311  list-utils-cyclic-p-10
   passed   45/311  list-utils-cyclic-subseq-01
   passed   46/311  list-utils-cyclic-subseq-02
   passed   47/311  list-utils-cyclic-subseq-03
   passed   48/311  list-utils-cyclic-subseq-04
   passed   49/311  list-utils-cyclic-subseq-05
   passed   50/311  list-utils-cyclic-subseq-06
   passed   51/311  list-utils-cyclic-subseq-07
   passed   52/311  list-utils-cyclic-subseq-08
   passed   53/311  list-utils-cyclic-subseq-09
   passed   54/311  list-utils-depth-01
   passed   55/311  list-utils-depth-02
   passed   56/311  list-utils-depth-03
   passed   57/311  list-utils-depth-04
   passed   58/311  list-utils-depth-05
   passed   59/311  list-utils-depth-06
   passed   60/311  list-utils-depth-07
   passed   61/311  list-utils-depth-08
   passed   62/311  list-utils-depth-09
   passed   63/311  list-utils-depth-10
   passed   64/311  list-utils-depth-11
   passed   65/311  list-utils-depth-12
   passed   66/311  list-utils-depth-13
   passed   67/311  list-utils-dupes-01
   passed   68/311  list-utils-dupes-02
   passed   69/311  list-utils-dupes-03
   passed   70/311  list-utils-dupes-04
   passed   71/311  list-utils-dupes-05
   passed   72/311  list-utils-dupes-06
   passed   73/311  list-utils-dupes-07
   passed   74/311  list-utils-dupes-08
   passed   75/311  list-utils-dupes-09
   passed   76/311  list-utils-dupes-10
   passed   77/311  list-utils-flat-length-01
   passed   78/311  list-utils-flatten-01
   passed   79/311  list-utils-flatten-02
   passed   80/311  list-utils-flatten-03
   passed   81/311  list-utils-flatten-04
   passed   82/311  list-utils-flatten-05
   passed   83/311  list-utils-flatten-06
   passed   84/311  list-utils-flatten-07
   passed   85/311  list-utils-flatten-08
   passed   86/311  list-utils-insert-after-01
   passed   87/311  list-utils-insert-after-02
   passed   88/311  list-utils-insert-after-03
Debugger entered: ((cl-assertion-failed pos "Element not found: %s"))
  cl--assertion-failed(pos "Element not found: %s" nil (6))
  (or pos (cl--assertion-failed (quote pos) "Element not found: %s" (list) (list element)))
  (progn (or pos (cl--assertion-failed (quote pos) "Element not found: %s" (list) (list element))) nil)
  (let ((improper (list-utils-improper-p list)) (pos nil)) (if improper (progn (setq list (list-utils-make-proper-inplace list)))) (setq pos (position element list :test test)) (progn (or pos (cl--assertion-failed (quote pos) "Element not found: %s" (list) (list element))) nil) (let* ((v (nthcdr pos list))) (setcdr v (cons new-element (cdr v)))) (if improper (progn (setq list (list-utils-make-improper-inplace list)))))
  list-utils-insert-after((1 2 3 4 5) 6 elt)
  apply(list-utils-insert-after ((1 2 3 4 5) 6 elt))
  (setq value-1393 (apply fn-1391 args-1392))
  (unwind-protect (setq value-1393 (apply fn-1391 args-1392)) (setq form-description-1395 (nconc (list (quote (should-error (list-utils-insert-after (quote ...) 6 (quote elt))))) (list :form (cons fn-1391 args-1392)) (if (eql value-1393 (quote ert-form-evaluation-aborted-1394)) nil (list :value value-1393)) (let ((-explainer- (and (symbolp ...) (get ... ...)))) (if -explainer- (progn (list :explanation (apply -explainer- args-1392))))))) (ert--signal-should-execution form-description-1395))
  (condition-case -condition- (unwind-protect (setq value-1393 (apply fn-1391 args-1392)) (setq form-description-1395 (nconc (list (quote (should-error (list-utils-insert-after ... 6 ...)))) (list :form (cons fn-1391 args-1392)) (if (eql value-1393 (quote ert-form-evaluation-aborted-1394)) nil (list :value value-1393)) (let ((-explainer- (and ... ...))) (if -explainer- (progn (list :explanation ...)))))) (ert--signal-should-execution form-description-1395)) (error (setq errorp1396 t) (ert--should-error-handle-error form-description-fn-1397 -condition- (quote error) nil) (setq value-1393 -condition-)))
  (let ((errorp1396 nil) (form-description-fn-1397 (function (lambda nil form-description-1395)))) (condition-case -condition- (unwind-protect (setq value-1393 (apply fn-1391 args-1392)) (setq form-description-1395 (nconc (list (quote (should-error ...))) (list :form (cons fn-1391 args-1392)) (if (eql value-1393 (quote ert-form-evaluation-aborted-1394)) nil (list :value value-1393)) (let ((-explainer- ...)) (if -explainer- (progn ...))))) (ert--signal-should-execution form-description-1395)) (error (setq errorp1396 t) (ert--should-error-handle-error form-description-fn-1397 -condition- (quote error) nil) (setq value-1393 -condition-))) (if errorp1396 nil (ert-fail (append (funcall form-description-fn-1397) (list :fail-reason "did not signal an error")))))
  (let (form-description-1395) (let ((errorp1396 nil) (form-description-fn-1397 (function (lambda nil form-description-1395)))) (condition-case -condition- (unwind-protect (setq value-1393 (apply fn-1391 args-1392)) (setq form-description-1395 (nconc (list (quote ...)) (list :form (cons fn-1391 args-1392)) (if (eql value-1393 ...) nil (list :value value-1393)) (let (...) (if -explainer- ...)))) (ert--signal-should-execution form-description-1395)) (error (setq errorp1396 t) (ert--should-error-handle-error form-description-fn-1397 -condition- (quote error) nil) (setq value-1393 -condition-))) (if errorp1396 nil (ert-fail (append (funcall form-description-fn-1397) (list :fail-reason "did not signal an error"))))))
  (let ((value-1393 (quote ert-form-evaluation-aborted-1394))) (let (form-description-1395) (let ((errorp1396 nil) (form-description-fn-1397 (function (lambda nil form-description-1395)))) (condition-case -condition- (unwind-protect (setq value-1393 (apply fn-1391 args-1392)) (setq form-description-1395 (nconc (list ...) (list :form ...) (if ... nil ...) (let ... ...))) (ert--signal-should-execution form-description-1395)) (error (setq errorp1396 t) (ert--should-error-handle-error form-description-fn-1397 -condition- (quote error) nil) (setq value-1393 -condition-))) (if errorp1396 nil (ert-fail (append (funcall form-description-fn-1397) (list :fail-reason "did not signal an error")))))) value-1393)
  (let ((fn-1391 (function list-utils-insert-after)) (args-1392 (list (quote (1 2 3 4 5)) 6 (quote elt)))) (let ((value-1393 (quote ert-form-evaluation-aborted-1394))) (let (form-description-1395) (let ((errorp1396 nil) (form-description-fn-1397 (function (lambda nil form-description-1395)))) (condition-case -condition- (unwind-protect (setq value-1393 (apply fn-1391 args-1392)) (setq form-description-1395 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-1395)) (error (setq errorp1396 t) (ert--should-error-handle-error form-description-fn-1397 -condition- (quote error) nil) (setq value-1393 -condition-))) (if errorp1396 nil (ert-fail (append (funcall form-description-fn-1397) (list :fail-reason "did not signal an error")))))) value-1393))
  (lambda nil (let ((fn-1391 (function list-utils-insert-after)) (args-1392 (list (quote (1 2 3 4 5)) 6 (quote elt)))) (let ((value-1393 (quote ert-form-evaluation-aborted-1394))) (let (form-description-1395) (let ((errorp1396 nil) (form-description-fn-1397 (function ...))) (condition-case -condition- (unwind-protect (setq value-1393 ...) (setq form-description-1395 ...) (ert--signal-should-execution form-description-1395)) (error (setq errorp1396 t) (ert--should-error-handle-error form-description-fn-1397 -condition- ... nil) (setq value-1393 -condition-))) (if errorp1396 nil (ert-fail (append ... ...))))) value-1393)))()
  ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struct-ert-test list-utils-insert-after-04 nil (lambda nil (let ((fn-1391 (function list-utils-insert-after)) (args-1392 (list (quote ...) 6 (quote elt)))) (let ((value-1393 (quote ert-form-evaluation-aborted-1394))) (let (form-description-1395) (let (... ...) (condition-case -condition- ... ...) (if errorp1396 nil ...))) value-1393))) nil :passed nil] [cl-struct-ert-test-aborted-with-non-local-exit nil nil] #[0 "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug nil])
  ert-run-test([cl-struct-ert-test list-utils-insert-after-04 nil (lambda nil (let ((fn-1391 (function list-utils-insert-after)) (args-1392 (list (quote (1 2 3 4 5)) 6 (quote elt)))) (let ((value-1393 (quote ert-form-evaluation-aborted-1394))) (let (form-description-1395) (let ((errorp1396 nil) (form-description-fn-1397 ...)) (condition-case -condition- (unwind-protect ... ... ...) (error ... ... ...)) (if errorp1396 nil (ert-fail ...)))) value-1393))) nil :passed nil])
  ert-run-or-rerun-test([cl-struct-ert--stats (and "" (not (tag :interactive))) [[cl-struct-ert-test list-utils-alist-flatten-01 nil (lambda nil (let ((fn-1282 (function equal)) (args-1283 (list ... ...))) (let ((value-1284 ...)) (let (form-description-1286) (if ... nil ...)) value-1284))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (1 2 3 4 . 5) (1 2 3 4 . 5)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-alist-flatten-02 nil (lambda nil (let ((fn-1287 (function equal)) (args-1288 (list ... ...))) (let ((value-1289 ...)) (let (form-description-1291) (if ... nil ...)) value-1289))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (1 2 3 ...) (1 2 3 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-alist-flatten-03 nil (lambda nil (let ((fn-1292 (function equal)) (args-1293 (list ... ...))) (let ((value-1294 ...)) (let (form-description-1296) (if ... nil ...)) value-1294))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (1 2 3 ...) (1 2 3 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-alist-flatten-04 nil (lambda nil (let ((fn-1297 (function equal)) (args-1298 (list ... ...))) (let ((value-1299 ...)) (let (form-description-1301) (if ... nil ...)) value-1299))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (... ... ... ...) (... ... ... ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-alist-flatten-05 nil (lambda nil (let ((fn-1302 (function equal)) (args-1303 (list ... ...))) (let ((value-1304 ...)) (let (form-description-1306) (if ... nil ...)) value-1304))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (1 . 2) (1 . 2)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-alist-flatten-06 "Don't modifiy LIST" (lambda nil (let ((cyclic-1 (quote ...)) (cyclic-2 (quote ...))) (nconc cyclic-1 (cdr cyclic-1)) (nconc cyclic-2 (cdr cyclic-2)) (let ((fn-1307 ...) (args-1308 ...)) (let (...) (let ... ...) value-1309)) (let ((fn-1312 ...) (args-1313 ...)) (let (...) (let ... ...) value-1314)) (let ((fn-1317 ...) (args-1318 ...)) (let (...) (let ... ...) value-1319)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (1 2 3 ... ...) (1 2 3 ... ...)) :value t :explanation nil) ((should (equal ... ...)) :form (equal (1) (1)) :value t :explanation nil) ((should (equal ... ...)) :form (equal (... 2 3) (... 2 3)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-alist-or-flat-length-01 nil (lambda nil (let ((mixed (quote ...))) (let ((fn-1277 ...) (args-1278 ...)) (let (...) (let ... ...) value-1279)))) [cl-struct-ert-test-passed "" (((should (= 11 ...)) :form (= 11 11) :value t))] :passed nil] [cl-struct-ert-test list-utils-and-01 "Logical AND operation on two lists" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1542 ...) (args-1543 ...)) (let (...) (let ... ...) value-1544)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (a a 1 2 3 3 3) (a a 1 2 3 3 3)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-02 "Logical AND operation with size hint, should be identical" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1547 ...) (args-1548 ...)) (let (...) (let ... ...) value-1549)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (a a 1 2 3 3 3) (a a 1 2 3 3 3)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-03 "Logical AND operation with FLIP param" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1552 ...) (args-1553 ...)) (let (...) (let ... ...) value-1554)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (a 1 2 3) (a 1 2 3)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-04 "Logical AND operation with FLIP param should be the same as reversing order of list args" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1557 ...) (args-1558 ...)) (let (...) (let ... ...) value-1559)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (a 1 2 3) (a 1 2 3)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-05 "Logical AND operation with numeric hash-table-test" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1562 ...) (args-1563 ...)) (let (...) (let ... ...) value-1564)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (a a 1 2 3 3 3 4.0) (a a 1 2 3 3 3 4.0)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-06 "Logical AND operation with numeric hash-table-test and FLIP param" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1567 ...) (args-1568 ...)) (let (...) (let ... ...) value-1569)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (a 1 2 3 4) (a 1 2 3 4)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-07 "Logical AND operation with case-insensitive hash-table-test" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1572 ...) (args-1573 ...)) (let (...) (let ... ...) value-1574)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (A a a 1 2 3 3 3) (A a a 1 2 3 3 3)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-08 "Logical AND operation with case-insensitive hash-table-test and FLIP param" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1577 ...) (args-1578 ...)) (let (...) (let ... ...) value-1579)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (a 1 2 3) (a 1 2 3)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-09 "Logical AND operation should be identical to `cl-intersection' after sort/uniq" (lambda nil (let ((list-1 (quote ...)) (list-2 (quote ...))) (let ((fn-1582 ...) (args-1583 ...)) (let (...) (let ... ...) value-1584)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (1 2 3 a) (1 2 3 a)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-10 "Logical AND operation with two large lists" (lambda nil (let ((list-1 (number-sequence 1 10000)) (list-2 (reverse ...))) (let ((fn-1587 ...) (args-1588 ...)) (let (...) (let ... ...) value-1589)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (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 52 53 ...) (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 52 53 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-11 "Logical AND operation with large lists and size hint, should be identical" (lambda nil (let ((list-1 (number-sequence 1 10000)) (list-2 (reverse ...))) (let ((fn-1592 ...) (args-1593 ...)) (let (...) (let ... ...) value-1594)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (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 52 53 ...) (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 52 53 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-12 "Logical AND operation with large lists and FLIP param" (lambda nil (let ((list-1 (number-sequence 1 10000)) (list-2 (reverse ...))) (let ((fn-1597 ...) (args-1598 ...)) (let (...) (let ... ...) value-1599)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...) (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-13 "Logical AND operation with large lists and FLIP param should be the same as reversing order of list args" (lambda nil (let ((list-1 (number-sequence 1 10000)) (list-2 (reverse ...))) (let ((fn-1602 ...) (args-1603 ...)) (let (...) (let ... ...) value-1604)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...) (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-14 "Logical AND operation with large lists and numeric hash-table-test" (lambda nil (let ((list-1 (number-sequence 1 10000)) (list-2 (reverse ...))) (let ((fn-1607 ...) (args-1608 ...)) (let (...) (let ... ...) value-1609)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (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 52 53 ...) (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 52 53 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-15 "Logical AND operation with large lists and case-insensitive hash-table-test" (lambda nil (let ((list-1 (mapcar ... ...)) (list-2 (mapcar ... ...))) (let ((fn-1612 ...) (args-1613 ...)) (let (...) (let ... ...) value-1614)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal ("" "" "" "" "" "	" "\n" "" "\f" "
" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " " "!" "\"" "#" "$" "%" "&" "'" "(" ")" "*" "+" "," "-" "." "/" "0" "1" "2" "3" "4" "5" ...) ("" "" "" "" "" "	" "\n" "" "\f" "
" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " " "!" "\"" "#" "$" "%" "&" "'" "(" ")" "*" "+" "," "-" "." "/" "0" "1" "2" "3" "4" "5" ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-and-16 "Logical AND operation with large lists should be identical to `cl-intersection' after sort/uniq" (lambda nil (let ((list-1 (number-sequence 1 10000)) (list-2 (reverse ...))) (let ((fn-1617 ...) (args-1618 ...)) (let (...) (let ... ...) value-1619)))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (10 100 1000 10000 1001 1002 1003 1004 1005 1006 1007 1008 1009 101 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 102 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 103 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 104 1040 1041 1042 ...) (10 100 1000 10000 1001 1002 1003 1004 1005 1006 1007 1008 1009 101 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 102 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 103 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 104 1040 1041 1042 ...)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-cons-cell-p-01 nil (lambda nil (let ((fn-30 (function list-utils-cons-cell-p)) (args-31 (list ...))) (let ((value-32 ...)) (let (form-description-34) (if ... nil ...)) value-32))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cons-cell-p ...)) :form (list-utils-cons-cell-p (a b c d e f)) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cons-cell-p-02 nil (lambda nil (let ((fn-35 (function list-utils-cons-cell-p)) (args-36 (list nil))) (let ((value-37 ...)) (let (form-description-39) (if ... nil ...)) value-37))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cons-cell-p nil)) :form (list-utils-cons-cell-p nil) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cons-cell-p-03 nil (lambda nil (let ((fn-40 (function list-utils-cons-cell-p)) (args-41 (list 1))) (let ((value-42 ...)) (let (form-description-44) (if ... nil ...)) value-42))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cons-cell-p 1)) :form (list-utils-cons-cell-p 1) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cons-cell-p-04 nil (lambda nil (let ((fn-45 (function =)) (args-46 (list 2 ...))) (let ((value-47 ...)) (let (form-description-49) (if ... nil ...)) value-47))) [cl-struct-ert-test-passed "" (((should (= 2 ...)) :form (= 2 2) :value t))] :passed nil] [cl-struct-ert-test list-utils-cons-cell-p-05 nil (lambda nil (let ((fn-50 (function =)) (args-51 (list 6 ...))) (let ((value-52 ...)) (let (form-description-54) (if ... nil ...)) value-52))) [cl-struct-ert-test-passed "" (((should (= 6 ...)) :form (= 6 6) :value t))] :passed nil] [cl-struct-ert-test list-utils-cyclic-length-01 nil (lambda nil (let ((fn-687 (function =)) (args-688 (list 8 ...))) (let ((value-689 ...)) (let (form-description-691) (if ... nil ...)) value-689))) [cl-struct-ert-test-passed "" (((should (= 8 ...)) :form (= 8 8) :value t))] :passed nil] [cl-struct-ert-test list-utils-cyclic-length-02 nil (lambda nil (let ((fn-692 (function =)) (args-693 (list 7 ...))) (let ((value-694 ...)) (let (form-description-696) (if ... nil ...)) value-694))) [cl-struct-ert-test-passed "" (((should (= 7 ...)) :form (= 7 7) :value t))] :passed nil] [cl-struct-ert-test list-utils-cyclic-length-03 nil (lambda nil (let ((fn-697 (function =)) (args-698 (list 1 ...))) (let ((value-699 ...)) (let (form-description-701) (if ... nil ...)) value-699))) [cl-struct-ert-test-passed "" (((should (= 1 ...)) :form (= 1 1) :value t))] :passed nil] [cl-struct-ert-test list-utils-cyclic-length-04 nil (lambda nil (let ((fn-702 (function =)) (args-703 (list 0 ...))) (let ((value-704 ...)) (let (form-description-706) (if ... nil ...)) value-704))) [cl-struct-ert-test-passed "" (((should (= 0 ...)) :form (= 0 0) :value t))] :passed nil] [cl-struct-ert-test list-utils-cyclic-length-05 nil (lambda nil (let ((fn-707 (function =)) (args-708 (list 0 ...))) (let ((value-709 ...)) (let (form-description-711) (if ... nil ...)) value-709))) [cl-struct-ert-test-passed "" (((should (= 0 ...)) :form (= 0 0) :value t))] :passed nil] [cl-struct-ert-test list-utils-cyclic-length-06 nil (lambda nil (let ((cyclic (quote ...))) (nconc cyclic cyclic) (let ((fn-712 ...) (args-713 ...)) (let (...) (let ... ...) value-714)))) [cl-struct-ert-test-passed "" (((should (= 1 ...)) :form (= 1 1) :value t))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-01 nil (lambda nil (let ((value-762 (cl-gensym "ert-form-evaluation-aborted-"))) (let (form-description-763) (if (unwind-protect ... ... ...) nil (ert-fail form-description-763))) value-762)) [cl-struct-ert-test-passed "" (((should (let ... ... ...)) :form (let (...) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic)) :value (1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 . #7)))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-02 nil (lambda nil (let ((value-764 (cl-gensym "ert-form-evaluation-aborted-"))) (let (form-description-765) (if (unwind-protect ... ... ...) nil (ert-fail form-description-765))) value-764)) [cl-struct-ert-test-passed "" (((should (let ... ... ...)) :form (let (...) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic ...)) :value (1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 . #7)))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-03 nil (lambda nil (let ((value-766 (cl-gensym "ert-form-evaluation-aborted-"))) (let (form-description-767) (if (unwind-protect ... ... ...) nil (ert-fail form-description-767))) value-766)) [cl-struct-ert-test-passed "" (((should (let ... ... ...)) :form (let (...) (nconc cyclic ...) (list-utils-cyclic-p cyclic)) :value (8 2 3 4 5 6 7 8 2 3 4 5 6 . #6)))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-04 nil (lambda nil (let ((value-768 (cl-gensym "ert-form-evaluation-aborted-"))) (let (form-description-769) (if (not ...) nil (ert-fail form-description-769))) value-768)) [cl-struct-ert-test-passed "" (((should-not (let ... ... ...)) :form (let (...) (nconc cyclic ...) (list-utils-cyclic-p cyclic ...)) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-05 nil (lambda nil (let ((value-770 (cl-gensym "ert-form-evaluation-aborted-"))) (let (form-description-771) (if (unwind-protect ... ... ...) nil (ert-fail form-description-771))) value-770)) [cl-struct-ert-test-passed "" (((should (let ... ... ...)) :form (let (...) (nconc cyclic ...) (list-utils-cyclic-p cyclic)) :value (8 . #0)))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-06 nil (lambda nil (let ((fn-772 (function list-utils-cyclic-p)) (args-773 (list ...))) (let ((value-774 ...)) (let (form-description-776) (if ... nil ...)) value-774))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p ...)) :form (list-utils-cyclic-p (1 2 3)) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-07 nil (lambda nil (let ((fn-777 (function list-utils-cyclic-p)) (args-778 (list nil))) (let ((value-779 ...)) (let (form-description-781) (if ... nil ...)) value-779))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p nil)) :form (list-utils-cyclic-p nil) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-08 nil (lambda nil (let ((fn-782 (function list-utils-cyclic-p)) (args-783 (list ...))) (let ((value-784 ...)) (let (form-description-786) (if ... nil ...)) value-784))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p ...)) :form (list-utils-cyclic-p (1 . 2)) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-09 nil (lambda nil (let ((fn-787 (function list-utils-cyclic-p)) (args-788 (list ...))) (let ((value-789 ...)) (let (form-description-791) (if ... nil ...)) value-789))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p ...)) :form (list-utils-cyclic-p (1 2 . 3)) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-p-10 nil (lambda nil (let ((value-792 (cl-gensym "ert-form-evaluation-aborted-"))) (let (form-description-793) (if (unwind-protect ... ... ...) nil (ert-fail form-description-793))) value-792)) [cl-struct-ert-test-passed "" (((should (let ... ... ...)) :form (let (...) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic)) :value (1 . #0)))] :passed nil] [cl-struct-ert-test list-utils-cyclic-subseq-01 nil (lambda nil (let ((fn-717 (function equal)) (args-718 (list ... ...))) (let ((value-719 ...)) (let (form-description-721) (if ... nil ...)) value-719))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (1 2 3 4 5 6 7 8) (1 2 3 4 5 6 7 8)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-subseq-02 nil (lambda nil (let ((fn-722 (function equal)) (args-723 (list ... ...))) (let ((value-724 ...)) (let (form-description-726) (if ... nil ...)) value-724))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (2 3 4 5 6 7 8) (2 3 4 5 6 7 8)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-subseq-03 nil (lambda nil (let ((fn-727 (function equal)) (args-728 (list ... ...))) (let ((value-729 ...)) (let (form-description-731) (if ... nil ...)) value-729))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (2 3 4 5 6 7 8) (2 3 4 5 6 7 8)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-subseq-04 nil (lambda nil (let ((fn-732 (function equal)) (args-733 (list ... ...))) (let ((value-734 ...)) (let (form-description-736) (if ... nil ...)) value-734))) [cl-struct-ert-test-passed "" (((should (equal ... ...)) :form (equal (8) (8)) :value t :explanation nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-subseq-05 nil (lambda nil (let ((fn-737 (function list-utils-cyclic-subseq)) (args-738 (list ...))) (let ((value-739 ...)) (let (form-description-741) (if ... nil ...)) value-739))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-subseq ...)) :form (list-utils-cyclic-subseq (1 2 3)) :value nil))] :passed nil] [cl-struct-ert-test list-utils-cyclic-subseq-06 nil (lambda nil (let ((fn-742 (function list-utils-cyclic-subseq)) (args-743 (list nil))) (let ((value-744 ...)) (let (form-description-746) (if ... nil ...)) value-744))) [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-subseq nil)) :form (list-utils-cyclic-subseq nil) :value nil))] :passed nil] ...] #s(hash-table size 311 test eql rehash-size 1.5 rehash-threshold 0.8 data (list-utils-alist-flatten-01 0 list-utils-alist-flatten-02 1 list-utils-alist-flatten-03 2 list-utils-alist-flatten-04 3 list-utils-alist-flatten-05 4 list-utils-alist-flatten-06 5 list-utils-alist-or-flat-length-01 6 list-utils-and-01 7 list-utils-and-02 8 list-utils-and-03 9 list-utils-and-04 10 list-utils-and-05 11 list-utils-and-06 12 list-utils-and-07 13 list-utils-and-08 14 list-utils-and-09 15 list-utils-and-10 16 list-utils-and-11 17 list-utils-and-12 18 list-utils-and-13 19 list-utils-and-14 20 list-utils-and-15 21 list-utils-and-16 22 list-utils-cons-cell-p-01 23 list-utils-cons-cell-p-02 24 list-utils-cons-cell-p-03 25 list-utils-cons-cell-p-04 26 list-utils-cons-cell-p-05 27 list-utils-cyclic-length-01 28 list-utils-cyclic-length-02 29 list-utils-cyclic-length-03 30 list-utils-cyclic-length-04 31 list-utils-cyclic-length-05 32 list-utils-cyclic-length-06 33 list-utils-cyclic-p-01 34 list-utils-cyclic-p-02 35 list-utils-cyclic-p-03 36 list-utils-cyclic-p-04 37 list-utils-cyclic-p-05 38 list-utils-cyclic-p-06 39 list-utils-cyclic-p-07 40 list-utils-cyclic-p-08 41 list-utils-cyclic-p-09 42 list-utils-cyclic-p-10 43 list-utils-cyclic-subseq-01 44 list-utils-cyclic-subseq-02 45 list-utils-cyclic-subseq-03 46 list-utils-cyclic-subseq-04 47 list-utils-cyclic-subseq-05 48 list-utils-cyclic-subseq-06 49 ...)) [[cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-alist-flatten ...))) :form (equal (1 2 3 4 . 5) (1 2 3 4 . 5)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-alist-flatten ...))) :form (equal (1 2 3 (4 . 5)) (1 2 3 (4 . 5))) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-alist-flatten ...))) :form (equal (1 2 3 (4 . 5)) (1 2 3 (4 . 5))) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-alist-flatten ...))) :form (equal ((1 . 2) (3 . 4) (5 . 6) (7 . 8)) ((1 . 2) (3 . 4) (5 . 6) (7 . 8))) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (cons 1 2) (list-utils-alist-flatten ...))) :form (equal (1 . 2) (1 . 2)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-alist-flatten cyclic-1))) :form (equal (1 2 3 (4 . 5) (6 . 7)) (1 2 3 (4 . 5) (6 . 7))) :value t :explanation nil) ((should (equal (list-utils-linear-subseq cyclic-1) (list-utils-linear-subseq cyclic-2))) :form (equal (1) (1)) :value t :explanation nil) ((should (equal (subseq ... 0 ...) (subseq ... 0 ...))) :form (equal ((... ...) 2 3) ((... ...) 2 3)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (= 11 (list-utils-alist-or-flat-length mixed))) :form (= 11 11) :value t))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-and list-1 list-2))) :form (equal (a a 1 2 3 3 3) (a a 1 2 3 3 3)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (list-utils-and list-1 list-2) (list-utils-and list-1 list-2 nil 17))) :form (equal (a a 1 2 3 3 3) (a a 1 2 3 3 3)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-and list-1 list-2 nil nil ...))) :form (equal (a 1 2 3) (a 1 2 3)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (list-utils-and list-2 list-1) (list-utils-and list-1 list-2 nil nil ...))) :form (equal (a 1 2 3) (a 1 2 3)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-and list-1 list-2 ...))) :form (equal (a a 1 2 3 3 3 4.0) (a a 1 2 3 3 3 4.0)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-and list-1 list-2 ... nil ...))) :form (equal (a 1 2 3 4) (a 1 2 3 4)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-and list-1 list-2 ...))) :form (equal (A a a 1 2 3 3 3) (A a a 1 2 3 3 3)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (list-utils-and list-1 list-2 ... nil ...))) :form (equal (a 1 2 3) (a 1 2 3)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (sort ... ...) (sort ... ...))) :form (equal (1 2 3 a) (1 2 3 a)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (number-sequence 4 10000) (list-utils-and list-1 list-2))) :form (equal (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 52 53 ...) (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 52 53 ...)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (list-utils-and list-1 list-2) (list-utils-and list-1 list-2 nil 10000))) :form (equal (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 52 53 ...) (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 52 53 ...)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (reverse ...) (list-utils-and list-1 list-2 nil nil ...))) :form (equal (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...) (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (list-utils-and list-2 list-1) (list-utils-and list-1 list-2 nil nil ...))) :form (equal (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...) (10000 9999 9998 9997 9996 9995 9994 9993 9992 9991 9990 9989 9988 9987 9986 9985 9984 9983 9982 9981 9980 9979 9978 9977 9976 9975 9974 9973 9972 9971 9970 9969 9968 9967 9966 9965 9964 9963 9962 9961 9960 9959 9958 9957 9956 9955 9954 9953 9952 9951 ...)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (number-sequence 4 10000) (list-utils-and list-1 list-2 ...))) :form (equal (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 52 53 ...) (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 52 53 ...)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (mapcar ... ...) (list-utils-and list-1 list-2 ...))) :form (equal ("" "" "" "" "" "	" "\n" "" "\f" "
" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " " "!" "\"" "#" "$" "%" "&" "'" "(" ")" "*" "+" "," "-" "." "/" "0" "1" "2" "3" "4" "5" ...) ("" "" "" "" "" "	" "\n" "" "\f" "
" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " " "!" "\"" "#" "$" "%" "&" "'" "(" ")" "*" "+" "," "-" "." "/" "0" "1" "2" "3" "4" "5" ...)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (sort ... ...) (sort ... ...))) :form (equal (10 100 1000 10000 1001 1002 1003 1004 1005 1006 1007 1008 1009 101 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 102 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 103 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 104 1040 1041 1042 ...) (10 100 1000 10000 1001 1002 1003 1004 1005 1006 1007 1008 1009 101 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 102 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 103 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 104 1040 1041 1042 ...)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cons-cell-p (quote ...))) :form (list-utils-cons-cell-p (a b c d e f)) :value nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cons-cell-p nil)) :form (list-utils-cons-cell-p nil) :value nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cons-cell-p 1)) :form (list-utils-cons-cell-p 1) :value nil))] [cl-struct-ert-test-passed "" (((should (= 2 (list-utils-cons-cell-p ...))) :form (= 2 2) :value t))] [cl-struct-ert-test-passed "" (((should (= 6 (list-utils-cons-cell-p ...))) :form (= 6 6) :value t))] [cl-struct-ert-test-passed "" (((should (= 8 (let ... ... ...))) :form (= 8 8) :value t))] [cl-struct-ert-test-passed "" (((should (= 7 (let ... ... ...))) :form (= 7 7) :value t))] [cl-struct-ert-test-passed "" (((should (= 1 (let ... ... ...))) :form (= 1 1) :value t))] [cl-struct-ert-test-passed "" (((should (= 0 (list-utils-cyclic-length ...))) :form (= 0 0) :value t))] [cl-struct-ert-test-passed "" (((should (= 0 (list-utils-cyclic-length ...))) :form (= 0 0) :value t))] [cl-struct-ert-test-passed "" (((should (= 1 (list-utils-cyclic-length cyclic))) :form (= 1 1) :value t))] [cl-struct-ert-test-passed "" (((should (let (...) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic))) :form (let ((cyclic ...)) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic)) :value (1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 . #7)))] [cl-struct-ert-test-passed "" (((should (let (...) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic ...))) :form (let ((cyclic ...)) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic (quote perfect))) :value (1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 . #7)))] [cl-struct-ert-test-passed "" (((should (let (...) (nconc cyclic ...) (list-utils-cyclic-p cyclic))) :form (let ((cyclic ...)) (nconc cyclic (cdr cyclic)) (list-utils-cyclic-p cyclic)) :value (8 2 3 4 5 6 7 8 2 3 4 5 6 . #6)))] [cl-struct-ert-test-passed "" (((should-not (let (...) (nconc cyclic ...) (list-utils-cyclic-p cyclic ...))) :form (let ((cyclic ...)) (nconc cyclic (cdr cyclic)) (list-utils-cyclic-p cyclic (quote perfect))) :value nil))] [cl-struct-ert-test-passed "" (((should (let (...) (nconc cyclic ...) (list-utils-cyclic-p cyclic))) :form (let ((cyclic ...)) (nconc cyclic (last cyclic)) (list-utils-cyclic-p cyclic)) :value (8 . #0)))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p (quote ...))) :form (list-utils-cyclic-p (1 2 3)) :value nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p nil)) :form (list-utils-cyclic-p nil) :value nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p (cons 1 2))) :form (list-utils-cyclic-p (1 . 2)) :value nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-p (list* 1 2 3))) :form (list-utils-cyclic-p (1 2 . 3)) :value nil))] [cl-struct-ert-test-passed "" (((should (let (...) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic))) :form (let ((cyclic ...)) (nconc cyclic cyclic) (list-utils-cyclic-p cyclic)) :value (1 . #0)))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (let ... ... ...))) :form (equal (1 2 3 4 5 6 7 8) (1 2 3 4 5 6 7 8)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (let ... ... ...))) :form (equal (2 3 4 5 6 7 8) (2 3 4 5 6 7 8)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (let ... ... ...))) :form (equal (2 3 4 5 6 7 8) (2 3 4 5 6 7 8)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should (equal (quote ...) (let ... ... ...))) :form (equal (8) (8)) :value t :explanation nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-subseq (quote ...))) :form (list-utils-cyclic-subseq (1 2 3)) :value nil))] [cl-struct-ert-test-passed "" (((should-not (list-utils-cyclic-subseq nil)) :form (list-utils-cyclic-subseq nil) :value nil))] ...] [(22430 15718 700892 0) (22430 15718 701022 0) (22430 15718 701144 0) (22430 15718 701248 0) (22430 15718 701347 0) (22430 15718 701421 0) (22430 15718 701579 0) (22430 15718 701657 0) (22430 15718 701736 0) (22430 15718 701819 0) (22430 15718 701897 0) (22430 15718 701979 0) (22430 15718 702063 0) (22430 15718 702144 0) (22430 15718 702279 0) (22430 15718 702398 0) (22430 15718 702568 0) (22430 15718 720321 0) (22430 15718 754613 0) (22430 15718 773489 0) (22430 15718 794579 0) (22430 15718 820120 0) (22430 15719 140678 0) (22430 15720 175770 0) (22430 15720 175857 0) (22430 15720 175931 0) (22430 15720 176002 0) (22430 15720 176074 0) (22430 15720 176145 0) (22430 15720 176226 0) (22430 15720 176304 0) (22430 15720 176380 0) (22430 15720 176450 0) (22430 15720 176521 0) (22430 15720 176595 0) (22430 15720 176676 0) (22430 15720 176762 0) (22430 15720 176838 0) (22430 15720 176923 0) (22430 15720 177000 0) (22430 15720 177073 0) (22430 15720 177144 0) (22430 15720 177216 0) (22430 15720 177289 0) (22430 15720 177362 0) (22430 15720 177476 0) (22430 15720 177582 0) (22430 15720 177694 0) (22430 15720 177789 0) (22430 15720 177861 0) ...] [(22430 15718 700992 0) (22430 15718 701118 0) (22430 15718 701224 0) (22430 15718 701324 0) (22430 15718 701397 0) (22430 15718 701554 0) (22430 15718 701633 0) (22430 15718 701713 0) (22430 15718 701795 0) (22430 15718 701873 0) (22430 15718 701956 0) (22430 15718 702039 0) (22430 15718 702121 0) (22430 15718 702255 0) (22430 15718 702374 0) (22430 15718 702542 0) (22430 15718 720270 0) (22430 15718 754559 0) (22430 15718 773429 0) (22430 15718 794519 0) (22430 15718 820069 0) (22430 15719 140623 0) (22430 15720 175726 0) (22430 15720 175830 0) (22430 15720 175905 0) (22430 15720 175978 0) (22430 15720 176050 0) (22430 15720 176120 0) (22430 15720 176201 0) (22430 15720 176280 0) (22430 15720 176355 0) (22430 15720 176425 0) (22430 15720 176497 0) (22430 15720 176571 0) (22430 15720 176650 0) (22430 15720 176737 0) (22430 15720 176813 0) (22430 15720 176898 0) (22430 15720 176975 0) (22430 15720 177049 0) (22430 15720 177120 0) (22430 15720 177192 0) (22430 15720 177263 0) (22430 15720 177338 0) (22430 15720 177451 0) (22430 15720 177556 0) (22430 15720 177668 0) (22430 15720 177762 0) (22430 15720 177836 0) (22430 15720 177909 0) ...] 88 0 0 0 0 (22430 15718 700833 0) nil nil [cl-struct-ert-test list-utils-insert-after-04 nil (lambda nil (let ((fn-1391 (function list-utils-insert-after)) (args-1392 (list (quote ...) 6 (quote elt)))) (let ((value-1393 (quote ert-form-evaluation-aborted-1394))) (let (form-description-1395) (let (... ...) (condition-case -condition- ... ...) (if errorp1396 nil ...))) value-1393))) nil :passed nil] 0.0] [cl-struct-ert-test list-utils-insert-after-04 nil (lambda nil (let ((fn-1391 (function list-utils-insert-after)) (args-1392 (list (quote (1 2 3 4 5)) 6 (quote elt)))) (let ((value-1393 (quote ert-form-evaluation-aborted-1394))) (let (form-description-1395) (let ((errorp1396 nil) (form-description-fn-1397 ...)) (condition-case -condition- (unwind-protect ... ... ...) (error ... ... ...)) (if errorp1396 nil (ert-fail ...)))) value-1393))) nil :passed nil] #[385 "\306\307\"\203G\211\211G\310U\203\211@\202\311\312\313GD\"\314\315\316H>\204,\311\317\320D\"\210\321HG\322\316H>\204A\311\317\320D\"\210\323H!#\207\306\324\"\203\303
\211\211G\321U\203_\211
A\262\242\202f\311\312\313GD\"
@\325!\326!\316H>\204~\311\317\320D\"\210\327H\314\330\204\213\331\202\214\332\333!\334	!\316U\203\237\331\202\244\335\336	\"\316U\203\257\331\202\264\335\337	\"\322\f\316H>\204\306\311\317\320D\"\210\f\340H!\316U\203\326\331\202\333\335\341\n\"&\210\316U\204O
\314\342\"\210\316H>\204\371\311\317\320D\"\210\321H\343\313\211T\211\262GW\203H
H\262
\316H	>\204
\311\317\344D\"\210
\345H\262
\346\"\204\377\314\347\350\313\"\316H	>\204@
\311\317\344D\"\210\310H#\210\202\377\266\314\351\331\"\210
\316U?\205\300
\314\352\"\210\316H>\204k
\311\317\320D\"\210\321H\343\313\211T\211\262GW\203\272
H\262
\316H	>\204\220
\311\317\344D\"\210
\345H\262
\353
\354\"\203q
\314\347\350\313\"\316H	>\204\262
\311\317\344D\"\210\310H#\210\202q
\266\314\351\331\"\266\203\207\306\355\"\203\314
\313\207\306\356\"\203\354\211\211G\357U\203\344
\211
A\262\242\202\353
\311\312\313GD\"
\211A\262\242@\346\"\204\225\360
!\203)\211G\357Y\203)\211\316H\n>\203)\314\361\316H	>\204!\311\317\344D\"\210\310H\"\210\202\225\360
!\203%\211G\362Y\203%\211\316H>\203%\314\363\316H	>\204P\311\317\344D\"\210\310H\"\210\364\365!r\211q\210\366\316\367\370\371!\372\"\321$\216\373\316H>\204x\311\317\374D\"\210\345H!\210eb\210m\204\237`\313\210`\211\f\\^\262
\314\351\375\"\"\266\310y\210\202\200*\210\364\365!r\211q\210\366\316\367\370\371!\376\"\321$\216\377!\210\201Dc\210\201E\201F\201G@A\201H\316H>\204\335\311\317\374D\"\210\357H!\210+dSb\210\201I\201J!\204\371\201K\201L!\210\201M\310!\210\314\201N\316H	>\204\311\317\344D\"\210\310H\"\210\314\351\201O \"\210*\210\202\225\360
!\203W\211G\357Y\203W\211\316HB>\203W\314\201P\316H	>\204O\311\317\344D\"\210\310H\"\210\202\225\360
!\203\211\211G\362Y\203\211\211\316HC>\203\211\314\201Q\316H	>\204\201\311\317\344D\"\210\310H\"\210\202\225\201R\201S\201T#\210\201U\316H>\204\250\311\317\320D\"\210\321HG!\201V\201UG!\201W\201X\260\314
\350\346\"\"\201Y\"T\316H	>\204\344\311\317\344\nD\"\210\310H$\266\202\207\201R\201Z\201[#\205\373\313\207" [cl-struct-ert--stats-tags cl-struct-ert-test-tags cl-struct-ert-test-passed-tags cl-struct-ert-test-result-with-condition-tags ert-batch-backtrace-right-margin print-length eql run-started 1 signal wrong-number-of-arguments nil message "Running %s tests (%s)" 0 wrong-type-argument ert--stats 2 ert--format-time-iso8601 12 run-ended ert-stats-completed-unexpected ert-stats-skipped 9 "\n%sRan %s tests, %s results as expected%s%s (%s)%s\n" "" "Aborted: " ert-stats-total ert-stats-completed-expected format ", %s unexpected" ", %s skipped" 13 "\n%s expected failures" "%s unexpected results:" -1 ert-test 4 ert-test-result-expected-p "%9s  %S" ert-string-for-test-result "%s" "%s skipped results:" ert-test-result-type-p :skipped test-started test-ended 3 vectorp "Test %S passed unexpectedly" ...] 20 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"])
  ert-run-tests((and "" (not (tag :interactive))) #[385 "\306\307\"\203G\211\211G\310U\203\211@\202\311\312\313GD\"\314\315\316H>\204,\311\317\320D\"\210\321HG\322\316H>\204A\311\317\320D\"\210\323H!#\207\306\324\"\203\303
\211\211G\321U\203_\211
A\262\242\202f\311\312\313GD\"
@\325!\326!\316H>\204~\311\317\320D\"\210\327H\314\330\204\213\331\202\214\332\333!\334	!\316U\203\237\331\202\244\335\336	\"\316U\203\257\331\202\264\335\337	\"\322\f\316H>\204\306\311\317\320D\"\210\f\340H!\316U\203\326\331\202\333\335\341\n\"&\210\316U\204O
\314\342\"\210\316H>\204\371\311\317\320D\"\210\321H\343\313\211T\211\262GW\203H
H\262
\316H	>\204
\311\317\344D\"\210
\345H\262
\346\"\204\377\314\347\350\313\"\316H	>\204@
\311\317\344D\"\210\310H#\210\202\377\266\314\351\331\"\210
\316U?\205\300
\314\352\"\210\316H>\204k
\311\317\320D\"\210\321H\343\313\211T\211\262GW\203\272
H\262
\316H	>\204\220
\311\317\344D\"\210
\345H\262
\353
\354\"\203q
\314\347\350\313\"\316H	>\204\262
\311\317\344D\"\210\310H#\210\202q
\266\314\351\331\"\266\203\207\306\355\"\203\314
\313\207\306\356\"\203\354\211\211G\357U\203\344
\211
A\262\242\202\353
\311\312\313GD\"
\211A\262\242@\346\"\204\225\360
!\203)\211G\357Y\203)\211\316H\n>\203)\314\361\316H	>\204!\311\317\344D\"\210\310H\"\210\202\225\360
!\203%\211G\362Y\203%\211\316H>\203%\314\363\316H	>\204P\311\317\344D\"\210\310H\"\210\364\365!r\211q\210\366\316\367\370\371!\372\"\321$\216\373\316H>\204x\311\317\374D\"\210\345H!\210eb\210m\204\237`\313\210`\211\f\\^\262
\314\351\375\"\"\266\310y\210\202\200*\210\364\365!r\211q\210\366\316\367\370\371!\376\"\321$\216\377!\210\201Dc\210\201E\201F\201G@A\201H\316H>\204\335\311\317\374D\"\210\357H!\210+dSb\210\201I\201J!\204\371\201K\201L!\210\201M\310!\210\314\201N\316H	>\204\311\317\344D\"\210\310H\"\210\314\351\201O \"\210*\210\202\225\360
!\203W\211G\357Y\203W\211\316HB>\203W\314\201P\316H	>\204O\311\317\344D\"\210\310H\"\210\202\225\360
!\203\211\211G\362Y\203\211\211\316HC>\203\211\314\201Q\316H	>\204\201\311\317\344D\"\210\310H\"\210\202\225\201R\201S\201T#\210\201U\316H>\204\250\311\317\320D\"\210\321HG!\201V\201UG!\201W\201X\260\314
\350\346\"\"\201Y\"T\316H	>\204\344\311\317\344\nD\"\210\310H$\266\202\207\201R\201Z\201[#\205\373\313\207" [cl-struct-ert--stats-tags cl-struct-ert-test-tags cl-struct-ert-test-passed-tags cl-struct-ert-test-result-with-condition-tags ert-batch-backtrace-right-margin print-length eql run-started 1 signal wrong-number-of-arguments nil message "Running %s tests (%s)" 0 wrong-type-argument ert--stats 2 ert--format-time-iso8601 12 run-ended ert-stats-completed-unexpected ert-stats-skipped 9 "\n%sRan %s tests, %s results as expected%s%s (%s)%s\n" "" "Aborted: " ert-stats-total ert-stats-completed-expected format ", %s unexpected" ", %s skipped" 13 "\n%s expected failures" "%s unexpected results:" -1 ert-test 4 ert-test-result-expected-p "%9s  %S" ert-string-for-test-result "%s" "%s skipped results:" ert-test-result-type-p :skipped test-started test-ended 3 vectorp "Test %S passed unexpectedly" ...] 20 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"])
  ert-run-tests-batch((and "" (not (tag :interactive))))
  ert-run-tests-batch-and-exit((and "" (not (tag :interactive))))
  (progn (fset (quote ert--print-backtrace) (quote ignore)) (ert-run-tests-batch-and-exit (quote (and "" (not (tag :interactive))))))
  eval((progn (fset (quote ert--print-backtrace) (quote ignore)) (ert-run-tests-batch-and-exit (quote (and "" (not (tag :interactive)))))))
  command-line-1(("-L" "." "-L" ".." "-l" "cl" "-l" "ert" "-l" "list-utils-test.el" "--eval" "(progn                                                (fset 'ert--print-backtrace 'ignore)                 (ert-run-tests-batch-and-exit '(and \"\" (not (tag :interactive)))))"))
  command-line()
  normal-top-level()

make: *** [test-batch] Error 1