Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug7
1
2 puts "================"
3 puts "OCC7"
4 puts "================"
5 puts ""
6 #########################################################
7 ## Extrema_ExtPElS throw the exception "gp_VectorWithNullMagnitude". 
8 #########################################################
9
10 ptorus tor 3 1
11 explode tor f
12 vertex vv 0 3 0
13
14 distmini result vv tor_1
15 set info [dump result]
16
17 if { [regexp "TShape # 1 : EDGE" $info] != 1 
18    || [regexp "TShape # 2 : VERTEX" $info] != 1
19    || [regexp "TShape # 3 : VERTEX" $info] != 1 } {
20    puts "Error : Result is incorrect"
21 }
22
23 set 2dviewer 0
24