1 puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60827d.brep could not be found"
2 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
4 puts "========================"
6 puts "========================"
8 #restore Model3-a.brep a
9 restore [locate_data_file BUC60827c.brep] a
11 #restore Model3-b.brep b
12 restore [locate_data_file BUC60827d.brep] b
14 set che [checkshape a]
15 if { [regexp {Faulty} $che ] == 1 } {
16 puts "Faulty BUC60827 (shape 1): Source shape is invalid. It was detected by Checkshape command"
17 puts "Body of the script was NOT executed"
20 puts "BUC60827 OK (shape 1): Source shape is valid"
22 set che [checkshape b]
23 if { [regexp {Faulty} $che ] == 1 } {
24 puts "Faulty BUC60827 (shape 2): Source shape is invalid. It was detected by Checkshape command"
25 puts "Body of the script was NOT executed"
28 puts "BUC60827 OK (shape 2): Source shape is valid"
32 set rlen [llength [explode res v]]
33 if ([expr $rlen == 0]) {
34 puts "Faulty :The result of section is an empty compound."
37 regexp {([-0-9.+eE]+)$} [dump d1_val] full len1
38 if ([expr $len1 > 1e-7]) {
39 puts "Faulty :The section is incomplite."
42 regexp {([-0-9.+eE]+)$} [dump d2_val] full len2
43 if ([expr $len2 > 1e-7]) {
44 puts "Faulty :The section is incomplite."