Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Minor changes in the new tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tip-545-svg-options |
| Files: | files | file ages | folders |
| SHA3-256: |
c4b7a751d6c6fac2f010b711406520f6 |
| User & Date: | fvogel 2019-06-10 11:53:27 |
Context
|
2019-06-10
| ||
| 12:10 | Update documentation to reflect content of TIP #545 check-in: 2057f970 user: fvogel tags: tip-545-svg-options | |
| 11:53 | Minor changes in the new tests check-in: c4b7a751 user: fvogel tags: tip-545-svg-options | |
|
2019-06-09
| ||
| 12:51 | svgnano return width or height of 0 is an error and is true for some png images. check-in: 4faf68ed user: oehhar tags: tip-545-svg-options | |
Changes
Changes to tests/imgSVGnano.test.
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
...
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
} -returnCodes error -result {expected integer but got "invalid"}
test imgSVGnano-3.4 {zero parameter to -scaletowidth} -body {
image create photo foo -format "svg -scaletowidth 0"\
-data $data(plus)
} -returnCodes error -result {-scaletowidth value must be positive}
test imgSVGnano-3.5 {zero parameter to -scaletowidth} -body {
image create photo foo -format "svg -scaletoheight 0"\
-data $data(plus)
} -returnCodes error -result {-scaletoheight value must be positive}
test imgSVGnano-3.6 {no number parameter to -scaletoheight} -body {
image create photo foo -format "svg -scale 1 -scaletoheight invalid"\
-data $data(plus)
} -returnCodes error -result {only one of -scale, -scaletoheight, -scaletowidth may be given}
test imgSVGnano-3.7 {Option -scaletowidth} -body {
image create photo foo -format "svg -scaletowidth 20"\
-data $data(plus)
image width foo
} -cleanup {
rename foo ""
................................................................................
} -cleanup {
rename foo ""
} -result {20}
test imgSVGnano-3.9 {Very small scale gives 1x1 image} -body {
image create photo foo -format "svg -scale 0.000001"\
-data $data(plus)
image height foo
} -cleanup {
rename foo ""
} -result {1}
};# end of namespace svgnano
namespace delete svgnano
imageFinish
cleanupTests
return
# Local Variables:
# mode: tcl
# fill-column: 78
# End:
|
|
|
|
|
|
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
...
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
} -returnCodes error -result {expected integer but got "invalid"}
test imgSVGnano-3.4 {zero parameter to -scaletowidth} -body {
image create photo foo -format "svg -scaletowidth 0"\
-data $data(plus)
} -returnCodes error -result {-scaletowidth value must be positive}
test imgSVGnano-3.5 {zero parameter to -scaletoheight} -body {
image create photo foo -format "svg -scaletoheight 0"\
-data $data(plus)
} -returnCodes error -result {-scaletoheight value must be positive}
test imgSVGnano-3.6 {no number parameter to -scaletoheight} -body {
image create photo foo -format "svg -scaletoheight invalid"\
-data $data(plus)
} -returnCodes error -result {expected integer but got "invalid"}
test imgSVGnano-3.7 {Option -scaletowidth} -body {
image create photo foo -format "svg -scaletowidth 20"\
-data $data(plus)
image width foo
} -cleanup {
rename foo ""
................................................................................
} -cleanup {
rename foo ""
} -result {20}
test imgSVGnano-3.9 {Very small scale gives 1x1 image} -body {
image create photo foo -format "svg -scale 0.000001"\
-data $data(plus)
list [image width foo] [image height foo]
} -cleanup {
rename foo ""
} -result {1 1}
};# end of namespace svgnano
namespace delete svgnano
imageFinish
cleanupTests
return
# Local Variables:
# mode: tcl
# fill-column: 78
# End:
|