format-goto.lsp 2.54 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Tue Aug 24 06:56:13 2004
;;;; Contains: Tests of the ~* format directive

(in-package :cl-test)

(compile-and-load "printer-aux.lsp")

;;; ~*

12 13
(def-format-test format.*.1
  "~A~*~A" (1 2 3) "13")
14

15
(def-format-test format.*.2
16
  "~A~0*~A" (1 2 3) "12" 1)
17

18 19
(def-format-test format.*.3
  "~A~v*~A" (1 0 2) "12")
20

21 22
(def-format-test format.*.4
  "~A~v*~A" (1 1 2 3) "13")
23

24 25
(def-format-test format.*.5
  "~A~v*~A" (1 nil 2 3) "13")
26

27 28
(def-format-test format.*.6
  "~A~1{~A~*~A~}~A" (0 '(1 2 3) 4) "0134")
29

30 31
(def-format-test format.*.7
  "~A~1{~A~0*~A~}~A" (0 '(1 2 3) 4) "0124")
32

33 34
(def-format-test format.*.8
  "~A~{~A~*~A~}~A" (0 '(1 2 3 4 5 6) 7) "013467")
35

36 37
(def-format-test format.*.9
  "~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" (0 '(1 2 3 4 nil 6 7 8 9 #\A) 5)
38 39
  "01234789A5")

40 41
;;; ~:*

42
(def-format-test format.\:*.1
43
  "~A~:*~A" (1 2 3) "11" 2)
44

45
(def-format-test format.\:*.2
46
  "~A~A~:*~A" (1 2 3) "122" 1)
47

48 49
(def-format-test format.\:*.3
  "~A~A~0:*~A" (1 2 3) "123")
50

51
(def-format-test format.\:*.4
52
  "~A~A~2:*~A" (1 2 3) "121" 2)
53

54 55
(def-format-test format.\:*.5
  "~A~A~v:*~A" (1 2 0 3) "123")
56

57
(def-format-test format.\:*.6
58
  "~A~A~v:*~A" (6 7 2 3) "677" 2)
59

60
(def-format-test format.\:*.7
61
  "~A~A~v:*~A" (6 7 nil 3) "67NIL" 1)
62

63 64
(def-format-test format.\:*.8
  "~A~1{~A~:*~A~}~A" (0 '(1 2 3) 4) "0114")
65

66 67
(def-format-test format.\:*.9
  "~A~1{~A~A~A~:*~A~}~A" (0 '(1 2 3 4) 5) "012335")
68

69 70
(def-format-test format.\:*.10
  "~A~1{~A~A~A~2:*~A~A~}~A" (0 '(1 2 3 4) 5) "0123235")
71

72 73
(def-format-test format.\:*.11
  "~A~{~A~A~A~3:*~A~A~A~A~}~A" (0 '(1 2 3 4) 5) "012312345")
74

75 76
(def-format-test format.\:*.12
  "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" (0 '(1 2 3 4) 5) "0123412345")
77

78 79
(def-format-test format.\:*.13
  "~A~{~A~A~A~A~v:*~^~A~}~A" (0 '(1 2 3 4 nil) 5) "01234NIL5")
80

81 82
;;; ~@*

83
(def-format-test format.@*.1
84
  "~A~A~@*~A~A" (1 2 3 4) "1212" 2)
85

86
(def-format-test format.@*.2
87
  "~A~A~1@*~A~A" (1 2 3 4) "1223" 1)
88

89 90
(def-format-test format.@*.3
  "~A~A~2@*~A~A" (1 2 3 4) "1234")
91

92 93
(def-format-test format.@*.4
  "~A~A~3@*~A~A" (1 2 3 4 5) "1245")
94

95
(def-format-test format.@*.5
96
  "~A~A~v@*~A~A" (1 2 nil 3 4) "1212" 3)
97

98
(def-format-test format.@*.6
99
  "~A~A~v@*~A~A" (1 2 1 3 4) "1221" 2)
100

101
(def-format-test format.@*.7
102
  "~A~A~v@*~A~A" (6 7 2 3 4) "6723" 1)
103

104 105
(def-format-test format.@*.8
  "~A~{~A~A~@*~A~A~}~A" (0 '(1 2) 9) "012129")
106

107 108
(def-format-test format.@*.9
  "~A~{~A~A~0@*~A~A~}~A" (0 '(1 2) 9) "012129")
109

110 111
(def-format-test format.@*.10
  "~A~1{~A~A~v@*~A~A~}~A" (0 '(1 2 nil) 9) "012129")
112

113 114
(def-format-test format.@*.11
  "~A~{~A~A~1@*~A~}~A" (0 '(1 2) 9) "01229")