[occt.git] / tests / bugs / modalg_6 / bug27519_2

puts "========"
puts "0027519: Inconsistent result of SECTION operation"
puts "========"
puts ""

restore [locate_data_file bug27448_b1255_2.brep] b
plane p 0 -36.8067 0 0 1 0
mkface f p
bsection result b f
set chsec [checksection result]
puts $chsec
if {![regexp {nb alone Vertices : 4} $chsec]} { 
  puts "Error: the section is not closed"
}

set chsi [bopcheck result]
puts $chsi
if {![regexp {This shape seems to be OK.} $chsi]} { 
  puts "Error: the section is self-interfered"
}
Commit	Line	Data
01b5b3df	1	puts "========"
	2	puts "0027519: Inconsistent result of SECTION operation"
	3	puts "========"
	4	puts ""
	5
	6	restore [locate_data_file bug27448_b1255_2.brep] b
	7	plane p 0 -36.8067 0 0 1 0
	8	mkface f p
	9	bsection result b f
	10	set chsec [checksection result]
	11	puts $chsec
	12	if {![regexp {nb alone Vertices : 4} $chsec]} {
	13	puts "Error: the section is not closed"
	14	}
	15
	16	set chsi [bopcheck result]
	17	puts $chsi
	18	if {![regexp {This shape seems to be OK.} $chsi]} {
	19	puts "Error: the section is self-interfered"
	20	}