puts "================"
puts "OCC6503"
puts "================"
puts ""
#######################################################################################
# Incorrect calculation of bounding box for infinite surfaces
#######################################################################################

set BugNumber OCC6503

plane pl 0 0 0 0 0 1
mkface f pl
set info_result [bounding f]

set x1 [lindex ${info_result} 0]
set y1 [lindex ${info_result} 1]
set z1 [lindex ${info_result} 2]
set x2 [lindex ${info_result} 3]
set y2 [lindex ${info_result} 4]
set z2 [lindex ${info_result} 5]

set good_x1 -1e+100
set good_y1 -1e+100
set good_z1 -9.9999999999999995e-08
set good_x2 1e+100
set good_y2 1e+100
set good_z2 9.9999999999999995e-08

checkreal "x1" ${x1} ${good_x1} 0 0.001
checkreal "y1" ${y1} ${good_y1} 0 0.001
checkreal "z1" ${z1} ${good_z1} 0 0.001
checkreal "x2" ${x2} ${good_x2} 0 0.001
checkreal "y2" ${y2} ${good_y2} 0 0.001
checkreal "z2" ${z2} ${good_z2} 0 0.001