Show
Ignore:
Timestamp:
06/20/08 21:39:42 (6 years ago)
Author:
kiyoka
Message:

Improved unit test of plain text layouter.

Location:
lang/gauche/oldtype/trunk/src
Files:
1 added
1 modified

Legend:

Unmodified
Added
Removed
  • lang/gauche/oldtype/trunk/src/test.scm

    r14263 r14304  
    1414(use oldtype.core) 
    1515(use gauche.test)                                                      
     16(use util.list) 
    1617 
    1718 
     
    3435          (open-input-string converted-str))) 
    3536    (let ((oldtype-page #f) 
    36           (oldtype-timeline #f)) 
     37          (oldtype-timeline #f) 
     38          (loaded        #?=(with-input-from-file "Test.sexp.master" 
     39                           (lambda () 
     40                             (read))))) 
    3741 
    3842      (test-start "serialize,deserialize") 
     
    4448                   (deserialized   (deserialize (make <oldtype-timeline>) serialized))) 
    4549              (test "serialized == DATA        " 
    46                     '((name . "Test") (revision . 13317) 
    47                       (log 
    48                        (14228 (revision . 14228) (committer . kiyoka) (utc . 1213799971) (rank . 5)) 
    49                        (14139 (revision . 14139) (committer . kiyoka) (utc . 1213628604) (rank . 5)) 
    50                        (14128 (revision . 14128) (committer . kiyoka) (utc . 1213618410) (rank . 5)) 
    51                        (13660 (revision . 13660) (committer . kiyoka) (utc . 1213192900) (rank . 5)) 
    52                        (13658 (revision . 13658) (committer . kiyoka) (utc . 1213187139) (rank . 5)) 
    53                        (13617 (revision . 13617) (committer . kiyoka) (utc . 1213099402) (rank . 5)) 
    54                        (13593 (revision . 13593) (committer . kiyoka) (utc . 1213022881) (rank . 5)) 
    55                        (13549 (revision . 13549) (committer . kiyoka) (utc . 1212939281) (rank . 5)) 
    56                        (13545 (revision . 13545) (committer . kiyoka) (utc . 1212938686) (rank . 5)) 
    57                        (13542 (revision . 13542) (committer . kiyoka) (utc . 1212938495) (rank . 5)) 
    58                        (13390 (revision . 13390) (committer . kiyoka) (utc . 1212833561) (rank . 5)) 
    59                        (13389 (revision . 13389) (committer . kiyoka) (utc . 1212833492) (rank . 5)) 
    60                        (13334 (revision . 13334) (committer . kiyoka) (utc . 1212756234) (rank . 5)) 
    61                        (13317 (revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    62                        (13306 (revision . 13306) (committer . kiyoka) (utc . 1212676363) (rank . 5)) 
    63                        (13304 (revision . 13304) (committer . kiyoka) (utc . 1212675369) (rank . 4)) 
    64                        (13242 (revision . 13242) (committer . kiyoka) (utc . 1212594143) (rank . 5)) 
    65                        (13237 (revision . 13237) (committer . kiyoka) (utc . 1212592559) (rank . 5)) 
    66                        (13233 (revision . 13233) (committer . kiyoka) (utc . 1212591037) (rank . 5)) 
    67                        (13224 (revision . 13224) (committer . kiyoka) (utc . 1212584569) (rank . 5)) 
    68                        (13223 (revision . 13223) (committer . kiyoka) (utc . 1212584402) (rank . 5)) 
    69                        (13080 (revision . 13080) (committer . kiyoka) (utc . 1212407693) (rank . 5)) 
    70                        (13032 (revision . 13032) (committer . kiyoka) (utc . 1212334026) (rank . 5)) 
    71                        (13023 (revision . 13023) (committer . kiyoka) (utc . 1212331805) (rank . 5)) 
    72                        (12471 (revision . 12471) (committer . kiyoka) (utc . 1211813046) (rank . 5)) 
    73                        (12460 (revision . 12460) (committer . kiyoka) (utc . 1211806608) (rank . 5)) 
    74                        (12356 (revision . 12356) (committer . kiyoka) (utc . 1211721110) (rank . 5)) 
    75                        (12293 (revision . 12293) (committer . kiyoka) (utc . 1211642182) (rank . 5)) 
    76                        (12266 (revision . 12266) (committer . kiyoka) (utc . 1211601688) (rank . 5)) 
    77                        (11607 (revision . 11607) (committer . kiyoka) (utc . 1210777124) (rank . 5)) 
    78                        (11606 (revision . 11606) (committer . kiyoka) (utc . 1210777098) (rank . 5)) 
    79                        (11603 (revision . 11603) (committer . kiyoka) (utc . 1210774733) (rank . 5)) 
    80                        (11245 (revision . 11245) (committer . kiyoka) (utc . 1210161037) (rank . 5)) 
    81                        (10961 (revision . 10961) (committer . kiyoka) (utc . 1209740697) (rank . 5)) 
    82                        (10957 (revision . 10957) (committer . kiyoka) (utc . 1209737179) (rank . 5)) 
    83                        (10149 (revision . 10149) (committer . kiyoka) (utc . 1208864713) (rank . 5)) 
    84                        (10146 (revision . 10146) (committer . kiyoka) (utc . 1208862687) (rank . 5)) 
    85                        (10084 (revision . 10084) (committer . kiyoka) (utc . 1208784928) (rank . 5)) 
    86                        (10014 (revision . 10014) (committer . kiyoka) (utc . 1208695655) (rank . 5)) 
    87                        (9977 (revision . 9977) (committer . kiyoka) (utc . 1208667401) (rank . 5)) 
    88                        (9976 (revision . 9976) (committer . kiyoka) (utc . 1208667383) (rank . 5)) 
    89                        (9952 (revision . 9952) (committer . kiyoka) (utc . 1208652380) (rank . 5)) 
    90                        (9948 (revision . 9948) (committer . kiyoka) (utc . 1208650871) (rank . 5)) 
    91                        (9924 (revision . 9924) (committer . kiyoka) (utc . 1208619757) (rank . 5)) 
    92                        (9903 (revision . 9903) (committer . kiyoka) (utc . 1208606479) (rank . 5)) 
    93                        (9585 (revision . 9585) (committer . kiyoka) (utc . 1208348091) (rank . 5)) 
    94                        (9583 (revision . 9583) (committer . kiyoka) (utc . 1208346288) (rank . 5)) 
    95                        (8962 (revision . 8962) (committer . kiyoka) (utc . 1207444336) (rank . 5)) 
    96                        (8676 (revision . 8676) (committer . kiyoka) (utc . 1207141582) (rank . 5)) 
    97                        (8607 (revision . 8607) (committer . kiyoka) (utc . 1207051192) (rank . 5)) 
    98                        (8569 (revision . 8569) (committer . kiyoka) (utc . 1206968180) (rank . 5)) 
    99                        (8342 (revision . 8342) (committer . kiyoka) (utc . 1206360044) (rank . 5)) 
    100                        (8263 (revision . 8263) (committer . kiyoka) (utc . 1206115042) (rank . 5)) 
    101                        (8254 (revision . 8254) (committer . kiyoka) (utc . 1206097354) (rank . 5)) 
    102                        (8212 (revision . 8212) (committer . kiyoka) (utc . 1206027766) (rank . 5)) 
    103                        (8211 (revision . 8211) (committer . kiyoka) (utc . 1206027177) (rank . 5)) 
    104                        (8208 (revision . 8208) (committer . kiyoka) (utc . 1206016615) (rank . 5)) 
    105                        (8205 (revision . 8205) (committer . kiyoka) (utc . 1206012635) (rank . 5)) 
    106                        (8091 (revision . 8091) (committer . kiyoka) (utc . 1205842976) (rank . 5)) 
    107                        (7924 (revision . 7924) (committer . kiyoka) (utc . 1205421544) (rank . 5)) 
    108                        (7920 (revision . 7920) (committer . kiyoka) (utc . 1205419584) (rank . 5)) 
    109                        (7919 (revision . 7919) (committer . kiyoka) (utc . 1205418381) (rank . 5)) 
    110                        (7870 (revision . 7870) (committer . kiyoka) (utc . 1205336331) (rank . 5)) 
    111                        (7811 (revision . 7811) (committer . kiyoka) (utc . 1205239814) (rank . 5))) 
    112                       (annotation 
    113                        ((revision . 8208) (committer . kiyoka) (utc . 1206016615) (rank . 5)) 
    114                        ((revision . 13304) (committer . kiyoka) (utc . 1212675369) (rank . 4)) 
    115                        ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    116                        ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    117                        ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    118                        ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3))) 
    119                       (text "* UnitTest用のサンプルファイル" "----" "*** start" "*** [[Entry1]]" "*** [[Entry2]]" "*** end") 
    120                       (distribution 
    121                        (8208 1) 
    122                        (13317 6 5 4 3) 
    123                        (13304 2))) 
     50                    (assq-ref loaded 'timeline) 
    12451                    (lambda () (serialize deserialized))) 
    12552              (test "serialized == deserialized" serialized (lambda () (serialize deserialized))))) 
     
    12956      (let1 serialized     (serialize oldtype-page) 
    13057            (test "serialized == DATA        " 
    131                   '((name . "Test") 
    132                     (sxml 
    133                      (div 
    134                       ((lineno . 1)) 
    135                       (h2 "UnitTest用のサンプルファイル" "\n")) 
    136                      (div 
    137                       ((lineno . 2)) 
    138                       (hr)) 
    139                      (div 
    140                       ((lineno . 3)) 
    141                       (h4 "start" "\n")) 
    142                      (div 
    143                       ((lineno . 4)) 
    144                       (h4 
    145                        (wiki-name "Entry1") "\n")) 
    146                      (div 
    147                       ((lineno . 5)) 
    148                       (h4 
    149                        (wiki-name "Entry2") "\n")) 
    150                      (div 
    151                       ((lineno . 6)) 
    152                       (h4 "end" "\n"))) 
    153                     (timeline (name . "Test") (revision . 13317) 
    154                               (log 
    155                                (14228 (revision . 14228) (committer . kiyoka) (utc . 1213799971) (rank . 5)) 
    156                                (14139 (revision . 14139) (committer . kiyoka) (utc . 1213628604) (rank . 5)) 
    157                                (14128 (revision . 14128) (committer . kiyoka) (utc . 1213618410) (rank . 5)) 
    158                                (13660 (revision . 13660) (committer . kiyoka) (utc . 1213192900) (rank . 5)) 
    159                                (13658 (revision . 13658) (committer . kiyoka) (utc . 1213187139) (rank . 5)) 
    160                                (13617 (revision . 13617) (committer . kiyoka) (utc . 1213099402) (rank . 5)) 
    161                                (13593 (revision . 13593) (committer . kiyoka) (utc . 1213022881) (rank . 5)) 
    162                                (13549 (revision . 13549) (committer . kiyoka) (utc . 1212939281) (rank . 5)) 
    163                                (13545 (revision . 13545) (committer . kiyoka) (utc . 1212938686) (rank . 5)) 
    164                                (13542 (revision . 13542) (committer . kiyoka) (utc . 1212938495) (rank . 5)) 
    165                                (13390 (revision . 13390) (committer . kiyoka) (utc . 1212833561) (rank . 5)) 
    166                                (13389 (revision . 13389) (committer . kiyoka) (utc . 1212833492) (rank . 5)) 
    167                                (13334 (revision . 13334) (committer . kiyoka) (utc . 1212756234) (rank . 5)) 
    168                                (13317 (revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    169                                (13306 (revision . 13306) (committer . kiyoka) (utc . 1212676363) (rank . 5)) 
    170                                (13304 (revision . 13304) (committer . kiyoka) (utc . 1212675369) (rank . 4)) 
    171                                (13242 (revision . 13242) (committer . kiyoka) (utc . 1212594143) (rank . 5)) 
    172                                (13237 (revision . 13237) (committer . kiyoka) (utc . 1212592559) (rank . 5)) 
    173                                (13233 (revision . 13233) (committer . kiyoka) (utc . 1212591037) (rank . 5)) 
    174                                (13224 (revision . 13224) (committer . kiyoka) (utc . 1212584569) (rank . 5)) 
    175                                (13223 (revision . 13223) (committer . kiyoka) (utc . 1212584402) (rank . 5)) 
    176                                (13080 (revision . 13080) (committer . kiyoka) (utc . 1212407693) (rank . 5)) 
    177                                (13032 (revision . 13032) (committer . kiyoka) (utc . 1212334026) (rank . 5)) 
    178                                (13023 (revision . 13023) (committer . kiyoka) (utc . 1212331805) (rank . 5)) 
    179                                (12471 (revision . 12471) (committer . kiyoka) (utc . 1211813046) (rank . 5)) 
    180                                (12460 (revision . 12460) (committer . kiyoka) (utc . 1211806608) (rank . 5)) 
    181                                (12356 (revision . 12356) (committer . kiyoka) (utc . 1211721110) (rank . 5)) 
    182                                (12293 (revision . 12293) (committer . kiyoka) (utc . 1211642182) (rank . 5)) 
    183                                (12266 (revision . 12266) (committer . kiyoka) (utc . 1211601688) (rank . 5)) 
    184                                (11607 (revision . 11607) (committer . kiyoka) (utc . 1210777124) (rank . 5)) 
    185                                (11606 (revision . 11606) (committer . kiyoka) (utc . 1210777098) (rank . 5)) 
    186                                (11603 (revision . 11603) (committer . kiyoka) (utc . 1210774733) (rank . 5)) 
    187                                (11245 (revision . 11245) (committer . kiyoka) (utc . 1210161037) (rank . 5)) 
    188                                (10961 (revision . 10961) (committer . kiyoka) (utc . 1209740697) (rank . 5)) 
    189                                (10957 (revision . 10957) (committer . kiyoka) (utc . 1209737179) (rank . 5)) 
    190                                (10149 (revision . 10149) (committer . kiyoka) (utc . 1208864713) (rank . 5)) 
    191                                (10146 (revision . 10146) (committer . kiyoka) (utc . 1208862687) (rank . 5)) 
    192                                (10084 (revision . 10084) (committer . kiyoka) (utc . 1208784928) (rank . 5)) 
    193                                (10014 (revision . 10014) (committer . kiyoka) (utc . 1208695655) (rank . 5)) 
    194                                (9977 (revision . 9977) (committer . kiyoka) (utc . 1208667401) (rank . 5)) 
    195                                (9976 (revision . 9976) (committer . kiyoka) (utc . 1208667383) (rank . 5)) 
    196                                (9952 (revision . 9952) (committer . kiyoka) (utc . 1208652380) (rank . 5)) 
    197                                (9948 (revision . 9948) (committer . kiyoka) (utc . 1208650871) (rank . 5)) 
    198                                (9924 (revision . 9924) (committer . kiyoka) (utc . 1208619757) (rank . 5)) 
    199                                (9903 (revision . 9903) (committer . kiyoka) (utc . 1208606479) (rank . 5)) 
    200                                (9585 (revision . 9585) (committer . kiyoka) (utc . 1208348091) (rank . 5)) 
    201                                (9583 (revision . 9583) (committer . kiyoka) (utc . 1208346288) (rank . 5)) 
    202                                (8962 (revision . 8962) (committer . kiyoka) (utc . 1207444336) (rank . 5)) 
    203                                (8676 (revision . 8676) (committer . kiyoka) (utc . 1207141582) (rank . 5)) 
    204                                (8607 (revision . 8607) (committer . kiyoka) (utc . 1207051192) (rank . 5)) 
    205                                (8569 (revision . 8569) (committer . kiyoka) (utc . 1206968180) (rank . 5)) 
    206                                (8342 (revision . 8342) (committer . kiyoka) (utc . 1206360044) (rank . 5)) 
    207                                (8263 (revision . 8263) (committer . kiyoka) (utc . 1206115042) (rank . 5)) 
    208                                (8254 (revision . 8254) (committer . kiyoka) (utc . 1206097354) (rank . 5)) 
    209                                (8212 (revision . 8212) (committer . kiyoka) (utc . 1206027766) (rank . 5)) 
    210                                (8211 (revision . 8211) (committer . kiyoka) (utc . 1206027177) (rank . 5)) 
    211                                (8208 (revision . 8208) (committer . kiyoka) (utc . 1206016615) (rank . 5)) 
    212                                (8205 (revision . 8205) (committer . kiyoka) (utc . 1206012635) (rank . 5)) 
    213                                (8091 (revision . 8091) (committer . kiyoka) (utc . 1205842976) (rank . 5)) 
    214                                (7924 (revision . 7924) (committer . kiyoka) (utc . 1205421544) (rank . 5)) 
    215                                (7920 (revision . 7920) (committer . kiyoka) (utc . 1205419584) (rank . 5)) 
    216                                (7919 (revision . 7919) (committer . kiyoka) (utc . 1205418381) (rank . 5)) 
    217                                (7870 (revision . 7870) (committer . kiyoka) (utc . 1205336331) (rank . 5)) 
    218                                (7811 (revision . 7811) (committer . kiyoka) (utc . 1205239814) (rank . 5))) 
    219                               (annotation 
    220                                ((revision . 8208) (committer . kiyoka) (utc . 1206016615) (rank . 5)) 
    221                                ((revision . 13304) (committer . kiyoka) (utc . 1212675369) (rank . 4)) 
    222                                ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    223                                ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    224                                ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3)) 
    225                                ((revision . 13317) (committer . kiyoka) (utc . 1212711085) (rank . 3))) 
    226                               (text "* UnitTest用のサンプルファイル" "----" "*** start" "*** [[Entry1]]" "*** [[Entry2]]" "*** end") 
    227                               (distribution 
    228                                (8208 1) 
    229                                (13317 6 5 4 3) 
    230                                (13304 2))) 
    231                     (plain "* " "----" "*** " "*** " "*** " "*** " "")) 
     58                  loaded 
    23259                  (lambda () (serialize oldtype-page))) 
    23360