Commit ff7d1c8b authored by Robert Goldman's avatar Robert Goldman
Browse files

Fix issue 30 - testing value of `hash-table-size`.

As far as I can tell from the spec, the meaning of `hash-table-size`
is not dictated, and implementations are free to return just about
anything; it's just a way to provide useful information (hints) when
creating a new hash-table.

I disabled this test on Allegro originally, but Attila Lendvai
proposes we simply remove it altogether, as this commit does.
parent d0e33584
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -283,7 +283,7 @@
            (eql-copy (copy-hash-table orig :test 'eql))
            (equal-copy (copy-hash-table orig :test 'equal))
            (equalp-copy (copy-hash-table orig :test 'equalp)))
        (list #-allegro (eql (hash-table-size eq-copy) (hash-table-size orig))
        (list
              (eql (hash-table-rehash-size eq-copy)
                   (hash-table-rehash-size orig))
              (hash-table-count eql-copy)
@@ -293,7 +293,7 @@
              (gethash (copy-seq foo) equal-copy)
              (gethash "FOO" equal-copy)
              (gethash "FOO" equalp-copy))))
  (#-allegro t t 2 t nil t t nil t))
  (t 2 t nil t t nil t))

(deftest copy-hash-table.2
    (let ((ht (make-hash-table))