0023905: Clean obsolete test commands
[occt.git] / tests / bugs / moddata_1 / bug11081_2
CommitLineData
3bea4c16 1puts "========================"
2puts "OCC11081"
3puts "========================"
4puts ""
5#######################################################################
6# BRepExtrema_DistShapeShape misses one of two solutions
7#######################################################################
8
9set BugNumber OCC11081
10
11# finite line is used
12
13line ll 6834.93 -4100 500 0 0 1
14trim trll ll -1000 -500
15mkedge tree trll
16restore [locate_data_file OCC11081.brep] section4100
17set res_list [distmini dd tree section4100]
18set res_length [llength ${res_list}]
19puts "res_length = ${res_length}"
20
21# Resume
22puts ""
23if { ${res_length} != 3 } {
24 puts "Faulty ${BugNumber}"
25} else {
26 puts "OK ${BugNumber}"
27}