1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
puts "========"
puts "OCC6555"
puts "========"
puts ""
####################################################
## ShapeFix_Shape modifies valid shape and return wrong status DONE.
####################################################
set BugNumber OCC6555
box s1 10 10 10
set result [checkshape s1]
set index [lsearch ${result} Faulty]
if {$index > -1} {
puts "Faulty ${BugNumber} : checkshape is wrong for s1"
} else {
puts "checkshape is good for s1"
}
set DumpList1 [dump s1]
set SOLID_Adress_1 [lindex ${DumpList1} 29]
fixshape result s1
set res [checkshape result]
set index [lsearch ${res} Faulty]
if {$index > -1} {
puts "Faulty ${BugNumber} : checkshape is wrong for res"
} else {
puts "checkshape is good for res"
}
set DumpList2 [dump result]
set SOLID_Adress_2 [lindex ${DumpList2} 29]
if { ${SOLID_Adress_1} != ${SOLID_Adress_2} } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
}
set 2dviewer 0
|
