2 if { [string compare $os "windows"] == 0 } {
3 # puts "TODO OCC23561 $os: child process exited abnormally"
5 puts "TODO OCC23561 ALL: An exception was caught"
6 puts "TODO OCC23561 ALL: Tcl Exception:"
7 puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
9 puts "TODO OCC23561 ALL: TEST INCOMPLETE"
15 ## Bad IGES/BREP translation
17 puts "FaceBrep must be identical FaceIGES!!!"
20 restore [locate_data_file OCC184.brep] FaceBrep
21 puts [checkshape FaceBrep]
23 set dum1 [nbshapes FaceBrep]
24 regexp {VERTEX +: +([-0-9.+eE]+)} $dum1 full nb_v1
25 regexp {EDGE +: +([-0-9.+eE]+)} $dum1 full nb_e1
26 regexp {WIRE +: +([-0-9.+eE]+)} $dum1 full nb_w1
27 regexp {FACE +: +([-0-9.+eE]+)} $dum1 full nb_f1
28 regexp {SHELL +: +([-0-9.+eE]+)} $dum1 full nb_sh1
29 regexp {SOLID +: +([-0-9.+eE]+)} $dum1 full nb_sol1
30 regexp {COMPSOLID +: +([-0-9.+eE]+)} $dum1 full nb_compsol1
31 regexp {COMPOUND +: +([-0-9.+eE]+)} $dum1 full nb_compound1
32 regexp {SHAPE +: +([-0-9.+eE]+)} $dum1 full nb_shape1
34 regexp {Mass +: +([-0-9.+eE]+)} [sprops FaceBrep] full square1
36 catch {exec rm ${imagedir}/OCC184.igs}
37 brepiges FaceBrep ${imagedir}/OCC184.igs
38 catch {exec chmod 777 ${imagedir}/OCC184.igs}
40 igesbrep ${imagedir}/OCC184.igs FaceIGES *
42 sewing result FaceIGES
43 puts [checkshape result]
45 set dum2 [nbshapes result]
46 regexp {VERTEX +: +([-0-9.+eE]+)} $dum2 full nb_v2
47 regexp {EDGE +: +([-0-9.+eE]+)} $dum2 full nb_e2
48 regexp {WIRE +: +([-0-9.+eE]+)} $dum2 full nb_w2
49 regexp {FACE +: +([-0-9.+eE]+)} $dum2 full nb_f2
50 regexp {SHELL +: +([-0-9.+eE]+)} $dum2 full nb_sh2
51 regexp {SOLID +: +([-0-9.+eE]+)} $dum2 full nb_sol2
52 regexp {COMPSOLID +: +([-0-9.+eE]+)} $dum2 full nb_compsol2
53 regexp {COMPOUND +: +([-0-9.+eE]+)} $dum2 full nb_compound2
54 regexp {SHAPE +: +([-0-9.+eE]+)} $dum2 full nb_shape2
56 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full square2
59 if { ${nb_v2} != ${nb_v1}
60 || ${nb_e2} != ${nb_e1}
61 || ${nb_w2} != ${nb_w1}
62 || ${nb_f2} != ${nb_f1}
63 || ${nb_sh2} != ${nb_sh1}
64 || ${nb_sol2} != ${nb_sol1}
65 || ${nb_compsol2} != ${nb_compsol2}
66 || ${nb_compound2} != ${nb_compound1}
67 || ${nb_shape2} != ${nb_shape2} } {
68 puts "Error : Number of shapes is faulty"
71 if { ${square2} != ${square1} } {
72 puts "Error : "Square is not valid"