tests/bugs/moddata_3/buc60634

   1 puts "Output with mistake is correct!"
   2 puts "TODO BUC60634 ALL: An exception was caught"
   3 puts "=================="
   4 puts "BUC60634"
   5 puts "=================="
   6
   7 sphere s 10
   8 mkshell sh s
   9 explode sh f
  10
  11 decho off
  12 catch {draft r sh 0 0 1 10 shape} first
  13 catch {draft result sh_1 0 0 1 10 shape} second
  14 decho on
  15
  16 if { [regexp {Standard_ConstructionError:} $first] != 1 } {
  17     puts "Faulty : not suitablle exception"
  18 } else {
  19     puts "Output is correct"
  20 }
  21
  22 if { [regexp {External} $second] != 1 } {
  23     puts "Faulty : not suitablle exception"
  24 } else {
  25     puts "Output is correct"
  26 }
  27
  28