From ac29d56ac7940cab9e714f03a4b06a5681e06b06 Mon Sep 17 00:00:00 2001
From: abv <abv@opencascade.com>
Date: Sat, 11 May 2013 11:04:14 +0400
Subject: [PATCH] 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
---
 tests/3rdparty/fonts/A3 | 2 +-
 tests/3rdparty/fonts/A4 | 2 +-
 tests/de/end            | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/3rdparty/fonts/A3 b/tests/3rdparty/fonts/A3
index e438cffa51..61b922f707 100644
--- 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 c0cda4d1de..ac7b213cea 100644
--- 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 1c96dcd23f..9318c45e4d 100644
--- 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"
-- 
2.20.1