Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug501
1
2 puts "========="
3 puts " OCC501 "
4 puts "========="
5 puts ""
6 ##################################################
7 ## Exception during tcopy command (only in 3.0fix), SAM1339 (#2137) 
8 ###################################################
9
10 restore [locate_data_file OCC501.brep] result
11
12 if [catch {tcopy result b } catch_result] {
13     puts "Faulty OCC501 : function TCOPY works wrongly "
14 } else {
15     puts "OCC501 OK: function TCOPY works without hangs up "
16 }
17 set square 121895
18 set 2dviewer 0