5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest format.&.1 |
(def-format-test format.&.1 |
9 |
(format nil "~0&") |
"~0&" nil "") |
10 |
"") |
|
11 |
|
(def-format-test format.&.2 |
12 |
(deftest format.&.2 |
"~&" nil "") |
13 |
(format nil "~&") |
|
14 |
"") |
(def-format-test format.&.3 |
15 |
|
"X~&" nil #.(concatenate 'string "X" (string #\Newline))) |
16 |
(deftest format.&.3 |
|
17 |
(format nil "X~&") |
(def-format-test format.&.4 |
18 |
"X |
"X~%~&" nil #.(concatenate 'string "X" (string #\Newline))) |
|
") |
|
|
|
|
|
(deftest format.&.4 |
|
|
(format nil "X~%~&") |
|
|
"X |
|
|
") |
|
19 |
|
|
20 |
(deftest format.&.5 |
(deftest format.&.5 |
21 |
(loop for i from 1 to 100 |
(loop for i from 1 to 100 |
35 |
collect i) |
collect i) |
36 |
nil) |
nil) |
37 |
|
|
38 |
(deftest format.&.7 |
(def-format-test format.&.7 |
39 |
(format nil "~v&" nil) |
"~v&" (nil) "") |
40 |
"") |
|
41 |
|
(def-format-test format.&.8 |
42 |
(deftest format.&.8 |
"X~v&" (nil) #.(concatenate 'string "X" (string #\Newline))) |
|
(format nil "X~v&" nil) |
|
|
"X |
|
|
") |
|
43 |
|
|
44 |
(deftest format.&.9 |
(deftest format.&.9 |
45 |
(loop for i from 1 to 100 |
(loop for i from 1 to 100 |
58 |
collect i) |
collect i) |
59 |
nil) |
nil) |
60 |
|
|
61 |
(deftest format.&.11 |
(def-format-test format.&.11 |
62 |
(format nil "X~V%" 0) |
"X~V%" (0) "X") |
|
"X") |
|
|
|
|
|
(deftest format.&.12 |
|
|
(format nil "X~#%") |
|
|
"X") |
|
63 |
|
|
64 |
(deftest format.&.13 |
(def-format-test format.&.12 |
65 |
(format nil "X~#%" 'a 'b 'c) |
"X~#%" nil "X") |
|
"X |
|
66 |
|
|
67 |
|
(def-format-test format.&.13 |
68 |
|
"X~#%" ('a 'b 'c) #.(let ((nl (string #\Newline))) |
69 |
|
(concatenate 'string "X" nl nl nl))) |
70 |
|
|
|
") |
|
71 |
|
|
72 |
|
|
73 |
|
|