mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
37d6975c77
Change platform in occt test cases in TODOs from Debian\Mandriva to Linux Small corrections in test cases. Return procedure _tests_platform_def.
60 lines
1.8 KiB
Plaintext
Executable File
60 lines
1.8 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC314"
|
|
puts "========"
|
|
puts ""
|
|
|
|
param write.iges.brep.mode BRep
|
|
|
|
restore [locate_data_file OCC314.brep] a1
|
|
regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinFace1
|
|
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxFace1
|
|
regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinEdge1
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxEdge1
|
|
regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinVertex1
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxVertex1
|
|
|
|
######################################################################
|
|
catch {exec rm ${imagedir}/OCC314.igs}
|
|
brepiges a1 ${imagedir}/OCC314.igs
|
|
|
|
igesbrep ${imagedir}/OCC314.igs a2 *
|
|
|
|
tpcompound a2
|
|
|
|
regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinFace2
|
|
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxFace2
|
|
regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinEdge2
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxEdge2
|
|
regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinVertex2
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxVertex2
|
|
|
|
|
|
if { $MinFace2 > $MinFace1 } {
|
|
puts "Error : MinFace Tolerance is increased"
|
|
}
|
|
|
|
if { $MaxFace2 > $MaxFace1 } {
|
|
puts "Error : MaxFace Tolerance is increased"
|
|
}
|
|
|
|
if { $MinEdge2 > $MinEdge1 } {
|
|
puts "Error : MinEdge Tolerance is increased"
|
|
}
|
|
|
|
if { $MaxEdge2 > $MaxEdge1 } {
|
|
puts "Error : MaxEdge Tolerance is increased"
|
|
}
|
|
|
|
if { $MinVertex2 > $MinVertex1 } {
|
|
puts "Error : MinVertex Tolerance is increased"
|
|
}
|
|
|
|
if { $MaxVertex2 > $MaxVertex1 } {
|
|
puts "Error : MaxVertex Tolerance is increased"
|
|
}
|
|
|
|
renamevar a2 result
|
|
|
|
set 2dviewer 0
|
|
|