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