diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-04-12 21:42:51 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-04-12 21:42:51 (GMT) |
| commit | bfc9e1b9f79100fa104697353b670f9ba95d012d (patch) | |
| tree | 5b40185c6e3c51aa830c9aa4933629a704cdc2f9 | |
| parent | c14733a8c0255097c66badda7e20fad95a69dfd6 (diff) | |
| download | tk-bfc9e1b9f79100fa104697353b670f9ba95d012d.zip tk-bfc9e1b9f79100fa104697353b670f9ba95d012d.tar.gz tk-bfc9e1b9f79100fa104697353b670f9ba95d012d.tar.bz2 | |
Repair the test suite (the svgnano format was renamed svg, and -x/-y options were removed from the implementation.
| -rw-r--r-- | tests/imgSVGnano.test | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/tests/imgSVGnano.test b/tests/imgSVGnano.test index ec93f0a..74c3318 100644 --- a/tests/imgSVGnano.test +++ b/tests/imgSVGnano.test @@ -39,7 +39,7 @@ test imgSVGnano-1.1 {reading simple image} -setup { test imgSVGnano-1.2 {simple image with options} -setup { catch {rename foo ""} } -body { - image create photo foo -data $data(plus) -format {svgnano -dpi 100 -scale 3} + image create photo foo -data $data(plus) -format {svg -dpi 100 -scale 3} list [image width foo] [image height foo] } -cleanup { rename foo "" @@ -50,7 +50,7 @@ test imgSVGnano-1.3 {reformat image options} -setup { catch {rename foo ""} } -body { image create photo foo -data $data(plus) - catch {foo configure -format {svgnano -scale}} + catch {foo configure -format {svg -scale}} list {} } -cleanup { rename foo "" @@ -60,14 +60,13 @@ test imgSVGnano-1.4 {image options} -setup { catch {rename foo ""} } -body { image create photo foo -data $data(plus) - foo configure -format {svgnano -scale 2} - foo configure -format {svgnano -x 20 -y -10} - foo configure -format {svgnano -unit pt} - foo configure -format {svgnano -unit mm} - foo configure -format {svgnano -unit cm} - foo configure -format {svgnano -unit in} - foo configure -format {svgnano -unit px} - foo configure -format {svgnano -dpi 600} + foo configure -format {svg -scale 2} + foo configure -format {svg -unit pt} + foo configure -format {svg -unit mm} + foo configure -format {svg -unit cm} + foo configure -format {svg -unit in} + foo configure -format {svg -unit px} + foo configure -format {svg -dpi 600} list [image width foo] [image height foo] } -cleanup { rename foo "" @@ -75,10 +74,10 @@ test imgSVGnano-1.4 {image options} -setup { test imgSVGnano-2.1 {reading a bad image} -body { - image create photo foo -format svgnano -data $data(bad) + image create photo foo -format svg -data $data(bad) } -returnCodes error -result {couldn't recognize image data} test imgSVGnano-2.2 {using bad option} -body { - image create photo -data $data(plus) -format {svgnano -scale 0} + image create photo -data $data(plus) -format {svg -scale 0} } -returnCodes error -result {couldn't recognize image data} };# end of namespace svgnano |