tests/bugs/moddata_1/buc60848

   1
   2 puts "============"
   3 puts "BUC60848"
   4 puts "============"
   5 puts ""
   6
   7 pload QAcommands
   8
   9 restore [locate_data_file BUC60848.brep] a
  10 checkshape a
  11
  12 tcopy a res
  13
  14 set Flag 0
  15
  16 set Res [ catch { BUC60848 a } ]
  17 if { $Res != 0 } {
  18     invert a
  19     set Flag 1
  20     puts ""
  21 }
  22
  23 if { $Flag == 1 } {
  24     set Res [ catch { BUC60848 a } ]
  25     if { $Res != 0 } {
  26         set Flag 2
  27     }
  28     puts ""
  29 }
  30
  31 if { $Flag == 2 } {
  32     puts "TEST FINISHED. RESULT IS BAD. Faulty"
  33     puts ""
  34 }
  35
  36 if { $Flag == 1 } {
  37     puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED."
  38     puts ""
  39 }
  40
  41 if { $Flag == 0 } {
  42     puts "TEST FINISHED. RESULT IS OK."
  43     puts ""
  44 }
  45