diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2023-08-17 11:43:57 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2023-08-17 11:43:57 (GMT) |
| commit | f016f7ce1df882c15f7450dce4d228df708c103f (patch) | |
| tree | 9f353dde5241a065b0d0e6d6f855e887d59555c8 /tests/imgPhoto.test | |
| parent | 181514d86686c5c12a4349479fb6429f4feea33a (diff) | |
| download | tk-f016f7ce1df882c15f7450dce4d228df708c103f.zip tk-f016f7ce1df882c15f7450dce4d228df708c103f.tar.gz tk-f016f7ce1df882c15f7450dce4d228df708c103f.tar.bz2 | |
Ticket [daa10097]: moved test case to imgPhoto.test, as it is not specific to svg
Diffstat (limited to 'tests/imgPhoto.test')
| -rw-r--r-- | tests/imgPhoto.test | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index aaa8169..5a88a29 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -2104,6 +2104,21 @@ test imgPhoto-21.3 {option -metadata, get default value} -setup { catch {image delete photo1} } -result {} +test imgPhoto-21.4 {bug daa10097: only 3 metadata list items on configure} -setup { + image create photo photo1 +} -body { + set a {} + foreach line [photo1 configure] { + if {[lindex $line 0] eq {-metadata}} { + set a $line + } + } + set a +} -cleanup { + catch {image delete photo1} +} -result {-metadata {} {} {} {}} + + # imgPhoto-22.x : Tk_PhotoSetMetadata test imgPhoto-22.1 {option -metadata, set value} -setup { |