tests/bugs/xde/bug9531

   1 puts "TODO OCC12345 ALL: Error :  is WRONG because number of "
   2
   3 puts "============"
   4 puts "OCC9531"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # Regression after writing-reading operation
   9 #######################################################################
  10
  11 set BugNumber OCC9531
  12
  13 set IsOk 1
  14 set filepath [locate_data_file 919-001-T02-04-CP-VL.igs]
  15 if {[catch {igesread $filepath OCC9531a *}]} {
  16    puts "Faulty ${BugNumber} : here is reading problem"
  17    set IsOk 0
  18 }
  19
  20 file delete ${imagedir}/OCC9531tmp.igs
  21
  22 if {[catch {brepiges OCC9531a ${imagedir}/OCC9531tmp.igs}]} {
  23    puts "Faulty ${BugNumber} : here is conversation to brep problem"
  24    set IsOk 0
  25 }
  26 catch {exec chmod 777 ${imagedir}/OCC9531tmp.igs}
  27
  28 if {[catch {igesread ${imagedir}/OCC9531tmp.igs OCC9531b *}]} {
  29    puts "Faulty ${BugNumber} : here is 2nd reading problem"
  30    set IsOk 0
  31 }
  32
  33 if { ${IsOk} == 1} {
  34    set aTokList {= }
  35    set Tol1 [lindex [split [tolerance OCC9531a] ${aTokList}] 2]
  36    set Tol2 [lindex [split [tolerance OCC9531b] ${aTokList}] 2]
  37
  38    checkreal "Tolerance" ${Tol1} ${Tol2} 0 0.001
  39    checknbshapes OCC9531a -vertex 5748 -edge 5680 -wire 915 -face 899 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 13243
  40    checkprops OCC9531a -s 5236.89
  41    checkprops OCC9531b -s 5236.89
  42    checknbshapes OCC9531b -vertex 5748 -edge 5680 -wire 915 -face 899 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 13243
  43 }
  44
  45 renamevar OCC9531b result
  46 checkview -display result -2d -path ${imagedir}/${test_image}.png