Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug22770_1
CommitLineData
809eca9d 1puts "================"
2puts "OCC22770"
3puts "================"
4puts ""
5#######################################################################################
6# Improve comman sewing in DRAW
7######################################################################################
8
9set BugNumber OCC22770
10
11catch { pload XDE }
12
13# Create a new document and set UndoLimit
14# NewDocument D MDTV-XCAF
15# UndoLimit D 100
16# Open a transaction
17# NewCommand D
18
19vertex a 1 0 0
20vertex b 10 0 0
21edge e1 a b
22vertex c 10.01 0 0
23vertex d 20 0 0
24edge e2 c d
25sewing result +t 0.1 e1 e2 +e
26
27set length 18.99
28
29set nb_v_good 3
30set nb_e_good 2
31set nb_w_good 0
32set nb_f_good 0
33set nb_sh_good 0
34set nb_sol_good 0
35set nb_compsol_good 0
36set nb_compound_good 1
37set nb_shape_good 6
38
39set 3dviewer 0
40