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

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

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

revision 1.6 by pfdietz, Mon Jun 13 14:24:44 2005 UTC revision 1.7 by pfdietz, Mon Jul 25 00:43:56 2005 UTC
# Line 6  Line 6 
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)))
# Line 231  Line 233 
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

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

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