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

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

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

revision 1.9 by pfdietz, Tue Nov 16 01:17:40 2004 UTC revision 1.10 by pfdietz, Tue Nov 16 13:04:46 2004 UTC
# Line 198  Line 198 
198    
199  (deftest format.^.\:{.13  (deftest format.^.\:{.13
200    (format nil "~:{~v,v^~A~}" '((1 2 0) (#\a #\A 1) (#\A #\A 2) (1 2 3)))    (format nil "~:{~v,v^~A~}" '((1 2 0) (#\a #\A 1) (#\A #\A 2) (1 2 3)))
201    "03")    "013")
202    
203  (deftest format.^.\:{.14  (deftest format.^.\:{.14
204    (format nil "~:{~'x,3^~A~}" '((1)))    (format nil "~:{~'x,3^~A~}" '((1)))
# Line 499  Line 499 
499    
500  (deftest format.^.\:@{.13  (deftest format.^.\:@{.13
501    (format nil "~:@{~v,v^~A~}" '(1 2 0) '(#\a #\A 1) '(#\A #\A 2) '(1 2 3))    (format nil "~:@{~v,v^~A~}" '(1 2 0) '(#\a #\A 1) '(#\A #\A 2) '(1 2 3))
502    "03")    "013")
503    
504  (deftest format.^.\:@{.14  (deftest format.^.\:@{.14
505    (format nil "~:@{~'x,3^~A~}" '(1))    (format nil "~:@{~'x,3^~A~}" '(1))
# Line 604  Line 604 
604  (deftest format.^.\:@{.39  (deftest format.^.\:@{.39
605    (format nil "~:@{~v,1,v^~A~}" '(#\a nil 0))    (format nil "~:@{~v,1,v^~A~}" '(#\a nil 0))
606    "0")    "0")
607    
608    ;;; ~:^ in ~:{
609    
610    (deftest format.\:^.\:{.1
611      (format nil "~:{~:^~A~}"  nil)
612      "")
613    
614    (deftest format.\:^.\:{.2
615      (format nil "(~:{~A~:^,~})"  '((1)(2)(3)))
616      "(1,2,3)")
617    
618    (deftest format.\:^.\:{.3
619      (format nil "~:{~:^~A~}"  '((1)(2)(3)(4)))
620      "123")
621    
622    ;;; arguments
623    
624    (deftest format.\:^.\:{.4
625      (format nil "~:{~0:^~A~}" '((1)(2)))
626      "")
627    
628    (deftest format.\:^.\:{.5
629      (format nil "~:{~1:^~A~}" '((1)(2)))
630      "12")
631    
632    (deftest format.\:^.\:{.6
633      (format nil "~:{~'X:^~A~}" '((1)(2)))
634      "12")
635    
636    (deftest format.\:^.\:{.7
637      (format nil "~:{~v:^~A~}" '((1 8)(2 3 4)(3 1)(0)(6 7)(8 10)))
638      "831")
639    
640    (deftest format.\:^.\:{.8
641      (format nil "~:{~V:^~A~}" '((#\X 1)(0 2)))
642      "1")
643    
644    (deftest format.\:^.\:{.9
645      (format nil "~:{~#:^~A~}" '((1)(2)(3 4)(5 6 7)()(8 9 10)))
646      "1235")
647    
648    (deftest format.\:^.\:{.10
649      (format nil "~:{~1,1:^~A~}" '(()(1)(2 3)))
650      "")
651    
652    (deftest format.\:^.\:{.11
653      (format nil "~:{~0,1:^~A~}" '((1)(2 3)))
654      "12")
655    
656    (deftest format.\:^.\:{.12
657      (format nil "~:{~v,1:^~A~}" '((2 3)(4 5 6)(0 2)(1 7)(9 10)))
658      "352")
659    
660    (deftest format.\:^.\:{.13
661      (format nil "~:{~1,V:^~A~}" '((2 3)(4 5 6)(0 2)(1 7)(9 10)))
662      "352")
663    
664    (deftest format.\:^.\:{.14
665      (format nil "~:{~V,v:^~A~}" '((0 1 2) (1 0 3) (4 4) () (5 6 7)))
666      "23")
667    
668    (deftest format.\:^.\:{.15
669      (format nil "~:{~#,1:^~A~}" '((2 3 4)(4 5)(0)(1 7)(9 10)))
670      "24")
671    
672    (deftest format.\:^.\:{.16
673      (format nil "~:{~1,#:^~A~}" '((2 3 4)(4 5)(0)(1 7)(9 10)))
674      "24")
675    
676    (deftest format.\:^.\:{.17
677      (format nil "~:{~#,#:^~A~}" '(nil))
678      "")
679    
680    (deftest format.\:^.\:{.18
681      (format nil "~:{~#,#:^~A~}" '((1)))
682      "")
683    
684    (deftest format.\:^.\:{.19
685      (format nil "~:{~#,v:^~A~}" '((1 2)(3 4)(2 5 6)(1)(2)))
686      "245")
687    
688    (deftest format.\:^.\:{.20
689      (format nil "~:{~V,#:^~A~}" '((0 2)(1 3 4)(1 3)()(0 7)))
690      "23")
691    
692    (deftest format.\:^.\:{.21
693      (format nil "~:{~'X,'Y:^~A~}" '((1)(2)))
694      "12")
695    
696    (deftest format.\:^.\:{.22
697      (format nil "~:{~'X,'X:^~A~}" '((1)(2)))
698      "")

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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