diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-09-24 14:52:40 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-09-24 14:52:40 (GMT) |
| commit | 8929e642afed819ec440118bd49de303443ad33b (patch) | |
| tree | d7935acac51c778d3d3b69ec7a3d3fcd52289496 /tests | |
| parent | db26ea2e60aedecdc6ced529480fe23aee34841e (diff) | |
| parent | 62847af89d0e7df4117135e9fbbcf30ef0546874 (diff) | |
| download | tk-8929e642afed819ec440118bd49de303443ad33b.zip tk-8929e642afed819ec440118bd49de303443ad33b.tar.gz tk-8929e642afed819ec440118bd49de303443ad33b.tar.bz2 | |
Fix [5239fd749b]: Segfault when copying a photo image to itself. Patch from Simon Bachmann.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/imgPhoto.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index 4bff5cc..0126ad9 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -820,6 +820,18 @@ test imgPhoto-4.75 {<photo> read command: filename starting with '-'} -constrain image delete photo1 file delete ./-teapotPhotoFile } -result {} +test imgPhoto-4.76 {ImgPhotoCmd procedure: copy to same image} -constraints { + hasTeapotPhoto +} -setup { + imageCleanup + image create photo photo1 -file $teapotPhotoFile +} -body { + # non-regression test for bug [5239fd749b] - shall just not crash + photo1 copy photo1 -to 0 0 2000 1000 + photo1 copy photo1 -subsample 2 2 -shrink +} -cleanup { + imageCleanup +} -result {} test imgPhoto-5.1 {ImgPhotoGet/Free procedures, shared instances} -constraints { hasTeapotPhoto |