/[gcl]/gcl/ansi-tests/map-into.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/map-into.lsp

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

revision 1.14 by pfdietz, Sat Sep 25 15:08:58 2004 UTC revision 1.15 by pfdietz, Fri May 6 13:34:41 2005 UTC
# Line 454  Line 454 
454  ;;; Error cases  ;;; Error cases
455    
456  (deftest map-into.error.1  (deftest map-into.error.1
457    (signals-error (map-into 'a #'(lambda () nil)) type-error)    (check-type-error #'(lambda (x) (map-into x (constantly nil))) #'sequencep)
458    t)    nil)
459    
460  ;;; The next test was changed because if the first argument  ;;; The next test was changed because if the first argument
461  ;;; is NIL, map-into is said to 'return nil immediately', so  ;;; is NIL, map-into is said to 'return nil immediately', so
# Line 469  Line 469 
469    nil)    nil)
470    
471  (deftest map-into.error.3  (deftest map-into.error.3
472    (signals-error (map-into (copy-seq '(a b c)) #'cons '(d e f) 100)    (check-type-error #'(lambda (x) (map-into (copy-seq '(a b c)) #'cons '(d e f) x))
473                   type-error)                      #'sequencep)
474    t)    nil)
475    
476  (deftest map-into.error.4  (deftest map-into.error.4
477    (signals-error (map-into) program-error)    (signals-error (map-into) program-error)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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