Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug20616
1 puts "========================"
2 puts "OCC20616"
3 puts "========================"
4 puts ""
5 #######################################################################
6 # Failed to save/restore [locate_data_file empty] face 
7 #######################################################################
8
9 set BugNumber OCC20616
10
11 set mistake 0
12 foreach t {V E W F Sh So CS C} {
13     puts "shape type $t"
14     shape test $t
15     if [catch {save test $imagedir/${test_image}.brep}] {
16         puts "Faulty ${BugNumber} save $t"
17         set mistake 1
18     } else {
19         puts "OK ${BugNumber} save $t"
20     }
21     if [catch {restore $imagedir/${test_image}.brep test}] { 
22         puts "Faulty ${BugNumber} restore $t"
23         set mistake 1
24     } else {
25     puts "OK ${BugNumber} restore $t"
26     }
27 }
28
29 if {${mistake} !=0} {
30    puts "Faulty ${BugNumber}"
31 } else {
32    puts "OK ${BugNumber}"
33 }
34