5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
|
(compile-and-load "bit-aux.lsp") |
9 |
|
|
10 |
(deftest bit-orc2.1 |
(deftest bit-orc2.1 |
11 |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
12 |
(s2 (make-array nil :initial-element 0 :element-type 'bit))) |
(s2 (make-array nil :initial-element 0 :element-type 'bit))) |
236 |
(values (%f) (let ((bv (%f))) (setf (elt bv 0) 0) bv) (%f))) |
(values (%f) (let ((bv (%f))) (setf (elt bv 0) 0) bv) (%f))) |
237 |
#*10101 #*00101 #*10101) |
#*10101 #*00101 #*10101) |
238 |
|
|
239 |
|
;;; Random tests |
240 |
|
|
241 |
|
(deftest bit-orc2.random.1 |
242 |
|
(bit-random-test-fn #'bit-orc2 #'logorc2) |
243 |
|
nil) |
244 |
|
|
245 |
;;; Error tests |
;;; Error tests |
246 |
|
|
247 |
(deftest bit-orc2.error.1 |
(deftest bit-orc2.error.1 |