/[gcl]/gcl/ansi-tests/set-syntax-from-char.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/set-syntax-from-char.lsp

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

revision 1.5 by pfdietz, Sat Feb 5 16:45:40 2005 UTC revision 1.6 by pfdietz, Mon Feb 7 03:09:11 2005 UTC
# Line 24  Line 24 
24              ((or string symbol) (name-char (string c)))              ((or string symbol) (name-char (string c)))
25              (t nil)))              (t nil)))
26    (when c    (when c
27      (format t "~A ~A~%" c (char-name c))      ;; (format t "~A ~A~%" c (char-name c))
28      `(def-set-syntax-from-char-test      `(def-set-syntax-from-char-test
29         ,(intern (concatenate 'string "SET-SYNTAX-FROM-CHAR-TRAIT-X-" (or (char-name c)         ,(intern (concatenate 'string "SET-SYNTAX-FROM-CHAR-TRAIT-X-" (or (char-name c)
30                                                                           (string c)))                                                                           (string c)))
# Line 66  Line 66 
66    
67  ;;; Turning characters into single escape characters  ;;; Turning characters into single escape characters
68    
69  (deftest set-syntax-from-char.single-escape  (deftest set-syntax-from-char.single-escape.1
70    (loop for c across +standard-chars+    (loop for c across +standard-chars+
71          nconc          nconc
72          (with-standard-io-syntax          (with-standard-io-syntax
# Line 80  Line 80 
80                 (list (list c results)))))))                 (list (list c results)))))))
81    nil)    nil)
82    
83    (deftest set-syntax-from-char.single-escape.2
84      (loop for c across +standard-chars+
85            unless (eql c #\")
86            nconc
87            (with-standard-io-syntax
88             (let ((*readtable* (copy-readtable nil))
89                   (*package* (find-package "CL-TEST")))
90               (let ((results
91                      (list
92                       (set-syntax-from-char c #\\)
93                       (read-from-string (concatenate 'string
94                                                      (list #\" c #\" #\"))))))
95                 (unless (equal results '(t "\""))
96                   (list (list c results)))))))
97      nil)
98    
99    
100  (deftest set-syntax-from-char.multiple-escape  (deftest set-syntax-from-char.multiple-escape
101    (loop for c across +standard-chars+    (loop for c across +standard-chars+
102          nconc          nconc
# Line 454  Line 471 
471               (list (list c results)))               (list (list c results)))
472             )))             )))
473    nil)    nil)
   
   

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

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