;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Jan 26 21:30:42 2003
;;;; Contains: Tests of HASH-TABLE and related interface



(deftest hash-table.1
  (notnot-mv (find-class 'hash-table))
  t)

(deftest hash-table.2
  (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
                       #0aNIL #2a((a b)(c d)) #p"foo"
                       "bar" #\a 3/5 #c(1.0 2.0))
        when (typep e 'hash-table)
        collect e)
  nil)

(deftest hash-table.3
  (let ((c (find-class 'hash-table)))
    (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
                         #0aNIL #2a((a b)(c d)) #p"foo"
                         "bar" #\a 3/5 #c(1.0 2.0))
          when (typep e c)
          collect e))
  nil)

(deftest hash-table.4
  (notnot-mv (typep (make-hash-table) 'hash-table))
  t)

(deftest hash-table.5
  (notnot-mv (typep (make-hash-table) (find-class 'hash-table)))
  t)