3bea4c16 |
1 | puts "============" |
2 | puts "OCC22962" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Invalid realization of reading and writing material in STEP |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC22962 |
10 | set check_value 94 |
11 | pload DCAF |
12 | |
13 | ReadStep D1 [locate_data_file OCC22962-dm1-oc-214.stp] |
14 | set dump_info [ XDumpDF D1 ] |
15 | |
16 | regexp {attributes dumped between ([-0-9.+eE]+)} ${dump_info} full a1 |
17 | |
18 | set c1 [string compare $a1 $check_value] |
19 | |
20 | if { $c1 != 0 } { |
21 | puts "Faulty ${BugNumber}" |
22 | } else { |
23 | puts "OK ${BugNumber}" |
24 | } |