← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to ansi-tests/clrhash.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
ansi-tests/clrhash.lsp
 
1
;-*- Mode:     Lisp -*-
 
2
;;;; Author:   Paul Dietz
 
3
;;;; Created:  Fri Nov 28 09:33:40 2003
 
4
;;;; Contains: Tests of CLRHASH
 
5
 
 
6
(in-package :cl-test)
 
7
 
 
8
(deftest clrhash.1
 
9
  (let ((table (make-hash-table)))
 
10
    (setf (gethash 'a table) 'b)
 
11
    (values
 
12
     (hash-table-count table)
 
13
     (equalt (multiple-value-list (clrhash table))
 
14
             (list table))
 
15
     (hash-table-count table)))
 
16
  1 t 0)
 
17
 
 
18
(deftest clrhash.2
 
19
  (let ((table (make-hash-table :test 'eq)))
 
20
    (setf (gethash 'a table) 'b)
 
21
    (values
 
22
     (hash-table-count table)
 
23
     (equalt (multiple-value-list (clrhash table))
 
24
             (list table))
 
25
     (hash-table-count table)))
 
26
  1 t 0)
 
27
 
 
28
(deftest clrhash.3
 
29
  (let ((table (make-hash-table :test 'equal)))
 
30
    (setf (gethash 'a table) 'b)
 
31
    (values
 
32
     (hash-table-count table)
 
33
     (equalt (multiple-value-list (clrhash table))
 
34
             (list table))
 
35
     (hash-table-count table)))
 
36
  1 t 0)
 
37
 
 
38
(deftest clrhash.4
 
39
  (let ((table (make-hash-table :test 'equalp)))
 
40
    (setf (gethash 'a table) 'b)
 
41
    (values
 
42
     (hash-table-count table)
 
43
     (equalt (multiple-value-list (clrhash table))
 
44
             (list table))
 
45
     (hash-table-count table)))
 
46
  1 t 0)
 
47
 
 
48
(deftest clrhash.5
 
49
  (let ((table (make-hash-table :test 'eql)))
 
50
    (setf (gethash 'a table) 'b)
 
51
    (values
 
52
     (hash-table-count table)
 
53
     (equalt (multiple-value-list (clrhash table))
 
54
             (list table))
 
55
     (hash-table-count table)))
 
56
  1 t 0)
 
57
 
 
58
;;;
 
59
 
 
60
(deftest clrhash.error.1
 
61
  (signals-error (clrhash) program-error)
 
62
  t)
 
63
 
 
64
(deftest clrhash.error.2
 
65
  (signals-error (clrhash (make-hash-table) nil)
 
66
                 program-error)
 
67
  t)
 
68
 
 
69