File: test-reverse-container.lisp

package info (click to toggle)
cl-containers 20170403-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,072 kB
  • ctags: 1,387
  • sloc: lisp: 8,341; makefile: 14
file content (11 lines) | stat: -rw-r--r-- 255 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
 
(in-package #:cl-containers-test)

;; WIP

(deftestsuite test-reverse-container ()
  ())

(addtest (test-reverse-container)
  test-list-container
  (let ((c (make-container 'list-container :initial-contents '(1 2 3 4))))
    (iterate-elements c #'print)))