1 ;;; alloc-tests.el --- alloc tests -*- lexical-binding: t -*-
3 ;; Copyright (C) 2015-2017 Free Software Foundation, Inc.
5 ;; Author: Daniel Colascione <dancol@dancol.org>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
32 (ert-deftest finalizer-object-type
()
33 (should (equal (type-of (make-finalizer nil
)) 'finalizer
)))
35 (ert-deftest record-1
()
36 (let ((x (record 'foo
1 2 3)))
38 (should (eq (type-of x
) 'foo
))
39 (should (eq (aref x
0) 'foo
))
40 (should (eql (aref x
3) 3))
41 (should (eql (length x
) 4))))
43 (ert-deftest record-2
()
44 (let ((x (make-record 'bar
1 0)))
45 (should (eql (length x
) 2))
46 (should (eql (aref x
1) 0))))
48 (ert-deftest record-3
()
49 (let* ((x (record 'foo
1 2 3))
50 (y (copy-sequence x
)))
53 (should (eql (aref x i
) (aref y i
))))))