/[gcl]/gcl/ansi-tests/logand.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/logand.lsp

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

revision 1.3 by pfdietz, Sat Jan 17 18:38:50 2004 UTC revision 1.4 by pfdietz, Fri May 6 13:34:41 2005 UTC
# Line 10  Line 10 
10  ;;; Error tests  ;;; Error tests
11    
12  (deftest logand.error.1  (deftest logand.error.1
13    (loop for x in *mini-universe*    (check-type-error #'logand #'integerp)
         unless (or (integerp x)  
                    (eval `(signals-error (logand ',x) type-error)))  
         collect x)  
14    nil)    nil)
15    
16  (deftest logand.error.2  (deftest logand.error.2
17    (loop for x in *mini-universe*    (check-type-error #'(lambda (x) (logand 0 x)) #'integerp)
18          unless (or (integerp x)    nil)
19                     (eval `(signals-error (logand 0 ',x) type-error)))  
20          collect x)  (deftest logand.error.3
21      (check-type-error #'(lambda (x) (logand x 1)) #'integerp)
22    nil)    nil)
23    
24  ;;; Non-error tests  ;;; Non-error tests

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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