tests/bugs/moddata_2/bug454

   1 pload QAcommands
   2
   3 puts "================"
   4 puts "OCC454"
   5 puts "================"
   6 puts ""
   7
   8 restore [locate_data_file OCC454_b1.brep] b1
   9 checkshape b1
  10
  11 restore [locate_data_file OCC454_p1.draw] p1
  12
  13 set info_result [OCC299 b1 p1]
  14 set ll [llength ${info_result}]
  15 if { ${ll} < 4 } {
  16     puts "OCC454: ERROR 1"
  17 } else {
  18     if { [regexp {IN} ${info_result}] } {
  19         puts "OCC454: OK"
  20     } else {
  21         puts "OCC454: ERROR 2"
  22     }
  23 }
  24
  25