tests/bugs/moddata_2/bug303_1

   1 puts "========================"
   2 puts " OCC303 "
   3 puts "(case 1)"
   4 puts "========================"
   5 puts ""
   6 #################################################################
   7 ## Exception while segment operation.
   8 #################################################################
   9
  10 restore [locate_data_file OCC303a.brep] sh1
  11
  12 explode sh1 e
  13
  14 mkcurve c5 sh1_5
  15 trim result c5
  16
  17 if [catch {segment result 22.07126804854423 23.6320483505636} catch_result] {
  18     puts "Faulty OCC303 (case 1): function SEGMENT works wrongly"
  19 } else {
  20     puts "OCC303 OK (case 1): function SEGMENT works properly"
  21 }
  22
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png