File: test-set-container.lisp

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

(deftestsuite test-set-container () 
  ((c (make-container 'set-container :initial-contents '(1 2 3 3 3 4)))))

(addtest (test-set-container)
  (ensure-same (size c) 6))
    
(addtest (test-set-container)
  (ensure-same (count-elements c 3) 3)
  (ensure-same (count-elements c 1) 1))