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