0023953: Avoid unjustified use of $CASROOT and exporting to GIF in tests

Function locate_data_file is used instead of direct path in 3rdparty fonts tests
DE tests changed to produce PNG images

diff --git a/tests/3rdparty/fonts/A3 b/tests/3rdparty/fonts/A3
index e438cffa51975a765bd4ba7132f626edbf9bed89..61b922f70713a91d66d801d5a3518902ba4883c4 100644 (file)
--- a/tests/3rdparty/fonts/A3
+++ b/tests/3rdparty/fonts/A3
@@ -6,7 +6,7 @@ puts ""
 
 vtrihedron trihedr
 
-set aFileHandle [open "$::env(CASROOT)/data/step/screw.step" r]
+set aFileHandle [open [locate_data_file screw.step] r]
 set aText [read $aFileHandle]
 close $aFileHandle
 

diff --git a/tests/3rdparty/fonts/A4 b/tests/3rdparty/fonts/A4
index c0cda4d1de4e259ea735be4a44908b54b7b05ba8..ac7b213cea0e37c8dc1a626e570153c284dd46c2 100644 (file)
--- a/tests/3rdparty/fonts/A4
+++ b/tests/3rdparty/fonts/A4
@@ -6,7 +6,7 @@ puts ""
 
 vtrihedron trihedr
 
-set aFileHandle [open "$::env(CASROOT)/data/step/screw.step" r]
+set aFileHandle [open [locate_data_file screw.step] r]
 set aFileData   [read $aFileHandle]
 close $aFileHandle
 

diff --git a/tests/de/end b/tests/de/end
index 1c96dcd23fa1941d0c0e32c4d2891d98d03f741b..9318c45e4d9ebfcc741420fd9a062d2ab6977751 100644 (file)
--- a/tests/de/end
+++ b/tests/de/end
@@ -702,7 +702,7 @@ if { $mist < 1 } {
     }
 }
 fit
-xwd $imagedir/${test_image}.gif
+xwd $imagedir/${test_image}.png
 if { $mist < 1 } {
    if { [catch { Close D_Second } catch_result] } {
       puts "Error : cannot close a document D_Second"