tests/bugs/modalg_1/buc60898

   1 puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
   2
   3 puts "==========="
   4 puts "  BUC60898"
   5 puts "==========="
   6 puts ""
   7
   8 pload XDE
   9
  10 if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
  11 ## rename to BUC60898.igs
  12     puts "Faulty BUC60898: here is reading problem"
  13 } else {
  14     puts "BUC60898 OK"
  15     tpcompound a
  16
  17     if [catch {sewing result 1e-7 a } catch_result] {
  18         puts "Faulty  BUC60898: function SEWING gives except"
  19     } else {
  20         puts " BUC60898 OK: function SEWING works without except"
  21     }
  22     set square 0
  23     set 2dviewer 0
  24 }
  25
  26