[occt.git] / tests / bugs / moddata_1 / bug22494

puts "================"
puts "OCC22494"
puts "================"
puts ""
#######################################################################
# BRepClass_FaceClassifier bug (ref SALOME issue 21185)
#######################################################################

set BugNumber OCC22494

restore [locate_data_file bug22494_Pb_belogToGeom_FACE.brep] Face 

point p -3.53254182396379145e-05 0.000877856930738714065

set res [split [b2dclassify Face p] ]

set ll [llength ${res}]
if {${ll} < 4} {
   puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
} else {
   if {[regexp {The point is ON shape} $res]} {
      puts "OK ${BugNumber}"
   } else {
      puts "Faulty ${BugNumber}"
   }
}
Commit	Line	Data
3bea4c16	1	puts "================"
	2	puts "OCC22494"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# BRepClass_FaceClassifier bug (ref SALOME issue 21185)
	7	#######################################################################
	8
	9	set BugNumber OCC22494
	10
	11	restore [locate_data_file bug22494_Pb_belogToGeom_FACE.brep] Face
	12
	13	point p -3.53254182396379145e-05 0.000877856930738714065
	14
	15	set res [split [b2dclassify Face p] ]
	16
	17	set ll [llength ${res}]
	18	if {${ll} < 4} {
	19	puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
	20	} else {
	21	if {[regexp {The point is ON shape} $res]} {
	22	puts "OK ${BugNumber}"
	23	} else {
	24	puts "Faulty ${BugNumber}"
	25	}
	26	}
	27