tests/bugs/vis/bug21091_3

   1 puts "TODO ?OCC11111 ALL: Faulty : Export to pdf file was done but size of file is incorrect"
   2 puts "TODO OCC24156 MacOS: Tcl Exception: File shape.stl could not be found"
   3 puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
   4
   5 puts "============"
   6 puts "OCC21091"
   7 puts "OCC21450"
   8 puts "============"
   9 puts ""
  10 #vinit
  11 #vexport
  12 #vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
  13 #
  14
  15 pload XSDRAW
  16 vinit
  17 set only_screen 1
  18
  19 meshfromstl m [locate_data_file shape.stl]
  20
  21 meshdispmode m 34
  22
  23 set aFile $imagedir/${test_image}.pdf
  24
  25 vexport ${aFile} PDF
  26
  27 if { [file exists ${aFile}] } {
  28    puts "Export to pdf file was done"
  29    set filesize [file size ${aFile}]
  30    if { $filesize != 154489 } {
  31       puts "Faulty : Export to pdf file was done but size of file is incorrect"
  32    }
  33 } else {
  34    puts "Faulty : Export to pdf file was not done"
  35 }
  36
  37