[occt.git] / tests / bugs / moddata_3 / bug29827

puts "=========="
puts "0029827: Modeling Data - TopoDS_Shape::Nullify() does not reset location"
puts "=========="
puts ""

pload QAcommands

box b1 1 2 1
box b2 1 1 1 

ttranslate b1 0 1 1
ttranslate b2 1 1 1 

QANullifyShape b1
QANullifyShape b2

set result [compare b1 b2]

set ctr { "same shapes" "equal shapes" }

foreach data ${ctr} {
    if ![regexp $data $result] {
       puts "Error: Shapes are not '$data'"
       break; 
    }
}
Commit	Line	Data
6e01c25a	1	puts "=========="
	2	puts "0029827: Modeling Data - TopoDS_Shape::Nullify() does not reset location"
	3	puts "=========="
	4	puts ""
	5
	6	pload QAcommands
	7
	8	box b1 1 2 1
	9	box b2 1 1 1
	10
	11	ttranslate b1 0 1 1
	12	ttranslate b2 1 1 1
	13
	14	QANullifyShape b1
	15	QANullifyShape b2
	16
	17	set result [compare b1 b2]
	18
	19	set ctr { "same shapes" "equal shapes" }
	20
	21	foreach data ${ctr} {
	22	if ![regexp $data $result] {
	23	puts "Error: Shapes are not '$data'"
	24	break;
	25	}
	26	}