Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug469
... / ...
CommitLineData
1if { [array get env os_type] != "" } {
2 set os $env(os_type)
3}
4if { [string compare $os "windows"] == 0 } {
5 puts "TODO OCC12345 ALL: An exception was caught"
6 puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
7} else {
8 puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
9}
10puts "TODO OCC12345 ALL: TEST INCOMPLETE"
11
12puts "========================"
13puts " OCC469 "
14puts "========================"
15puts ""
16######################################################
17## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
18######################################################
19
20restore [locate_data_file OCC469.brep] a
21explode a
22
23checkshape a_1
24checkshape a_2
25
26bfuse result a_1 a_2
27puts [checkshape result]
28
29set check_square 1
30set square 10
31set 2dviewer 0