tests/bugs/moddata_1/buc60868

   1
   2 puts "========"
   3 puts "BUC60868"
   4 puts "========"
   5 puts ""
   6
   7 pload QAcommands
   8
   9 restore [locate_data_file buc60868.brep] sh
  10 checkshape sh
  11
  12 BUC60868 result sh
  13 checkshape result
  14
  15 set len [llength [explode result w]]
  16 if { $len != 3 } {
  17     puts "Error : the number of curves is $len, but it should be 3."
  18 }
  19
  20 set 2dviewer 0
  21