diff options
Diffstat (limited to 'tests/data/heap.scm')
| -rw-r--r-- | tests/data/heap.scm | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/tests/data/heap.scm b/tests/data/heap.scm deleted file mode 100644 index 351d20c..0000000 --- a/tests/data/heap.scm +++ /dev/null @@ -1,33 +0,0 @@ -;;; Chickadee Game Toolkit -;;; Copyright © 2021 David Thompson <davet@gnu.org> -;;; -;;; Chickadee is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published -;;; by the Free Software Foundation, either version 3 of the License, -;;; or (at your option) any later version. -;;; -;;; Chickadee is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program. If not, see -;;; <http://www.gnu.org/licenses/>. - -(define-module (tests data heap) - #:use-module (tests utils) - #:use-module (srfi srfi-64) - #:use-module (chickadee data heap)) - -(with-tests "heap" - (let ((h (make-heap))) - (heap-insert! h 3) - (heap-insert! h 1) - (heap-insert! h 2) - (test-equal "heap-insert!" (heap-size h) 3) - (test-equal "heap-min!" (heap-min h) 1) - (heap-remove! h) - (test-equal "heap-remove!" (heap-min h) 2) - (heap-clear! h) - (test-assert "heap-clear!" (heap-empty? h)))) |