basis/mime/multipart/multipart-tests.factor

   1 USING: accessors io io.streams.string kernel mime.multipart
   2 tools.test make multiline ;
   3 IN: mime.multipart.tests
   4
   5 [ { "a" f } ] [
   6     [
   7         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 1 >>n
   8         [ , ] [ ] multipart-step-loop drop
   9     ] { } make
  10 ] unit-test
  11
  12 [ { "a" f } ] [
  13     [
  14         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 2 >>n
  15         [ , ] [ ] multipart-step-loop drop
  16     ] { } make
  17 ] unit-test
  18
  19 [ { "a" f } ] [
  20     [
  21         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 3 >>n
  22         [ , ] [ ] multipart-step-loop drop
  23     ] { } make
  24 ] unit-test
  25
  26 [ { "a" f } ] [
  27     [
  28         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 4 >>n
  29         [ , ] [ ] multipart-step-loop drop
  30     ] { } make
  31 ] unit-test
  32
  33 [ { "a" f } ] [
  34     [
  35         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 5 >>n
  36         [ , ] [ ] multipart-step-loop drop
  37     ] { } make
  38 ] unit-test
  39
  40
  41 [ { "a" "a" f } ] [
  42     [
  43         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 1 >>n
  44         [ , ] [ ] multipart-step-loop drop
  45     ] { } make
  46 ] unit-test
  47
  48 [ { "aa" f } ] [
  49     [
  50         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 2 >>n
  51         [ , ] [ ] multipart-step-loop drop
  52     ] { } make
  53 ] unit-test
  54
  55 [ { "aa" f } ] [
  56     [
  57         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 3 >>n
  58         [ , ] [ ] multipart-step-loop drop
  59     ] { } make
  60 ] unit-test
  61
  62 [ { "aa" f } ] [
  63     [
  64         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 4 >>n
  65         [ , ] [ ] multipart-step-loop drop
  66     ] { } make
  67 ] unit-test
  68
  69 [ { "aa" f } ] [
  70     [
  71         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 5 >>n
  72         [ , ] [ ] multipart-step-loop drop
  73     ] { } make
  74 ] unit-test
  75
  76
  77
  78 [ { "a" f } ] [
  79     [
  80         "azzbzzczzdzz" <string-reader> "zz" <multipart-stream> 1 >>n
  81         [ , ] [ ] multipart-step-loop drop
  82     ] { } make
  83 ] unit-test
  84
  85 [ { "a" "z" "z" "b" "z" "z" "c" "z" "z" "d" "zz" } ] [
  86     [
  87         "azzbzzczzdzz" <string-reader> "zzz" <multipart-stream> 1 >>n
  88         [ , ] [ ] multipart-step-loop drop
  89     ] { } make
  90 ] unit-test
  91
  92 [ { "a" "z" "z" "b" "z" "z" "c" "z" "z" "d" f } ] [
  93     [
  94         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 1 >>n
  95         [ , ] [ ] multipart-step-loop drop
  96     ] { } make
  97 ] unit-test
  98
  99 [ { "az" "zb" "zz" "cz" "zd" f } ] [
 100     [
 101         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 2 >>n
 102         [ , ] [ ] multipart-step-loop drop
 103     ] { } make
 104 ] unit-test
 105
 106 [ { "a" "zzb" "zzc" "zzd" f } ] [
 107     [
 108         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 3 >>n
 109         [ , ] [ ] multipart-step-loop drop
 110     ] { } make
 111 ] unit-test
 112
 113 [ { "az" "zbzz" "czzd" f } ] [
 114     [
 115         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 4 >>n
 116         [ , ] [ ] multipart-step-loop drop
 117     ] { } make
 118 ] unit-test
 119
 120 [ { "azz" "bzzcz" "zd" f } ] [
 121     [
 122         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 5 >>n
 123         [ , ] [ ] multipart-step-loop drop
 124     ] { } make
 125 ] unit-test
 126
 127
 128 [ { "a" f f "b" f f "c" f f "d" f f } ] [
 129     [
 130         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 1 >>n
 131         [ , ] [ ] multipart-loop-all
 132     ] { } make
 133 ] unit-test
 134
 135 [ { "a" f f "b" f f "c" f f "d" f f } ] [
 136     [
 137         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 2 >>n
 138         [ , ] [ ] multipart-loop-all
 139     ] { } make
 140 ] unit-test
 141
 142 [ { "a" f f "b" f f "c" f f "d" f f } ] [
 143     [
 144         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 3 >>n
 145         [ , ] [ ] multipart-loop-all
 146     ] { } make
 147 ] unit-test
 148
 149 [ { "a" f f "b" f f "c" f f "d" f f } ] [
 150     [
 151         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 4 >>n
 152         [ , ] [ ] multipart-loop-all
 153     ] { } make
 154 ] unit-test
 155
 156 [ { "a" f f "b" f f "c" f f "d" f f } ] [
 157     [
 158         "azzbzzczzdzz" <string-reader> "z" <multipart-stream> 5 >>n
 159         [ , ] [ ] multipart-loop-all
 160     ] { } make
 161 ] unit-test
 162
 163
 164 [ { "a" "a" f f "b" f f "c" f f "d" f f } ] [
 165     [
 166         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 1 >>n
 167         [ , ] [ ] multipart-loop-all
 168     ] { } make
 169 ] unit-test
 170
 171 [ { "aa" f f "b" f f "c" f f "d" f f } ] [
 172     [
 173         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 2 >>n
 174         [ , ] [ ] multipart-loop-all
 175     ] { } make
 176 ] unit-test
 177
 178 [ { "aa" f f "b" f f "c" f f "d" f f } ] [
 179     [
 180         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 3 >>n
 181         [ , ] [ ] multipart-loop-all
 182     ] { } make
 183 ] unit-test
 184
 185 [ { "aa" f f "b" f f "c" f f "d" f f } ] [
 186     [
 187         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 4 >>n
 188         [ , ] [ ] multipart-loop-all
 189     ] { } make
 190 ] unit-test
 191
 192 [ { "aa" f f "b" f f "c" f f "d" f f } ] [
 193     [
 194         "aazzbzzczzdzz" <string-reader> "z" <multipart-stream> 5 >>n
 195         [ , ] [ ] multipart-loop-all
 196     ] { } make
 197 ] unit-test
 198
 199
 200
 201 [ { "a" f "b" f "c" f "d" f } ] [
 202     [
 203         "azzbzzczzdzz" <string-reader> "zz" <multipart-stream> 1 >>n
 204         [ , ] [ ] multipart-loop-all
 205     ] { } make
 206 ] unit-test
 207
 208 [ { "a" "z" "z" "b" "z" "z" "c" "z" "z" "d" "zz" } ] [
 209     [
 210         "azzbzzczzdzz" <string-reader> "zzz" <multipart-stream> 1 >>n
 211         [ , ] [ ] multipart-loop-all
 212     ] { } make
 213 ] unit-test
 214
 215 [ { "a" "z" "z" "b" "z" "z" "c" "z" "z" "d" f } ] [
 216     [
 217         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 1 >>n
 218         [ , ] [ ] multipart-loop-all
 219     ] { } make
 220 ] unit-test
 221
 222 [ { "az" "zb" "zz" "cz" "zd" f } ] [
 223     [
 224         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 2 >>n
 225         [ , ] [ ] multipart-loop-all
 226     ] { } make
 227 ] unit-test
 228
 229 [ { "a" "zzb" "zzc" "zzd" f } ] [
 230     [
 231         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 3 >>n
 232         [ , ] [ ] multipart-loop-all
 233     ] { } make
 234 ] unit-test
 235
 236 [ { "az" "zbzz" "czzd" f } ] [
 237     [
 238         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 4 >>n
 239         [ , ] [ ] multipart-loop-all
 240     ] { } make
 241 ] unit-test
 242
 243 [ { "azz" "bzzcz" "zd" f } ] [
 244     [
 245         "azzbzzczzdzzz" <string-reader> "zzz" <multipart-stream> 5 >>n
 246         [ , ] [ ] multipart-loop-all
 247     ] { } make
 248 ] unit-test