7 |
|
|
8 |
(compile-and-load "printer-aux.lsp") |
(compile-and-load "printer-aux.lsp") |
9 |
|
|
10 |
(deftest format.p.1 |
(def-format-test format.p.1 |
11 |
(format nil "~p" 1) |
"~p" (1) "") |
12 |
"") |
|
13 |
|
(def-format-test format.p.2 |
14 |
(deftest format.p.2 |
"~P" (2) "s") |
15 |
(format nil "~P" 2) |
|
16 |
"s") |
(def-format-test format.p.3 |
17 |
|
"~p" (0) "s") |
18 |
(deftest format.p.3 |
|
19 |
(format nil "~p" 0) |
(def-format-test format.p.4 |
20 |
"s") |
"~P" (1.0) "s") |
|
|
|
|
(deftest format.p.4 |
|
|
(format nil "~P" 1.0) |
|
|
"s") |
|
21 |
|
|
22 |
(deftest format.p.5 |
(deftest format.p.5 |
23 |
(loop for x in *universe* |
(loop for x in *universe* |
28 |
|
|
29 |
;;; :p |
;;; :p |
30 |
|
|
31 |
(deftest format.p.6 |
(def-format-test format.p.6 |
32 |
(format nil "~D cat~:P" 1) |
"~D cat~:P" (1) "1 cat") |
33 |
"1 cat") |
|
34 |
|
(def-format-test format.p.7 |
35 |
(deftest format.p.7 |
"~D cat~:p" (2) "2 cats") |
36 |
(format nil "~D cat~:p" 2) |
|
37 |
"2 cats") |
(def-format-test format.p.8 |
38 |
|
"~D cat~:P" (0) "0 cats") |
39 |
(deftest format.p.8 |
|
40 |
(format nil "~D cat~:P" 0) |
(def-format-test format.p.9 |
41 |
"0 cats") |
"~D cat~:p" ("No") "No cats") |
|
|
|
|
(deftest format.p.9 |
|
|
(format nil "~D cat~:p" "No") |
|
|
"No cats") |
|
42 |
|
|
43 |
;;; :@p |
;;; :@p |
44 |
|
|
45 |
(deftest format.p.10 |
(def-format-test format.p.10 |
46 |
(format nil "~D penn~:@P" 1) |
"~D penn~:@P" (1) "1 penny") |
47 |
"1 penny") |
|
48 |
|
(def-format-test format.p.11 |
49 |
(deftest format.p.11 |
"~D penn~:@p" (2) "2 pennies") |
50 |
(format nil "~D penn~:@p" 2) |
|
51 |
"2 pennies") |
(def-format-test format.p.12 |
52 |
|
"~D penn~@:P" (0) "0 pennies") |
53 |
(deftest format.p.12 |
|
54 |
(format nil "~D penn~@:P" 0) |
(def-format-test format.p.13 |
55 |
"0 pennies") |
"~D penn~@:p" ("No") "No pennies") |
|
|
|
|
(deftest format.p.13 |
|
|
(format nil "~D penn~@:p" "No") |
|
|
"No pennies") |
|
56 |
|
|
57 |
;;; @p |
;;; @p |
58 |
|
|
59 |
(deftest format.p.14 |
(def-format-test format.p.14 |
60 |
(format nil "~@p" 1) |
"~@p" (1) "y") |
61 |
"y") |
|
62 |
|
(def-format-test format.p.15 |
63 |
(deftest format.p.15 |
"~@P" (2) "ies") |
64 |
(format nil "~@P" 2) |
|
65 |
"ies") |
(def-format-test format.p.16 |
66 |
|
"~@p" (0) "ies") |
67 |
(deftest format.p.16 |
|
68 |
(format nil "~@p" 0) |
(def-format-test format.p.17 |
69 |
"ies") |
"~@P" (1.0) "ies") |
|
|
|
|
(deftest format.p.17 |
|
|
(format nil "~@P" 1.0) |
|
|
"ies") |
|
70 |
|
|
71 |
(deftest format.p.18 |
(deftest format.p.18 |
72 |
(loop for x in *universe* |
(loop for x in *universe* |