hash-table-size.lsp 466 Bytes
Newer Older
1 2 3 4 5 6 7 8
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Fri Nov 28 05:23:45 2003
;;;; Contains: Tests for HASH-TABLE-SIZE

(in-package :cl-test)

(deftest hash-table-size.error.1
9 10
  (signals-error (hash-table-size) program-error)
  t)
11 12

(deftest hash-table-size.error.2
13
  (signals-error (hash-table-size (make-hash-table) nil)
sds's avatar
sds committed
14
                 program-error)
15
  t)
16 17

(deftest hash-table-size.error.3
18
  (check-type-error #'hash-table-size #'hash-table-p)
19
  nil)