6 |
|
|
7 |
(in-package :cl-test) |
(in-package :cl-test) |
8 |
|
|
9 |
|
(compile-and-load "bit-aux.lsp") |
10 |
|
|
11 |
(deftest bit-eqv.1 |
(deftest bit-eqv.1 |
12 |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
13 |
(s2 (make-array nil :initial-element 0 :element-type 'bit))) |
(s2 (make-array nil :initial-element 0 :element-type 'bit))) |
233 |
|
|
234 |
(def-fold-test bit-eqv.fold.1 (bit-eqv #*01101 #*10100)) |
(def-fold-test bit-eqv.fold.1 (bit-eqv #*01101 #*10100)) |
235 |
|
|
236 |
|
;;; Random tests |
237 |
|
|
238 |
|
(deftest bit-eqv.random.1 |
239 |
|
(bit-random-test-fn #'bit-eqv #'logeqv) |
240 |
|
nil) |
241 |
|
|
242 |
;;; Error tests |
;;; Error tests |
243 |
|
|
244 |
(deftest bit-eqv.error.1 |
(deftest bit-eqv.error.1 |