tests/bugs/moddata/buc60609

   1 puts "================"
   2 puts "BUC60609"
   3 puts "================"
   4
   5 pload QAcommands
   6
   7 set INF [BUC60609 [locate_data_file buc60609a.brep] a]
   8 set ll [llength $INF]
   9 set first [lindex $INF [expr $ll - 5]]
  10 set second [lindex $INF [expr $ll - 1]]
  11
  12 if {$first != "INSIDE" && $first != "inside"} {
  13     puts "Faulty BUC60609 first: $first is not right result. It should be INSIDE"
  14 } else {
  15     puts "BUC60609 first OK:  It is INSIDE"
  16 }
  17
  18 if {$second != "INSIDE"} {
  19     puts "Faulty BUC60609 second: $second is not right result. It should be INSIDE"
  20 } else {
  21     puts "BUC60609 second OK:  It is INSIDE"
  22 }
  23
  24 renamevar a result
  25 set 2dviewer 0
  26