/[gcl]/gcl/ansi-tests/nstring-downcase.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/nstring-downcase.lsp

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 67  Line 67 
67     ("abcde" "abcDe" "abcDE")     ("abcde" "abcDe" "abcDE")
68     ("abcde" "abcdE")))     ("abcde" "abcdE")))
69    
70    ;;; Error cases
71    
72    (deftest nstring-downcase.error.1
73      (classify-error (nstring-downcase))
74      program-error)
75    
76    (deftest nstring-downcase.error.2
77      (classify-error (nstring-downcase (copy-seq "abc") :bad t))
78      program-error)
79    
80    (deftest nstring-downcase.error.3
81      (classify-error (nstring-downcase (copy-seq "abc") :start))
82      program-error)
83    
84    (deftest nstring-downcase.error.4
85      (classify-error (nstring-downcase (copy-seq "abc") :bad t
86                                          :allow-other-keys nil))
87      program-error)
88    
89    (deftest nstring-downcase.error.5
90      (classify-error (nstring-downcase (copy-seq "abc") :end))
91      program-error)
92    
93    (deftest nstring-downcase.error.6
94      (classify-error (nstring-downcase (copy-seq "abc") 1 2))
95      program-error)
96    
97    
98    

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

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