Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| SHA1 Hash: | 5f59e6b59578841ef759f6430aa4f8aa47624055 |
|---|---|
| Date: | 2012-06-12 22:37:27 |
| User: | andreask |
| Edited Comment: | Cleanup: Removed irrelevant -cleanup (sic!) from testsuite for 'blank'. |
| Original Comment: | Cleanup: Removed irrelevant -cleanup (sic\!) from testsuite for 'blank'. |
Tags And Properties
- branch=trunk inherited from [8d18a30642]
- comment=Cleanup: Removed irrelevant -cleanup (sic!) from testsuite for 'blank'. added by [57b0469e06] on 2012-06-12 23:01:58
- sym-trunk inherited from [8d18a30642]
Changes
Changes to test/blank.test
16 ## Creating of various types of blank images. 16 ## Creating of various types of blank images. 17 ## 17 ## 18 ## XXX NOTE XXX This may be something for crimp::core instead of crimp. 18 ## XXX NOTE XXX This may be something for crimp::core instead of crimp. 19 # ------------------------------------------------------------------------- 19 # ------------------------------------------------------------------------- 20 20 21 test crimp-blank-1.0 {Blank images, wrong\#args, not enough} -body { 21 test crimp-blank-1.0 {Blank images, wrong\#args, not enough} -body { 22 crimp blank 22 crimp blank 23 } -cleanup { < 24 } -returnCodes error -result {wrong # args: should be "crimp blank type w h ..." 23 } -returnCodes error -result {wrong # args: should be "crimp blank type w h ..." 25 24 26 test crimp-blank-1.1 {Blank images, wrong\#args, not enough} -body { 25 test crimp-blank-1.1 {Blank images, wrong\#args, not enough} -body { 27 crimp blank TYPE 26 crimp blank TYPE 28 } -cleanup { < 29 } -returnCodes error -result {wrong # args: should be "crimp blank type w h ..." 27 } -returnCodes error -result {wrong # args: should be "crimp blank type w h ..." 30 28 31 test crimp-blank-1.2 {Blank images, wrong\#args, not enough} -body { 29 test crimp-blank-1.2 {Blank images, wrong\#args, not enough} -body { 32 crimp blank TYPE W 30 crimp blank TYPE W 33 } -cleanup { < 34 } -returnCodes error -result {wrong # args: should be "crimp blank type w h ..." 31 } -returnCodes error -result {wrong # args: should be "crimp blank type w h ..." 35 32 36 test crimp-blank-1.3 {Blank images, bogus image type} -body { 33 test crimp-blank-1.3 {Blank images, bogus image type} -body { 37 crimp blank BOGUS W H 34 crimp blank BOGUS W H 38 } -cleanup { < 39 } -returnCodes error -result {Unable to create blank images of type "BOGUS"} 35 } -returnCodes error -result {Unable to create blank images of type "BOGUS"} 40 36 41 # ------------------------------------------------------------------------- 37 # ------------------------------------------------------------------------- 42 38 43 test crimp-blank-2.0 {Blank images, grey8, wrong\#args, not enough} -body { 39 test crimp-blank-2.0 {Blank images, grey8, wrong\#args, not enough} -body { 44 crimp blank grey8 W H 40 crimp blank grey8 W H 45 } -cleanup { < 46 } -returnCodes error -result {wrong # args: should be "blank_grey8 w h value"} 41 } -returnCodes error -result {wrong # args: should be "blank_grey8 w h value"} 47 42 48 test crimp-blank-2.1 {Blank images, grey8, wrong\#args, too many} -body { 43 test crimp-blank-2.1 {Blank images, grey8, wrong\#args, too many} -body { 49 crimp blank grey8 W H VALUE toomuch 44 crimp blank grey8 W H VALUE toomuch 50 } -cleanup { < 51 } -returnCodes error -result {wrong # args: should be "blank_grey8 w h value"} 45 } -returnCodes error -result {wrong # args: should be "blank_grey8 w h value"} 52 46 53 test crimp-blank-2.2 {Blank images, grey8, bogus dimensions} -body { 47 test crimp-blank-2.2 {Blank images, grey8, bogus dimensions} -body { 54 crimp blank grey8 W H VALUE 48 crimp blank grey8 W H VALUE 55 } -cleanup { < 56 } -returnCodes error -result {expected integer but got "W"} 49 } -returnCodes error -result {expected integer but got "W"} 57 50 58 test crimp-blank-2.3 {Blank images, grey8, bogus dimensions} -body { 51 test crimp-blank-2.3 {Blank images, grey8, bogus dimensions} -body { 59 crimp blank grey8 3 H VALUE 52 crimp blank grey8 3 H VALUE 60 } -cleanup { < 61 } -returnCodes error -result {expected integer but got "H"} 53 } -returnCodes error -result {expected integer but got "H"} 62 54 63 test crimp-blank-2.4 {Blank images, grey8, bogus pixel value} -body { 55 test crimp-blank-2.4 {Blank images, grey8, bogus pixel value} -body { 64 crimp blank grey8 3 4 VALUE 56 crimp blank grey8 3 4 VALUE 65 } -cleanup { < 66 } -returnCodes error -result {expected integer but got "VALUE"} 57 } -returnCodes error -result {expected integer but got "VALUE"} 67 58 68 test crimp-blank-2.5 {Blank images, grey8} -body { 59 test crimp-blank-2.5 {Blank images, grey8} -body { 69 crimp write 2string tcl [crimp blank grey8 3 4 0] 60 crimp write 2string tcl [crimp blank grey8 3 4 0] 70 } -result [lrepeat 4 [lrepeat 3 0]] 61 } -result [lrepeat 4 [lrepeat 3 0]] 71 62 72 test crimp-blank-2.6 {Blank images, grey8} -body { 63 test crimp-blank-2.6 {Blank images, grey8} -body { ................................................................................................................................................................................ 113 crimp at [crimp blank grey8 3 0 0] 104 crimp at [crimp blank grey8 3 0 0] 114 } -result {0 0} 105 } -result {0 0} 115 106 116 # ------------------------------------------------------------------------- 107 # ------------------------------------------------------------------------- 117 108 118 test crimp-blank-3.0 {Blank images, grey16, wrong\#args, not enough} -body { 109 test crimp-blank-3.0 {Blank images, grey16, wrong\#args, not enough} -body { 119 crimp blank grey16 W H 110 crimp blank grey16 W H 120 } -cleanup { < 121 } -returnCodes error -result {wrong # args: should be "blank_grey16 w h value"} 111 } -returnCodes error -result {wrong # args: should be "blank_grey16 w h value"} 122 112 123 test crimp-blank-3.1 {Blank images, grey16, wrong\#args, too many} -body { 113 test crimp-blank-3.1 {Blank images, grey16, wrong\#args, too many} -body { 124 crimp blank grey16 W H VALUE toomuch 114 crimp blank grey16 W H VALUE toomuch 125 } -cleanup { < 126 } -returnCodes error -result {wrong # args: should be "blank_grey16 w h value"} 115 } -returnCodes error -result {wrong # args: should be "blank_grey16 w h value"} 127 116 128 test crimp-blank-3.2 {Blank images, grey16, bogus dimensions} -body { 117 test crimp-blank-3.2 {Blank images, grey16, bogus dimensions} -body { 129 crimp blank grey16 W H VALUE 118 crimp blank grey16 W H VALUE 130 } -cleanup { < 131 } -returnCodes error -result {expected integer but got "W"} 119 } -returnCodes error -result {expected integer but got "W"} 132 120 133 test crimp-blank-3.3 {Blank images, grey16, bogus dimensions} -body { 121 test crimp-blank-3.3 {Blank images, grey16, bogus dimensions} -body { 134 crimp blank grey16 3 H VALUE 122 crimp blank grey16 3 H VALUE 135 } -cleanup { < 136 } -returnCodes error -result {expected integer but got "H"} 123 } -returnCodes error -result {expected integer but got "H"} 137 124 138 test crimp-blank-3.4 {Blank images, grey16, bogus pixel value} -body { 125 test crimp-blank-3.4 {Blank images, grey16, bogus pixel value} -body { 139 crimp blank grey16 3 4 VALUE 126 crimp blank grey16 3 4 VALUE 140 } -cleanup { < 141 } -returnCodes error -result {expected integer but got "VALUE"} 127 } -returnCodes error -result {expected integer but got "VALUE"} 142 128 143 test crimp-blank-3.5 {Blank images, grey16} -body { 129 test crimp-blank-3.5 {Blank images, grey16} -body { 144 crimp write 2string tcl [crimp blank grey16 3 4 0] 130 crimp write 2string tcl [crimp blank grey16 3 4 0] 145 } -result [lrepeat 4 [lrepeat 3 0]] 131 } -result [lrepeat 4 [lrepeat 3 0]] 146 132 147 test crimp-blank-3.6 {Blank images, grey16} -body { 133 test crimp-blank-3.6 {Blank images, grey16} -body { ................................................................................................................................................................................ 188 crimp at [crimp blank grey16 3 0 0] 174 crimp at [crimp blank grey16 3 0 0] 189 } -result {0 0} 175 } -result {0 0} 190 176 191 # ------------------------------------------------------------------------- 177 # ------------------------------------------------------------------------- 192 178 193 test crimp-blank-4.0 {Blank images, grey32, wrong\#args, not enough} -body { 179 test crimp-blank-4.0 {Blank images, grey32, wrong\#args, not enough} -body { 194 crimp blank grey32 W H 180 crimp blank grey32 W H 195 } -cleanup { < 196 } -returnCodes error -result {wrong # args: should be "blank_grey32 w h value"} 181 } -returnCodes error -result {wrong # args: should be "blank_grey32 w h value"} 197 182 198 test crimp-blank-4.1 {Blank images, grey32, wrong\#args, too many} -body { 183 test crimp-blank-4.1 {Blank images, grey32, wrong\#args, too many} -body { 199 crimp blank grey32 W H VALUE toomuch 184 crimp blank grey32 W H VALUE toomuch 200 } -cleanup { < 201 } -returnCodes error -result {wrong # args: should be "blank_grey32 w h value"} 185 } -returnCodes error -result {wrong # args: should be "blank_grey32 w h value"} 202 186 203 test crimp-blank-4.2 {Blank images, grey32, bogus dimensions} -body { 187 test crimp-blank-4.2 {Blank images, grey32, bogus dimensions} -body { 204 crimp blank grey32 W H VALUE 188 crimp blank grey32 W H VALUE 205 } -cleanup { < 206 } -returnCodes error -result {expected integer but got "W"} 189 } -returnCodes error -result {expected integer but got "W"} 207 190 208 test crimp-blank-4.3 {Blank images, grey32, bogus dimensions} -body { 191 test crimp-blank-4.3 {Blank images, grey32, bogus dimensions} -body { 209 crimp blank grey32 3 H VALUE 192 crimp blank grey32 3 H VALUE 210 } -cleanup { < 211 } -returnCodes error -result {expected integer but got "H"} 193 } -returnCodes error -result {expected integer but got "H"} 212 194 213 test crimp-blank-4.4 {Blank images, grey32, bogus pixel value} -body { 195 test crimp-blank-4.4 {Blank images, grey32, bogus pixel value} -body { 214 crimp blank grey32 3 4 VALUE 196 crimp blank grey32 3 4 VALUE 215 } -cleanup { < 216 } -returnCodes error -result {expected integer but got "VALUE"} 197 } -returnCodes error -result {expected integer but got "VALUE"} 217 198 218 test crimp-blank-4.5 {Blank images, grey32} -body { 199 test crimp-blank-4.5 {Blank images, grey32} -body { 219 crimp write 2string tcl [crimp blank grey32 3 4 0] 200 crimp write 2string tcl [crimp blank grey32 3 4 0] 220 } -result [lrepeat 4 [lrepeat 3 0]] 201 } -result [lrepeat 4 [lrepeat 3 0]] 221 202 222 test crimp-blank-4.6 {Blank images, grey32} -body { 203 test crimp-blank-4.6 {Blank images, grey32} -body { ................................................................................................................................................................................ 264 crimp at [crimp blank grey32 3 0 0] 245 crimp at [crimp blank grey32 3 0 0] 265 } -result {0 0} 246 } -result {0 0} 266 247 267 # ------------------------------------------------------------------------- 248 # ------------------------------------------------------------------------- 268 249 269 test crimp-blank-5.0 {Blank images, float, wrong\#args, not enough} -body { 250 test crimp-blank-5.0 {Blank images, float, wrong\#args, not enough} -body { 270 crimp blank float W H 251 crimp blank float W H 271 } -cleanup { < 272 } -returnCodes error -result {wrong # args: should be "blank_float w h value"} 252 } -returnCodes error -result {wrong # args: should be "blank_float w h value"} 273 253 274 test crimp-blank-5.1 {Blank images, float, wrong\#args, too many} -body { 254 test crimp-blank-5.1 {Blank images, float, wrong\#args, too many} -body { 275 crimp blank float W H VALUE toomuch 255 crimp blank float W H VALUE toomuch 276 } -cleanup { < 277 } -returnCodes error -result {wrong # args: should be "blank_float w h value"} 256 } -returnCodes error -result {wrong # args: should be "blank_float w h value"} 278 257 279 test crimp-blank-5.2 {Blank images, float, bogus dimensions} -body { 258 test crimp-blank-5.2 {Blank images, float, bogus dimensions} -body { 280 crimp blank float W H VALUE 259 crimp blank float W H VALUE 281 } -cleanup { < 282 } -returnCodes error -result {expected integer but got "W"} 260 } -returnCodes error -result {expected integer but got "W"} 283 261 284 test crimp-blank-5.3 {Blank images, float, bogus dimensions} -body { 262 test crimp-blank-5.3 {Blank images, float, bogus dimensions} -body { 285 crimp blank float 3 H VALUE 263 crimp blank float 3 H VALUE 286 } -cleanup { < 287 } -returnCodes error -result {expected integer but got "H"} 264 } -returnCodes error -result {expected integer but got "H"} 288 265 289 test crimp-blank-5.4 {Blank images, float, bogus pixel value} -body { 266 test crimp-blank-5.4 {Blank images, float, bogus pixel value} -body { 290 crimp blank float 3 4 VALUE 267 crimp blank float 3 4 VALUE 291 } -cleanup { < 292 } -returnCodes error -result {expected floating-point number but got "VALUE"} 268 } -returnCodes error -result {expected floating-point number but got "VALUE"} 293 269 294 test crimp-blank-5.5 {Blank images, float} -body { 270 test crimp-blank-5.5 {Blank images, float} -body { 295 crimp write 2string tcl [crimp blank float 3 4 0] 271 crimp write 2string tcl [crimp blank float 3 4 0] 296 } -result [lrepeat 4 [lrepeat 3 0.0]] 272 } -result [lrepeat 4 [lrepeat 3 0.0]] 297 273 298 test crimp-blank-5.6 {Blank images, float} -body { 274 test crimp-blank-5.6 {Blank images, float} -body { ................................................................................................................................................................................ 339 crimp at [crimp blank float 3 0 0] 315 crimp at [crimp blank float 3 0 0] 340 } -result {0 0} 316 } -result {0 0} 341 317 342 # ------------------------------------------------------------------------- 318 # ------------------------------------------------------------------------- 343 319 344 test crimp-blank-6.0 {Blank images, rgb, wrong\#args, not enough} -body { 320 test crimp-blank-6.0 {Blank images, rgb, wrong\#args, not enough} -body { 345 crimp blank rgb W H 321 crimp blank rgb W H 346 } -cleanup { < 347 } -returnCodes error -result {wrong # args: should be "blank_rgb w h r g b"} 322 } -returnCodes error -result {wrong # args: should be "blank_rgb w h r g b"} 348 323 349 test crimp-blank-6.1 {Blank images, rgb, wrong\#args, too many} -body { 324 test crimp-blank-6.1 {Blank images, rgb, wrong\#args, too many} -body { 350 crimp blank rgb W H R G B toomuch 325 crimp blank rgb W H R G B toomuch 351 } -cleanup { < 352 } -returnCodes error -result {wrong # args: should be "blank_rgb w h r g b"} 326 } -returnCodes error -result {wrong # args: should be "blank_rgb w h r g b"} 353 327 354 test crimp-blank-6.2 {Blank images, rgb, bogus dimensions} -body { 328 test crimp-blank-6.2 {Blank images, rgb, bogus dimensions} -body { 355 crimp blank rgb W H R G B 329 crimp blank rgb W H R G B 356 } -cleanup { < 357 } -returnCodes error -result {expected integer but got "W"} 330 } -returnCodes error -result {expected integer but got "W"} 358 331 359 test crimp-blank-6.3 {Blank images, rgb, bogus dimensions} -body { 332 test crimp-blank-6.3 {Blank images, rgb, bogus dimensions} -body { 360 crimp blank rgb 3 H R G B 333 crimp blank rgb 3 H R G B 361 } -cleanup { < 362 } -returnCodes error -result {expected integer but got "H"} 334 } -returnCodes error -result {expected integer but got "H"} 363 335 364 test crimp-blank-6.4 {Blank images, rgb, bogus dimensions} -body { 336 test crimp-blank-6.4 {Blank images, rgb, bogus dimensions} -body { 365 crimp blank rgb 3 4 R G B 337 crimp blank rgb 3 4 R G B 366 } -cleanup { < 367 } -returnCodes error -result {expected integer but got "R"} 338 } -returnCodes error -result {expected integer but got "R"} 368 339 369 test crimp-blank-6.5 {Blank images, rgb, bogus pixel values} -body { 340 test crimp-blank-6.5 {Blank images, rgb, bogus pixel values} -body { 370 crimp blank rgb 3 4 5 G B 341 crimp blank rgb 3 4 5 G B 371 } -cleanup { < 372 } -returnCodes error -result {expected integer but got "G"} 342 } -returnCodes error -result {expected integer but got "G"} 373 343 374 test crimp-blank-6.6 {Blank images, rgb, bogus pixel values} -body { 344 test crimp-blank-6.6 {Blank images, rgb, bogus pixel values} -body { 375 crimp blank rgb 3 4 5 6 B 345 crimp blank rgb 3 4 5 6 B 376 } -cleanup { < 377 } -returnCodes error -result {expected integer but got "B"} 346 } -returnCodes error -result {expected integer but got "B"} 378 347 379 test crimp-blank-6.7 {Blank images, rgb} -body { 348 test crimp-blank-6.7 {Blank images, rgb} -body { 380 crimp write 2string tcl [crimp blank rgb 3 4 0 1 2] 349 crimp write 2string tcl [crimp blank rgb 3 4 0 1 2] 381 } -result [lrepeat 4 [lrepeat 3 {0 1 2}]] 350 } -result [lrepeat 4 [lrepeat 3 {0 1 2}]] 382 351 383 test crimp-blank-6.8 {Blank images, rgb, auto-fill} -body { 352 test crimp-blank-6.8 {Blank images, rgb, auto-fill} -body { ................................................................................................................................................................................ 420 crimp at [crimp blank rgb 3 0 0] 389 crimp at [crimp blank rgb 3 0 0] 421 } -result {0 0} 390 } -result {0 0} 422 391 423 # ------------------------------------------------------------------------- 392 # ------------------------------------------------------------------------- 424 393 425 test crimp-blank-7.0 {Blank images, rgba, wrong\#args, not enough} -body { 394 test crimp-blank-7.0 {Blank images, rgba, wrong\#args, not enough} -body { 426 crimp blank rgba W H 395 crimp blank rgba W H 427 } -cleanup { < 428 } -returnCodes error -result {wrong # args: should be "blank_rgba w h r g b a"} 396 } -returnCodes error -result {wrong # args: should be "blank_rgba w h r g b a"} 429 397 430 test crimp-blank-7.1 {Blank images, rgba, wrong\#args, too many} -body { 398 test crimp-blank-7.1 {Blank images, rgba, wrong\#args, too many} -body { 431 crimp blank rgba W H R G B A toomuch 399 crimp blank rgba W H R G B A toomuch 432 } -cleanup { < 433 } -returnCodes error -result {wrong # args: should be "blank_rgba w h r g b a"} 400 } -returnCodes error -result {wrong # args: should be "blank_rgba w h r g b a"} 434 401 435 test crimp-blank-7.2 {Blank images, rgba, bogus dimensions} -body { 402 test crimp-blank-7.2 {Blank images, rgba, bogus dimensions} -body { 436 crimp blank rgba W H R G B A 403 crimp blank rgba W H R G B A 437 } -cleanup { < 438 } -returnCodes error -result {expected integer but got "W"} 404 } -returnCodes error -result {expected integer but got "W"} 439 405 440 test crimp-blank-7.3 {Blank images, rgba, bogus dimensions} -body { 406 test crimp-blank-7.3 {Blank images, rgba, bogus dimensions} -body { 441 crimp blank rgba 3 H R G B A 407 crimp blank rgba 3 H R G B A 442 } -cleanup { < 443 } -returnCodes error -result {expected integer but got "H"} 408 } -returnCodes error -result {expected integer but got "H"} 444 409 445 test crimp-blank-7.4 {Blank images, rgba, bogus pixel values} -body { 410 test crimp-blank-7.4 {Blank images, rgba, bogus pixel values} -body { 446 crimp blank rgba 3 4 R G B A 411 crimp blank rgba 3 4 R G B A 447 } -cleanup { < 448 } -returnCodes error -result {expected integer but got "R"} 412 } -returnCodes error -result {expected integer but got "R"} 449 413 450 test crimp-blank-7.5 {Blank images, rgba, bogus pixel values} -body { 414 test crimp-blank-7.5 {Blank images, rgba, bogus pixel values} -body { 451 crimp blank rgba 3 4 5 G B A 415 crimp blank rgba 3 4 5 G B A 452 } -cleanup { < 453 } -returnCodes error -result {expected integer but got "G"} 416 } -returnCodes error -result {expected integer but got "G"} 454 417 455 test crimp-blank-7.6 {Blank images, rgba, bogus pixel values} -body { 418 test crimp-blank-7.6 {Blank images, rgba, bogus pixel values} -body { 456 crimp blank rgba 3 4 5 6 B A 419 crimp blank rgba 3 4 5 6 B A 457 } -cleanup { < 458 } -returnCodes error -result {expected integer but got "B"} 420 } -returnCodes error -result {expected integer but got "B"} 459 421 460 test crimp-blank-7.7 {Blank images, rgba, bogus pixel values} -body { 422 test crimp-blank-7.7 {Blank images, rgba, bogus pixel values} -body { 461 crimp blank rgba 3 4 5 6 7 A 423 crimp blank rgba 3 4 5 6 7 A 462 } -cleanup { < 463 } -returnCodes error -result {expected integer but got "A"} 424 } -returnCodes error -result {expected integer but got "A"} 464 425 465 test crimp-blank-7.8 {Blank images, rgba} -body { 426 test crimp-blank-7.8 {Blank images, rgba} -body { 466 crimp write 2string tcl [crimp blank rgba 3 4 0 1 2 3] 427 crimp write 2string tcl [crimp blank rgba 3 4 0 1 2 3] 467 } -result [lrepeat 4 [lrepeat 3 {0 1 2 3}]] 428 } -result [lrepeat 4 [lrepeat 3 {0 1 2 3}]] 468 429 469 test crimp-blank-7.9 {Blank images, rgba, auto-fill} -body { 430 test crimp-blank-7.9 {Blank images, rgba, auto-fill} -body { ................................................................................................................................................................................ 506 crimp at [crimp blank rgba 3 0 0] 467 crimp at [crimp blank rgba 3 0 0] 507 } -result {0 0} 468 } -result {0 0} 508 469 509 # ------------------------------------------------------------------------- 470 # ------------------------------------------------------------------------- 510 471 511 test crimp-blank-8.0 {Blank images, hsv, wrong\#args, not enough} -body { 472 test crimp-blank-8.0 {Blank images, hsv, wrong\#args, not enough} -body { 512 crimp blank hsv W H 473 crimp blank hsv W H 513 } -cleanup { < 514 } -returnCodes error -result {wrong # args: should be "blank_hsv w h hue sat val 474 } -returnCodes error -result {wrong # args: should be "blank_hsv w h hue sat val 515 475 516 test crimp-blank-8.1 {Blank images, hsv, wrong\#args, too many} -body { 476 test crimp-blank-8.1 {Blank images, hsv, wrong\#args, too many} -body { 517 crimp blank hsv W H H S V toomuch 477 crimp blank hsv W H H S V toomuch 518 } -cleanup { < 519 } -returnCodes error -result {wrong # args: should be "blank_hsv w h hue sat val 478 } -returnCodes error -result {wrong # args: should be "blank_hsv w h hue sat val 520 479 521 test crimp-blank-8.2 {Blank images, hsv, bogus dimensions} -body { 480 test crimp-blank-8.2 {Blank images, hsv, bogus dimensions} -body { 522 crimp blank hsv W H H S V 481 crimp blank hsv W H H S V 523 } -cleanup { < 524 } -returnCodes error -result {expected integer but got "W"} 482 } -returnCodes error -result {expected integer but got "W"} 525 483 526 test crimp-blank-8.3 {Blank images, hsv, bogus dimensions} -body { 484 test crimp-blank-8.3 {Blank images, hsv, bogus dimensions} -body { 527 crimp blank hsv 3 H H S V 485 crimp blank hsv 3 H H S V 528 } -cleanup { < 529 } -returnCodes error -result {expected integer but got "H"} 486 } -returnCodes error -result {expected integer but got "H"} 530 487 531 test crimp-blank-8.4 {Blank images, hsv, bogus pixel values} -body { 488 test crimp-blank-8.4 {Blank images, hsv, bogus pixel values} -body { 532 crimp blank hsv 3 4 H S V 489 crimp blank hsv 3 4 H S V 533 } -cleanup { < 534 } -returnCodes error -result {expected integer but got "H"} 490 } -returnCodes error -result {expected integer but got "H"} 535 491 536 test crimp-blank-8.5 {Blank images, hsv, bogus pixel values} -body { 492 test crimp-blank-8.5 {Blank images, hsv, bogus pixel values} -body { 537 crimp blank hsv 3 4 5 S V 493 crimp blank hsv 3 4 5 S V 538 } -cleanup { < 539 } -returnCodes error -result {expected integer but got "S"} 494 } -returnCodes error -result {expected integer but got "S"} 540 495 541 test crimp-blank-8.6 {Blank images, hsv, bogus pixel values} -body { 496 test crimp-blank-8.6 {Blank images, hsv, bogus pixel values} -body { 542 crimp blank hsv 3 4 5 6 V 497 crimp blank hsv 3 4 5 6 V 543 } -cleanup { < 544 } -returnCodes error -result {expected integer but got "V"} 498 } -returnCodes error -result {expected integer but got "V"} 545 499 546 test crimp-blank-8.7 {Blank images, hsv} -body { 500 test crimp-blank-8.7 {Blank images, hsv} -body { 547 crimp write 2string tcl [crimp blank hsv 3 4 0 1 2] 501 crimp write 2string tcl [crimp blank hsv 3 4 0 1 2] 548 } -result [lrepeat 4 [lrepeat 3 {0 1 2}]] 502 } -result [lrepeat 4 [lrepeat 3 {0 1 2}]] 549 503 550 test crimp-blank-8.8 {Blank images, hsv, auto-fill} -body { 504 test crimp-blank-8.8 {Blank images, hsv, auto-fill} -body { ................................................................................................................................................................................ 587 crimp at [crimp blank hsv 3 0 0] 541 crimp at [crimp blank hsv 3 0 0] 588 } -result {0 0} 542 } -result {0 0} 589 543 590 # ------------------------------------------------------------------------- 544 # ------------------------------------------------------------------------- 591 545 592 test crimp-blank-9.0 {Blank images, fpcomplex, wrong\#args, not enough} -body { 546 test crimp-blank-9.0 {Blank images, fpcomplex, wrong\#args, not enough} -body { 593 crimp blank fpcomplex W H 547 crimp blank fpcomplex W H 594 } -cleanup { < 595 } -returnCodes error -result {wrong # args: should be "blank_fpcomplex w h re im 548 } -returnCodes error -result {wrong # args: should be "blank_fpcomplex w h re im 596 549 597 test crimp-blank-9.1 {Blank images, fpcomplex, wrong\#args, too many} -body { 550 test crimp-blank-9.1 {Blank images, fpcomplex, wrong\#args, too many} -body { 598 crimp blank fpcomplex W H RE IM toomuch 551 crimp blank fpcomplex W H RE IM toomuch 599 } -cleanup { < 600 } -returnCodes error -result {wrong # args: should be "blank_fpcomplex w h re im 552 } -returnCodes error -result {wrong # args: should be "blank_fpcomplex w h re im 601 553 602 test crimp-blank-9.2 {Blank images, fpcomplex, bogus dimensions} -body { 554 test crimp-blank-9.2 {Blank images, fpcomplex, bogus dimensions} -body { 603 crimp blank fpcomplex W H RE IM 555 crimp blank fpcomplex W H RE IM 604 } -cleanup { < 605 } -returnCodes error -result {expected integer but got "W"} 556 } -returnCodes error -result {expected integer but got "W"} 606 557 607 test crimp-blank-9.3 {Blank images, fpcomplex, bogus dimensions} -body { 558 test crimp-blank-9.3 {Blank images, fpcomplex, bogus dimensions} -body { 608 crimp blank fpcomplex 3 H RE IM 559 crimp blank fpcomplex 3 H RE IM 609 } -cleanup { < 610 } -returnCodes error -result {expected integer but got "H"} 560 } -returnCodes error -result {expected integer but got "H"} 611 561 612 test crimp-blank-9.4 {Blank images, fpcomplex, bogus pixel value} -body { 562 test crimp-blank-9.4 {Blank images, fpcomplex, bogus pixel value} -body { 613 crimp blank fpcomplex 3 4 RE IM 563 crimp blank fpcomplex 3 4 RE IM 614 } -cleanup { < 615 } -returnCodes error -result {expected floating-point number but got "RE"} 564 } -returnCodes error -result {expected floating-point number but got "RE"} 616 565 617 test crimp-blank-9.5 {Blank images, fpcomplex, bogus pixel value} -body { 566 test crimp-blank-9.5 {Blank images, fpcomplex, bogus pixel value} -body { 618 crimp blank fpcomplex 3 4 1 IM 567 crimp blank fpcomplex 3 4 1 IM 619 } -cleanup { < 620 } -returnCodes error -result {expected floating-point number but got "IM"} 568 } -returnCodes error -result {expected floating-point number but got "IM"} 621 569 622 test crimp-blank-9.6 {Blank images, fpcomplex} -body { 570 test crimp-blank-9.6 {Blank images, fpcomplex} -body { 623 crimp write 2string tcl [crimp blank fpcomplex 3 4 0] 571 crimp write 2string tcl [crimp blank fpcomplex 3 4 0] 624 } -result [lrepeat 4 [lrepeat 3 {0.0 0.0}]] 572 } -result [lrepeat 4 [lrepeat 3 {0.0 0.0}]] 625 573 626 test crimp-blank-9.7 {Blank images, fpcomplex} -body { 574 test crimp-blank-9.7 {Blank images, fpcomplex} -body {