[occt.git] / tests / bugs / modalg / buc60682

puts "TODO OCC12345 ALL: Faulty BUC60682"
puts "TODO OCC12345 ALL: Error : The square of result shape is"
puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"

pload QAcommands

puts "=================="
puts "BUC60682"
puts "=================="

restore [locate_data_file buc60682a.brep] shell1 
restore [locate_data_file buc60682b.brep] shell2

set che [checkshape shell1]
if { [regexp {Faulty} $che ] == 1 } {
    puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command"
    puts "Body of the script was NOT executed"
    renamevar shell1 result
} else {
    puts "BUC60682 OK (shell 1): Source shape is valid"
    set che [checkshape shell2]
    if { [regexp {Faulty} $che ] == 1 } {
	puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command"
        puts "Body of the script was NOT executed"
	renamevar shell2 result
    } else {
	puts "BUC60682 OK (shell 2): Source shape is valid"
	ksection result shell1 shell2 1000 0.0001 0.00001 0 
    }
}
set square 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty BUC60682"
a87752f3	2	puts "TODO OCC12345 ALL: Error : The square of result shape is"
3f257c62	3	puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
a87752f3	4
	5	pload QAcommands
	6
	7	puts "=================="
	8	puts "BUC60682"
	9	puts "=================="
	10
	11	restore [locate_data_file buc60682a.brep] shell1
	12	restore [locate_data_file buc60682b.brep] shell2
	13
	14	set che [checkshape shell1]
	15	if { [regexp {Faulty} $che ] == 1 } {
	16	puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command"
	17	puts "Body of the script was NOT executed"
	18	renamevar shell1 result
	19	} else {
	20	puts "BUC60682 OK (shell 1): Source shape is valid"
	21	set che [checkshape shell2]
	22	if { [regexp {Faulty} $che ] == 1 } {
	23	puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command"
	24	puts "Body of the script was NOT executed"
	25	renamevar shell2 result
	26	} else {
	27	puts "BUC60682 OK (shell 2): Source shape is valid"
	28	ksection result shell1 shell2 1000 0.0001 0.00001 0
	29	}
	30	}
	31	set square 0
	32	set 2dviewer 0