tests/bugs/xde/bug22826

   1 puts "============"
   2 puts "OCC22826"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Increasiong of perfomance of fixes applied during translation of STEP files.
   7 #######################################################################
   8
   9 set BugNumber OCC22826
  10
  11 restore [locate_data_file bug22610_f1.brep] a
  12 mksurface s1 a
  13
  14 proj s1 1500 1500 500 g
  15 set x [lindex [length ext_2] end]
  16
  17 proj s1 1500 1500 500 t
  18 set y [lindex [length ext_1] end]
  19
  20 # Resume
  21 puts ""
  22 if { $x == $y } {
  23    puts "OK ${BugNumber}"
  24 } else {
  25    puts "Faulty ${BugNumber}"
  26 }
  27