6 ##################################################
7 ## Exception during tcopy command (only in 3.0fix), SAM1339 (#2137)
8 ###################################################
10 restore [locate_data_file OCC501.brep] result
12 if [catch {tcopy result b } catch_result] {
13 puts "Faulty OCC501 : function TCOPY works wrongly "
15 puts "OCC501 OK: function TCOPY works without hangs up "