0025987: Integration part of modified unstable test cases
[occt.git] / tests / bugs / vis / bug21091_9
index c671133..5df4662 100755 (executable)
@@ -1,5 +1,3 @@
-puts "TODO ?OCC11111 ALL: Faulty : Export to"
-
 puts "============"
 puts "OCC21091"
 puts "OCC21450"
@@ -10,8 +8,6 @@ puts ""
 #Testing export to PGF format
 
 vinit
-set only_screen 1
-
 vtrihedron trihedron
 
 vpoint p1 -300 -300 -300
@@ -38,17 +34,27 @@ vaxis ax1 100 100 100 100 100 0
 box a 110 110 110 200 200 200
 vdisplay a
 
-set aFile $imagedir/${test_image}.pgf
+file delete -force ${imagedir}/${test_image}.pgf
+set aFile ${imagedir}/${test_image}.pgf
 
 vexport ${aFile} PGF
 
+if { [string compare $tcl_platform(platform) "windows"] != 0 } {
+   set refsize 20438
+} else {
+   set refsize 20770
+}
+
 if { [file exists ${aFile}] } {
    puts "Export to PGF file was done"
    set filesize [file size ${aFile}]
-   puts $filesize
-   if { $filesize != 20398 } {
-      puts "Faulty : Export to PGF file was done but size of file is incorrect"
-      }
-   } else {
-     puts "Faulty : Export to PGF file was not done"
+   if { $filesize != $refsize } {
+      puts "Error: Export to PGF file was done but size of file is incorrect (refsize = $refsize, current = $filesize)."
+         puts "Error: Compare content of resulting PGF file with reference."
+         puts "Error: Update refsize if it's necessary."
    }
+} else {
+   puts "Faulty : Export to PGF file was not done"
+}
+
+set only_screen 1
\ No newline at end of file