tests/bugs/modalg_6/bug26308

   1 puts "========"
   2 puts "OCC26308"
   3 puts "========"
   4 puts ""
   5 ###################################################
   6 # Segmentation fault in BSplCLib::LocateParameter
   7 ###################################################
   8
   9 #Exception is thrown when computing a value of B-spline
  10 #surfaces in point, which is outside of its domain.
  11
  12 pload XDE
  13
  14 ReadStep D_First [locate_data_file OCC26308-Face.stp]
  15 XGetOneShape rr D_First
  16 explode rr f
  17 mksurface ss rr_1
  18
  19 svalue ss -1.427997381773311e+018 4.512451574816904e+016 xx yy zz
  20
  21 set bug_info_x [dump xx]
  22 set bug_info_y [dump yy]
  23 set bug_info_z [dump zz]
  24
  25 set bug_info_x [string trim [string range $bug_info_x [expr {[string last "\n" $bug_info_x] + 1}] [expr {[string length $bug_info_x] - 1}]]]
  26 set bug_info_y [string trim [string range $bug_info_y [expr {[string last "\n" $bug_info_y] + 1}] [expr {[string length $bug_info_y] - 1}]]]
  27 set bug_info_z [string trim [string range $bug_info_z [expr {[string last "\n" $bug_info_z] + 1}] [expr {[string length $bug_info_z] - 1}]]]
  28
  29 if {$bug_info_x != -5.42659125962715e+207} {
  30   puts "ERROR: OCC26308 is reproduced. X value is incorrect."
  31 }
  32
  33 if {$bug_info_y != 2.90803974424011e+209} {
  34   puts "ERROR: OCC26308 is reproduced. Y value is incorrect."
  35 }
  36
  37 if {$bug_info_z != -3.1731154470359e+207} {
  38   puts "ERROR: OCC26308 is reproduced. Z value is incorrect."
  39 }