0024755: TDF_Label::AddAttribute() reverses the order of added attributes
[occt.git] / tests / blend / end
CommitLineData
40093367 1if { [isdraw result] } {
2 set sm 0
3 if { [isdraw s] } {
4 regexp {Mass +: +([-0-9.+eE]+)} [sprops s] full sm
5 }
6 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
7
8 #check if result is valid
9 puts [checkshape result]
10 if { $m == 0 || $sm == $m } {
11 puts "Error : The blend is not valid."
12 }
13
14 if { $square > 0 } {
94a57f1f 15 puts "The expected area is $square"
40093367 16 }
17 #check of change of square is < 1%
49c093ae 18 if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
94a57f1f 19 puts "Error : The area of the resulting shape is $m"
40093367 20 }
21 if { $m > 0 } {
22 clear
23 smallview
24 donly result
25 fit
88f8fc81 26 xwd $imagedir/${test_image}.png
40093367 27 }
28} else {
6aac585a 29 puts "Error : The blend cannot be built."
40093367 30}
31
32# to end a test script
33puts "TEST COMPLETED"