/[gcl]/gcl/ansi-tests/format-p.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-p.lsp

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

revision 1.1 by pfdietz, Mon Oct 18 02:52:18 2004 UTC revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 7  Line 7 
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*
# Line 32  Line 28 
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*

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

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