/[gcl]/gcl/ansi-tests/bit-orc2.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/bit-orc2.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by pfdietz, Mon Jun 13 13:01:35 2005 UTC revision 1.6 by pfdietz, Mon Jul 25 00:43:56 2005 UTC
# Line 5  Line 5 
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)))
# Line 234  Line 236 
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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26