0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / modalg_2 / bug22770_2
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
14 # NewDocument D BinXCAF
15 # UndoLimit D 100
16 # Open a transaction
17 # NewCommand D
18
19 vertex a 1 0 0
20 vertex b 10 0 0
21 edge e1 a b
22 vertex c 10.01 0 0
23 vertex d 20 0 0
24 edge e2 c d
25 sewing result +t 0.1 e1 e2 -e
26
27 set length 18.99
28
29 set nb_v_good 4
30 set nb_e_good 2
31 set nb_w_good 0
32 set nb_f_good 0
33 set nb_sh_good 0
34 set nb_sol_good 0
35 set nb_compsol_good 0
36 set nb_compound_good 1
37 set nb_shape_good 7
38
39 checkmaxtol result 0
40 checknbshapes result -shell 0
41 checkfreebounds result 0
42
43 set 3dviewer 0