Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug22833
CommitLineData
809eca9d 1puts "========================"
2puts "OCC22833"
3puts "========================"
4puts ""
5#######################################################################
6# Command "checkshape" in DRAWEXE give error "Self intersection wire" on attached shape
7#######################################################################
8
9set BugNumber OCC22833
10
11restore [locate_data_file OCC22833-bugInt.brep] result
12
13set text [checkshape result f]
14set last1 [lindex $text end]
15set last2 [lindex $text end-1]
16
17set status 0
18set s1 "OK"
19set s2 "looks"
20
21if { [string equal $last1 $s1] && [string equal $last2 $s2] } {
22 set status 0
23} else {
24 set status 1 }
25
26if { ${status} != 0 } {
27 puts "Faulty ${BugNumber}"
28} else {
29 puts "OK ${BugNumber}"
30}
31
32set square 63427.2
33set 3dviewer 1