tests/bugs/moddata_1/bug119

   1 puts "================"
   2 puts "OCC119"
   3 puts "================"
   4 puts ""
   5
   6 box a 100 100 100
   7 explode a e
   8
   9 set mistake 0
  10 if [catch {blend result_1 a 50 a_10 50 a_5 50 a_12 50 a_3 } catch_result] {
  11     set mistake 1
  12 } else {
  13     set mistake 0
  14 }
  15
  16 if { ${mistake} == 1} {
  17     puts " 1) OCC119 OK: BLEND was NOT created and suitable except was given."
  18 } else {
  19     puts "1) OCC119 OK: function BLEND works without suitable except"
  20     checkshape result_1
  21     explode result_1 e
  22
  23     if { [catch {blend result_2 result_1 50 result_1_20 50 result_1_22 50 result_1_10} catch_result] } {
  24         puts "2) Faulty  OCC119: BLEND was NOT created"
  25     } else {
  26         puts "2) BLEND OCC199 OK: BLEND was created"
  27         checkshape result_2
  28     }
  29
  30     set che [checkshape result_2 r]
  31     if { [regexp {OK} $che] != 1 } {
  32         puts "Faulty : mistakes are found in shape by checkshape command after BLEND command"
  33         puts " Body of the scripts was not executed !"
  34     } else {
  35         puts "Checking by checkshape - OK"
  36
  37         vinit
  38         vdisplay result_2
  39         vsetdispmode result_2 1
  40         vfit
  41
  42         explode result_2 e
  43         blend result result_2 50 result_2_20 50 result_2_22 50 result_2_10
  44         set only_screen 1
  45     }
  46 }