diff options
author | oehhar <harald.oehlmann@elmicron.de> | 2023-08-17 11:29:28 (GMT) |
---|---|---|
committer | oehhar <harald.oehlmann@elmicron.de> | 2023-08-17 11:29:28 (GMT) |
commit | 07b594adcf0cda4f9140f4498a85ebfa09eb0857 (patch) | |
tree | 3768580bc85b41df6efbf93d0ed7e56545000cfb /tests | |
parent | 1c6cb291d62a923fb1f528519ec065dd27403167 (diff) | |
download | tk-07b594adcf0cda4f9140f4498a85ebfa09eb0857.zip tk-07b594adcf0cda4f9140f4498a85ebfa09eb0857.tar.gz tk-07b594adcf0cda4f9140f4498a85ebfa09eb0857.tar.bz2 |
Ticket [daa10097]: test cases
Diffstat (limited to 'tests')
-rw-r--r-- | tests/imgSVGnano.test | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/imgSVGnano.test b/tests/imgSVGnano.test index 2da15e7..67c3484 100644 --- a/tests/imgSVGnano.test +++ b/tests/imgSVGnano.test @@ -251,6 +251,32 @@ test imgSVGnano-5.2 {bug d6e9b4db40 - "<svg" and ">" must be present} -body { tcltest::removeFile plus.svg tcltest::removeFile bad.svg +# Metadata + +test imgSVGnano-6.0 {bug daa10097: only 3 metadata list items on configure} -setup { + catch {rename foo ""} +} -body { + image create photo foo -data $data(plus) + set a {} + foreach line [::tk::icons::information configure] { + if {[lindex $line 0] eq {-metadata}} { + set a $line + } + } + set a +} -cleanup { + image delete foo +} -result {-metadata {} {} {} {}} + +test imgSVGnano-6.1 {bug daa10097: 4 metadata list items on configure -metadata} -setup { + catch {rename foo ""} +} -body { + image create photo foo -data $data(plus) + foo configure -metadata +} -cleanup { + image delete foo +} -result {-metadata {} {} {} {}} + };# end of namespace svgnano namespace delete svgnano |