809eca9d |
1 | puts "================" |
2 | puts "OCC22770" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # Improve comman sewing in DRAW |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC22770 |
10 | |
11 | catch { pload XDE } |
12 | |
13 | # Create a new document and set UndoLimit |
e837410d |
14 | # NewDocument D BinXCAF |
809eca9d |
15 | # UndoLimit D 100 |
16 | # Open a transaction |
17 | # NewCommand D |
18 | |
19 | box a 1 2 3 |
20 | box b 2 0 0 1 2 3 |
21 | explode a f |
22 | explode b f |
23 | sewing result +t 1.1 a_2 b_1 |
24 | |
58cf74e0 |
25 | checkprops result -s 12 |
26 | checkshape result |
a4eba920 |
27 | checknbshapes result -vertex 4 -edge 4 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 13 |
fb60057d |
28 | checkmaxtol result -ref 1.5 |
5ae01c85 |
29 | checknbshapes result -shell 1 |
30 | checkfreebounds result 0 |
5747059b |
31 | checkview -display result -3d -path ${imagedir}/${test_image}.png |