tests/bugs/modalg/buc60744

   1 pload QAcommands
   2
   3 puts "========================"
   4 puts "BUC60744"
   5 puts "========================"
   6 puts ""
   7
   8 restore [locate_data_file buc60744a.brep] a
   9 restore [locate_data_file buc60744b.brep] b
  10
  11 set che [checkshape a]
  12 if { [regexp {Faulty} $che ] == 1 } {
  13     puts "Faulty BUC60744 (shape 1): Source shape is invalid. It was detected by Checkshape command"
  14     puts "Body of the script was NOT executed"
  15     renamevar a result
  16 } else {
  17     puts "BUC60744 OK (shape 1): Source shape is valid"
  18
  19     set che [checkshape b]
  20     if { [regexp {Faulty} $che ] == 1 } {
  21         puts "Faulty BUC60744 (shape 2): Source shape is invalid. It was detected by Checkshape command"
  22         puts "Body of the script was NOT executed"
  23         renamevar b result
  24     } else {
  25         puts "BUC60744 OK (shape 2): Source shape is valid"
  26
  27         ksection result a b 1000 0.0001 0.00001 0
  28
  29         set ne [llength [explode result e]]
  30         set nv [llength [explode result v]]
  31
  32         if {$ne >= $nv} {
  33             puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
  34         }
  35     }
  36 }
  37 bsection result a b
  38
  39 set ne [llength [explode result e]]
  40 set nv [llength [explode result v]]
  41
  42 if {$ne >= $nv} {
  43     puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
  44 }
  45
  46 set length 228.386
  47 set 2dviewer 0