/[gcl]/gcl/ansi-tests/make-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-string.lsp

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

revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.4 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 72  Line 72 
72           ))           ))
73    t)    t)
74    
75  ;;; Error cases  ;;; Keyword tests
76    ;
77    (deftest make-string.allow-other-keys.1
78      (make-string 5 :allow-other-keys t :initial-element #\a)
79      "aaaaa")
80    
81    (deftest make-string.allow-other-keys.2
82      (make-string 5 :initial-element #\a :allow-other-keys t)
83      "aaaaa")
84    
85    (deftest make-string.allow-other-keys.3
86      (make-string 5 :initial-element #\a :allow-other-keys t
87                   :bad t)
88      "aaaaa")
89    
90    (deftest make-string.allow-other-keys.4
91      (make-string 5 :bad t :allow-other-keys t :allow-other-keys nil
92                   :initial-element #\a)
93      "aaaaa")
94    
95    (deftest make-string.allow-other-keys.5
96      (make-string 5 :allow-other-keys t :bad t :allow-other-keys nil
97                   :initial-element #\a)
98      "aaaaa")
99    
100    (deftest make-string.allow-other-keys.6
101      (make-string 5 :allow-other-keys t :allow-other-keys nil :bad nil
102                   :initial-element #\a)
103      "aaaaa")
104    
105    (deftest make-string.keywords.7
106      (make-string 5 :initial-element #\a :initial-element #\b)
107      "aaaaa")
108    
109    ;; Error cases
110    
111  (deftest make-string.error.1  (deftest make-string.error.1
112    (classify-error (make-string))    (classify-error (make-string))

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