1puts "================"
2puts "OCC23773"
3puts "================"
4puts ""
5######################################################################################
6# Can not read names in STEP file
7######################################################################################
8pload DCAF
9
10ReadStep d1 [locate_data_file bug23773_2012-or-136-004-014-izzi-asm_PCAM.stp]
11set info1 [GetName d1 0:1:1:1:9]
12set info2 [GetName d1 0:1:1:1:8]
13set info3 [GetName d1 0:1:1:1:4]
14set info4 [GetName d1 0:1:1:1:7]
15set info5 [GetName d1 0:1:1:1:6]
16set info6 [GetName d1 0:1:1:1:5]
17set info7 [GetName d1 0:1:1:1:3]
18
19if { [regexp "2012-OR-136-004-014-X" $info1] != 1 } {
20   puts "Faulty : Label 0:1:1:1:9 is incorrect"
21}
22if { [regexp "2012-OR-136-004-014-X1" $info2] != 1 } {
23   puts "Faulty : Label 0:1:1:1:8 is incorrect"
24}
25if { [regexp "2012-OR-136-004-014-X2" $info3] != 1 } {
26   puts "Faulty : Label 0:1:1:1:4 is incorrect"
27}
28if { [regexp "2012-OR-136-004-014-X3" $info4] != 1 } {
29   puts "Faulty : Label 0:1:1:1:7 is incorrect"
30}
31if { [regexp "2012-OR-136-004-014-X4" $info5] != 1 } {
32   puts "Faulty : Label 0:1:1:1:6 is incorrect"
33}
34if { [regexp "2012-OR-136-004-014-X5" $info6] != 1 } {
35   puts "Faulty : Label 0:1:1:1:5 is incorrect"
36}
37if { [regexp "2012-OR-136-004-014-X6" $info7] != 1 } {
38   puts "Faulty : Label 0:1:1:1:3 is incorrect"
39}
40