Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug7
CommitLineData
0e94a94e 1
2puts "================"
3puts "OCC7"
4puts "================"
5puts ""
6#########################################################
7## Extrema_ExtPElS throw the exception "gp_VectorWithNullMagnitude".
8#########################################################
9
10ptorus tor 3 1
11explode tor f
12vertex vv 0 3 0
13
14distmini result vv tor_1
15set info [dump result]
16
17if { [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
23set 2dviewer 0
24