Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60898
1 puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
2 puts "TODO OCC12345 ALL: Error : The command can not be build."
3
4 puts "==========="
5 puts "  BUC60898"
6 puts "==========="
7 puts ""
8
9 pload XDE
10 catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
11
12 if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] { 
13 ## rename to BUC60898.igs
14     puts "Faulty BUC60898: here is reading problem"
15 } else {
16     puts "BUC60898 OK"
17     tpcompound a
18
19     if [catch {sewing result 1e-7 a } catch_result] {
20         puts "Faulty  BUC60898: function SEWING gives except"
21     } else {
22         puts " BUC60898 OK: function SEWING works without except"
23     }
24 }
25
26 #checkshape res
27 #set che [checkshape res r]
28 #set err [lindex $che [expr [llength $che] - 1]]
29 #if { $err != "OK"} {
30 #  puts "Faulty : mistakes are found in checked shape by checkshape command"
31 #} else {
32 #  puts "Checking by checkshape - OK"
33 #}
34
35 set square 0
36 set 2dviewer 0