tests/bugs/step/pro20362

   1 puts "========================"
   2 puts "PRO20362"
   3 puts "========================"
   4
   5 stepread [locate_data_file PRO20362.stp] a *
   6
   7 explode a_1 f
   8 renamevar a_1 result
   9
  10 checkshape a_1_1
  11 checkshape a_1_1 r
  12
  13 set l [explode a_1_1 e]
  14 set n [llength $l]
  15 if { $n != 4 } {
  16     puts "Error : The amount of edges in FIRST face is more than four"
  17 }
  18
  19 checkshape a_1_2
  20 checkshape a_1_2 r
  21
  22 set i [explode a_1_2 e]
  23 set m [llength $i]
  24 if { $m != 4 } {
  25     puts "Faulty : The amount of edges in SECOND face is more than four"
  26 }
  27
  28 set 2dviewer 0