mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
Adding test cases for chl grid
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
This commit is contained in:
apn
parent
fa0291ff83
commit
352ffd7358
@ -1364,7 +1364,6 @@ static Standard_Integer BUC60856(Draw_Interpretor& di, Standard_Integer /*argc*/
|
||||
return 0;
|
||||
}
|
||||
|
||||
#if ! defined(WNT)
|
||||
//#include <fstream.h>
|
||||
#ifdef HAVE_FSTREAM
|
||||
# include <fstream>
|
||||
@ -1420,7 +1419,6 @@ static Standard_Integer coordload (Draw_Interpretor& di, Standard_Integer argc,
|
||||
DBRep::Set (argv[1],Face);
|
||||
return 0;
|
||||
}
|
||||
#endif
|
||||
|
||||
static Standard_Integer TestMem (Draw_Interpretor& /*di*/,
|
||||
Standard_Integer /*nb*/,
|
||||
@ -2254,9 +2252,7 @@ void QABugs::Commands_3(Draw_Interpretor& theCommands) {
|
||||
|
||||
theCommands.Add("BUC60856","BUC60856",__FILE__,BUC60856,group);
|
||||
|
||||
#if ! defined(WNT)
|
||||
theCommands.Add("coordload","load coord from file",__FILE__,coordload);
|
||||
#endif
|
||||
|
||||
theCommands.Add("TestMem","TestMem",__FILE__,TestMem,group);
|
||||
theCommands.Add("BUC60945","BUC60945",__FILE__,TestMem,group);
|
||||
|
||||
0
tests/bugs/caf/buc60921
Normal file → Executable file
0
tests/bugs/caf/buc60921
Normal file → Executable file
96
tests/bugs/caf/bug1029
Executable file
96
tests/bugs/caf/bug1029
Executable file
@ -0,0 +1,96 @@
|
||||
puts "================"
|
||||
puts "OCC1029"
|
||||
puts "================"
|
||||
puts ""
|
||||
#
|
||||
# Note: Numerical control of setting transparency
|
||||
#
|
||||
|
||||
pload QAcommands
|
||||
|
||||
NewDocument D MDTV-Standard
|
||||
UndoLimit D 100
|
||||
NewCommand D
|
||||
|
||||
# Create two boxis
|
||||
box aBox1 100 200 300
|
||||
set aLabel1 0:2
|
||||
SetShape D ${aLabel1} aBox1
|
||||
|
||||
box aBox2 50 50 0 100 200 300
|
||||
set aLabel2 0:3
|
||||
SetShape D ${aLabel2} aBox2
|
||||
|
||||
# Initialize 3D viewer
|
||||
AISInitViewer D
|
||||
|
||||
# Add AISPresentation attribute with parameter NS
|
||||
AISSet D ${aLabel1} NS
|
||||
AISSet D ${aLabel2} NS
|
||||
|
||||
# Set shading mode
|
||||
vsetdispmode 1
|
||||
|
||||
# Set a color of the second shape as NOC_GREEN
|
||||
AISColor D ${aLabel2} 229
|
||||
|
||||
# Display presentation of NamedShape in the viewer
|
||||
AISDisplay D ${aLabel1}
|
||||
AISDisplay D ${aLabel2}
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Set a transparency of the second shape
|
||||
set SetTransparency 0.9
|
||||
OCC1029_AISTransparency D ${aLabel2} ${SetTransparency}
|
||||
|
||||
set list [OCC1029_AISTransparency D ${aLabel2}]
|
||||
set Transparency1 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Undo
|
||||
Undo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1029_AISTransparency D ${aLabel2}]
|
||||
set Transparency2 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Redo
|
||||
Redo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1029_AISTransparency D ${aLabel2}]
|
||||
set Transparency3 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Check the transparency
|
||||
puts "Transparency1 = ${Transparency1}"
|
||||
puts "Transparency2 = ${Transparency2}"
|
||||
puts "Transparency3 = ${Transparency3}"
|
||||
|
||||
set status 0
|
||||
if { ${Transparency1} != ${SetTransparency} } {
|
||||
puts "OCC1029_Transparency command: Error (case 1)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${Transparency2} != 0. } {
|
||||
puts "OCC1029_Transparency command: Error (case 2)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${Transparency3} != ${SetTransparency} } {
|
||||
puts "OCC1029_Transparency command: Error (case 3)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${status} == 0} {
|
||||
puts "OCC1029_Transparency command: OK"
|
||||
}
|
||||
|
||||
94
tests/bugs/caf/bug1030
Executable file
94
tests/bugs/caf/bug1030
Executable file
@ -0,0 +1,94 @@
|
||||
puts "================"
|
||||
puts "OCC1030"
|
||||
puts "================"
|
||||
#
|
||||
# Note: Numerical control of setting color
|
||||
#
|
||||
|
||||
pload QAcommands
|
||||
|
||||
NewDocument D MDTV-Standard
|
||||
UndoLimit D 100
|
||||
NewCommand D
|
||||
|
||||
# Set NamedShape attribute
|
||||
box aBox1 100 200 300
|
||||
set aLabel 0:2
|
||||
SetShape D ${aLabel} aBox1
|
||||
|
||||
# Initialize 3D viewer
|
||||
AISInitViewer D
|
||||
|
||||
# Add AISPresentation attribute with parameter NS
|
||||
AISSet D ${aLabel} NS
|
||||
|
||||
# Display presentation of NamedShape in the viewer
|
||||
AISDisplay D ${aLabel}
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
set list [OCC1030_AISColor D ${aLabel}]
|
||||
set AISColor1 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Set a color of the shape as NOC_GREEN
|
||||
set GreenColor 229
|
||||
AISColor D ${aLabel} ${GreenColor}
|
||||
|
||||
set list [OCC1030_AISColor D ${aLabel}]
|
||||
set AISColor2 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Undo
|
||||
Undo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1030_AISColor D ${aLabel}]
|
||||
set AISColor3 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Redo
|
||||
Redo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1030_AISColor D ${aLabel}]
|
||||
set AISColor4 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Check the color
|
||||
puts "AISColor1 = ${AISColor1}"
|
||||
puts "AISColor2 = ${AISColor2}"
|
||||
puts "AISColor3 = ${AISColor3}"
|
||||
puts "AISColor4 = ${AISColor4}"
|
||||
|
||||
set DefaultAISColor 516
|
||||
set status 0
|
||||
if { ${AISColor1} != ${DefaultAISColor} } {
|
||||
puts "OCC1030_AISColor command: Error (case 1)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${AISColor2} != ${GreenColor} } {
|
||||
puts "OCC1030_AISColor command: Error (case 2)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${AISColor3} != ${DefaultAISColor} } {
|
||||
puts "OCC1030_AISColor command: Error (case 3)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${AISColor4} != ${GreenColor} } {
|
||||
puts "OCC1030_AISColor command: Error (case 4)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${status} == 0} {
|
||||
puts "OCC1030_AISColor command: OK"
|
||||
}
|
||||
|
||||
|
||||
96
tests/bugs/caf/bug1031
Executable file
96
tests/bugs/caf/bug1031
Executable file
@ -0,0 +1,96 @@
|
||||
puts "================"
|
||||
puts "OCC1031"
|
||||
puts "================"
|
||||
puts ""
|
||||
#
|
||||
# Note: Numerical control of setting material
|
||||
#
|
||||
|
||||
pload QAcommands
|
||||
|
||||
NewDocument D MDTV-Standard
|
||||
UndoLimit D 100
|
||||
NewCommand D
|
||||
|
||||
# Set NamedShape attribute
|
||||
box aBox1 100 200 300
|
||||
set aLabel 0:2
|
||||
SetShape D ${aLabel} aBox1
|
||||
|
||||
# Initialize 3D viewer
|
||||
AISInitViewer D
|
||||
|
||||
# Add AISPresentation attribute with parameter NS
|
||||
AISSet D ${aLabel} NS
|
||||
|
||||
# Set shading mode
|
||||
vsetdispmode 1
|
||||
|
||||
# Display presentation of NamedShape in the viewer
|
||||
AISDisplay D ${aLabel}
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
set list [OCC1031_AISMaterial D ${aLabel}]
|
||||
set AISMaterial1 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Set a material of the shape as NOM_JADE
|
||||
set JadeMaterial 18
|
||||
OCC1031_AISMaterial D ${aLabel} ${JadeMaterial}
|
||||
|
||||
set list [OCC1031_AISMaterial D ${aLabel}]
|
||||
set AISMaterial2 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Undo
|
||||
Undo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1031_AISMaterial D ${aLabel}]
|
||||
set AISMaterial3 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Redo
|
||||
Redo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1031_AISMaterial D ${aLabel}]
|
||||
set AISMaterial4 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Check the material
|
||||
puts "AISMaterial1 = ${AISMaterial1}"
|
||||
puts "AISMaterial2 = ${AISMaterial2}"
|
||||
puts "AISMaterial3 = ${AISMaterial3}"
|
||||
puts "AISMaterial4 = ${AISMaterial4}"
|
||||
|
||||
set status 0
|
||||
if { ${AISMaterial1} != 0 } {
|
||||
puts "OCC1031_AISMaterial command: Error (case 1)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${AISMaterial2} != ${JadeMaterial} } {
|
||||
puts "OCC1031_AISMaterial command: Error (case 2)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${AISMaterial3} != 0 } {
|
||||
puts "OCC1031_AISMaterial command: Error (case 3)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${AISMaterial4} != ${JadeMaterial} } {
|
||||
puts "OCC1031_AISMaterial command: Error (case 4)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${status} == 0} {
|
||||
puts "OCC1031_AISMaterial command: OK"
|
||||
}
|
||||
|
||||
94
tests/bugs/caf/bug1032
Executable file
94
tests/bugs/caf/bug1032
Executable file
@ -0,0 +1,94 @@
|
||||
puts "================"
|
||||
puts "OCC1032"
|
||||
puts "================"
|
||||
puts ""
|
||||
#
|
||||
# Note: Numerical control of setting width
|
||||
#
|
||||
|
||||
pload QAcommands
|
||||
|
||||
NewDocument D MDTV-Standard
|
||||
UndoLimit D 100
|
||||
NewCommand D
|
||||
|
||||
# Set NamedShape attribute
|
||||
box aBox1 100 200 300
|
||||
set aLabel1 0:2
|
||||
SetShape D ${aLabel1} aBox1
|
||||
|
||||
# Initialize 3D viewer
|
||||
AISInitViewer D
|
||||
|
||||
# Add AISPresentation attribute with parameter NS
|
||||
AISSet D ${aLabel1} NS
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
set list [OCC1032_AISWidth D ${aLabel1}]
|
||||
set AISWidth1 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Display presentation of NamedShape in the viewer
|
||||
AISDisplay D ${aLabel1}
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Set a width
|
||||
set SetWidth 4.5
|
||||
OCC1032_AISWidth D ${aLabel1} ${SetWidth}
|
||||
|
||||
set list [OCC1032_AISWidth D ${aLabel1}]
|
||||
set AISWidth2 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Undo
|
||||
Undo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1032_AISWidth D ${aLabel1}]
|
||||
set AISWidth3 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Redo
|
||||
Redo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1032_AISWidth D ${aLabel1}]
|
||||
set AISWidth4 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Check the mode
|
||||
puts "AISWidth1 = ${AISWidth1}"
|
||||
puts "AISWidth2 = ${AISWidth2}"
|
||||
puts "AISWidth3 = ${AISWidth3}"
|
||||
puts "AISWidth4 = ${AISWidth4}"
|
||||
|
||||
set DefaultAISWidth 0
|
||||
set status 0
|
||||
if { ${AISWidth1} != ${DefaultAISWidth} } {
|
||||
puts "OCC1032_AISWidth command: Error (case 1)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISWidth2} != ${SetWidth} } {
|
||||
puts "OCC1032_AISWidth command: Error (case 2)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISWidth3} != ${DefaultAISWidth} } {
|
||||
puts "OCC1032_AISWidth command: Error (case 3)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISWidth4} != ${SetWidth} } {
|
||||
puts "OCC1032_AISWidth command: Error (case 4)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${status} == 0} {
|
||||
puts "OCC1032_AISWidth command: OK"
|
||||
}
|
||||
|
||||
94
tests/bugs/caf/bug1033
Executable file
94
tests/bugs/caf/bug1033
Executable file
@ -0,0 +1,94 @@
|
||||
puts "================"
|
||||
puts "OCC1033"
|
||||
puts "================"
|
||||
puts ""
|
||||
#
|
||||
# Note: Numerical control of setting mode
|
||||
#
|
||||
|
||||
pload QAcommands
|
||||
|
||||
NewDocument D MDTV-Standard
|
||||
UndoLimit D 100
|
||||
NewCommand D
|
||||
|
||||
# Set NamedShape attribute
|
||||
box aBox1 100 200 300
|
||||
set aLabel1 0:2
|
||||
SetShape D ${aLabel1} aBox1
|
||||
|
||||
# Initialize 3D viewer
|
||||
AISInitViewer D
|
||||
|
||||
# Add AISPresentation attribute with parameter NS
|
||||
AISSet D ${aLabel1} NS
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
set list [OCC1033_AISMode D ${aLabel1}]
|
||||
set AISMode1 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Display presentation of NamedShape in the viewer
|
||||
AISDisplay D ${aLabel1}
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Set a mode
|
||||
set SetMode 2
|
||||
OCC1033_AISMode D ${aLabel1} ${SetMode}
|
||||
|
||||
set list [OCC1033_AISMode D ${aLabel1}]
|
||||
set AISMode2 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Undo
|
||||
Undo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1033_AISMode D ${aLabel1}]
|
||||
set AISMode3 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Redo
|
||||
Redo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1033_AISMode D ${aLabel1}]
|
||||
set AISMode4 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Check the mode
|
||||
puts "AISMode1 = ${AISMode1}"
|
||||
puts "AISMode2 = ${AISMode2}"
|
||||
puts "AISMode3 = ${AISMode3}"
|
||||
puts "AISMode4 = ${AISMode4}"
|
||||
|
||||
set DefaultAISMode 0
|
||||
set status 0
|
||||
if { ${AISMode1} != ${DefaultAISMode} } {
|
||||
puts "OCC1033_AISMode command: Error (case 1)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISMode2} != ${SetMode} } {
|
||||
puts "OCC1033_AISMode command: Error (case 2)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISMode3} != ${DefaultAISMode} } {
|
||||
puts "OCC1033_AISMode command: Error (case 3)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISMode4} != ${SetMode} } {
|
||||
puts "OCC1033_AISMode command: Error (case 4)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${status} == 0} {
|
||||
puts "OCC1033_AISMode command: OK"
|
||||
}
|
||||
|
||||
94
tests/bugs/caf/bug1034
Executable file
94
tests/bugs/caf/bug1034
Executable file
@ -0,0 +1,94 @@
|
||||
puts "================"
|
||||
puts "OCC1034"
|
||||
puts "================"
|
||||
puts ""
|
||||
#
|
||||
# Note: Numerical control of setting selection mode
|
||||
#
|
||||
|
||||
pload QAcommands
|
||||
|
||||
NewDocument D MDTV-Standard
|
||||
UndoLimit D 100
|
||||
NewCommand D
|
||||
|
||||
# Set NamedShape attribute
|
||||
box aBox1 100 200 300
|
||||
set aLabel1 0:2
|
||||
SetShape D ${aLabel1} aBox1
|
||||
|
||||
# Initialize 3D viewer
|
||||
AISInitViewer D
|
||||
|
||||
# Add AISPresentation attribute with parameter NS
|
||||
AISSet D ${aLabel1} NS
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
set list [OCC1034_AISSelectionMode D ${aLabel1}]
|
||||
set AISSelectionMode1 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Display presentation of NamedShape in the viewer
|
||||
AISDisplay D ${aLabel1}
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Set a mode
|
||||
set SetSelectionMode 2
|
||||
OCC1034_AISSelectionMode D ${aLabel1} ${SetSelectionMode}
|
||||
|
||||
set list [OCC1034_AISSelectionMode D ${aLabel1}]
|
||||
set AISSelectionMode2 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Close/Open transaction
|
||||
NewCommand D
|
||||
|
||||
# Undo
|
||||
Undo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1034_AISSelectionMode D ${aLabel1}]
|
||||
set AISSelectionMode3 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Redo
|
||||
Redo D
|
||||
|
||||
# Update the viewer
|
||||
AISRepaint D
|
||||
|
||||
set list [OCC1034_AISSelectionMode D ${aLabel1}]
|
||||
set AISSelectionMode4 [lindex ${list} [expr [llength ${list}] - 1] ]
|
||||
|
||||
# Check the mode
|
||||
puts "AISSelectionMode1 = ${AISSelectionMode1}"
|
||||
puts "AISSelectionMode2 = ${AISSelectionMode2}"
|
||||
puts "AISSelectionMode3 = ${AISSelectionMode3}"
|
||||
puts "AISSelectionMode4 = ${AISSelectionMode4}"
|
||||
|
||||
set DefaultAISSelectionMode 0
|
||||
set status 0
|
||||
if { ${AISSelectionMode1} != ${DefaultAISSelectionMode} } {
|
||||
puts "OCC1034_AISSelectionMode command: Error (case 1)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISSelectionMode2} != ${SetSelectionMode} } {
|
||||
puts "OCC1034_AISSelectionMode command: Error (case 2)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISSelectionMode3} != ${DefaultAISSelectionMode} } {
|
||||
puts "OCC1034_AISSelectionMode command: Error (case 3)"
|
||||
set status 1
|
||||
}
|
||||
if { ${AISSelectionMode4} != ${SetSelectionMode} } {
|
||||
puts "OCC1034_AISSelectionMode command: Error (case 4)"
|
||||
set status 1
|
||||
}
|
||||
|
||||
if { ${status} == 0} {
|
||||
puts "OCC1034_AISSelectionMode command: OK"
|
||||
}
|
||||
|
||||
0
tests/bugs/caf/bug114
Normal file → Executable file
0
tests/bugs/caf/bug114
Normal file → Executable file
35
tests/bugs/caf/bug170_3
Executable file
35
tests/bugs/caf/bug170_3
Executable file
@ -0,0 +1,35 @@
|
||||
puts "TODO OCC12345 ALL: OCC170 Error"
|
||||
|
||||
puts "========================"
|
||||
puts "OCC170"
|
||||
puts "(case 3)"
|
||||
puts "========================"
|
||||
|
||||
set docName OCC170
|
||||
set newDocName OCC170_2
|
||||
set str1 "~!@#$%^&*():;'{}\|?/.>,<~!@#$%^&*():;'{}\|?/.>,<#$%#$%$%^&*():;'{}\|$%^&*(@#$%^&*():;'{}\|¦/"
|
||||
|
||||
NewDocument $docName XmlOcaf
|
||||
Label $docName 0:2
|
||||
SetComment $docName 0:2 $str1
|
||||
|
||||
file delete ${imagedir}/${docName}.xml
|
||||
|
||||
if [ catch {SaveAs $docName ${imagedir}/${docName}.xml} ] {
|
||||
puts "Error : (SaveAs)"
|
||||
} else {
|
||||
puts "OK : (SaveAs)"
|
||||
}
|
||||
|
||||
exec cp ${imagedir}/${docName}.xml ${imagedir}/${newDocName}.xml
|
||||
|
||||
Open ${imagedir}/${newDocName}.xml $newDocName
|
||||
|
||||
# Retrieve string from document and compare it with initial value
|
||||
set str2 [GetComment $newDocName 0:2]
|
||||
if {$str1 == $str2} {puts "OCC170 OK"} else {
|
||||
puts "str1=${str1}"
|
||||
puts "str2=${str2}"
|
||||
puts "OCC170 Error"
|
||||
}
|
||||
|
||||
39
tests/bugs/caf/bug5023
Executable file
39
tests/bugs/caf/bug5023
Executable file
@ -0,0 +1,39 @@
|
||||
puts "================"
|
||||
puts "OCC5023"
|
||||
puts "================"
|
||||
puts ""
|
||||
######################################################
|
||||
# Performance regression in opening OCAF file
|
||||
######################################################
|
||||
|
||||
set aFile [locate_data_file OCC5023.std]
|
||||
|
||||
puts "Info: Restore the document"
|
||||
|
||||
if [info exists DD] {
|
||||
catch {Close DD}; unset DD
|
||||
}
|
||||
|
||||
dchrono h reset
|
||||
dchrono h start
|
||||
|
||||
Open ${aFile} DD
|
||||
dchrono h stop
|
||||
set list [dchrono h show]
|
||||
Close DD
|
||||
|
||||
regexp {CPU user time: +([-0-9.+eE]+)} $list full CPU_user_time
|
||||
|
||||
set Good_CPU_user_time 2.
|
||||
|
||||
set CPU_user_time_percent [expr (${CPU_user_time} - ${Good_CPU_user_time}) / ${Good_CPU_user_time} * 100.]
|
||||
set percent_max 0.1
|
||||
|
||||
puts "CPU_user_time = ${CPU_user_time}"
|
||||
puts "Good_CPU_user_time = ${Good_CPU_user_time}"
|
||||
puts "CPU_user_time_percent = ${CPU_user_time_percent}"
|
||||
|
||||
if {${CPU_user_time_percent} > ${percent_max}} {
|
||||
puts "Faulty OCC5023 : CPU user time is wrong"
|
||||
}
|
||||
|
||||
162
tests/bugs/caf/bug669
Executable file
162
tests/bugs/caf/bug669
Executable file
@ -0,0 +1,162 @@
|
||||
puts "All exceptions is OK"
|
||||
puts "TODO OCC12345 ALL: An exception was caught"
|
||||
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
|
||||
|
||||
puts "========"
|
||||
puts "OCC669"
|
||||
puts "========"
|
||||
puts ""
|
||||
#########################################
|
||||
## Standard_GUID("HoleFeature") cause stack overwrite
|
||||
#########################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
set GoodGUIDList [list 00000000-0000-0000-0000-000000000000 \
|
||||
\
|
||||
0000000A-0000-0000-0000-000000000000 \
|
||||
0000000B-0000-0000-0000-000000000000 \
|
||||
0000000C-0000-0000-0000-000000000000 \
|
||||
0000000D-0000-0000-0000-000000000000 \
|
||||
0000000E-0000-0000-0000-000000000000 \
|
||||
0000000F-0000-0000-0000-000000000000 \
|
||||
\
|
||||
0000000a-0000-0000-0000-000000000000 \
|
||||
0000000b-0000-0000-0000-000000000000 \
|
||||
0000000c-0000-0000-0000-000000000000 \
|
||||
0000000d-0000-0000-0000-000000000000 \
|
||||
0000000e-0000-0000-0000-000000000000 \
|
||||
0000000f-0000-0000-0000-000000000000 \
|
||||
\
|
||||
00000000-000A-0000-0000-000000000000 \
|
||||
00000000-000B-0000-0000-000000000000 \
|
||||
00000000-000C-0000-0000-000000000000 \
|
||||
00000000-000D-0000-0000-000000000000 \
|
||||
00000000-000E-0000-0000-000000000000 \
|
||||
00000000-000F-0000-0000-000000000000 \
|
||||
\
|
||||
00000000-000a-0000-0000-000000000000 \
|
||||
00000000-000b-0000-0000-000000000000 \
|
||||
00000000-000c-0000-0000-000000000000 \
|
||||
00000000-000d-0000-0000-000000000000 \
|
||||
00000000-000e-0000-0000-000000000000 \
|
||||
00000000-000f-0000-0000-000000000000 \
|
||||
\
|
||||
00000000-0000-000A-0000-000000000000 \
|
||||
00000000-0000-000B-0000-000000000000 \
|
||||
00000000-0000-000C-0000-000000000000 \
|
||||
00000000-0000-000D-0000-000000000000 \
|
||||
00000000-0000-000E-0000-000000000000 \
|
||||
00000000-0000-000F-0000-000000000000 \
|
||||
\
|
||||
00000000-0000-000a-0000-000000000000 \
|
||||
00000000-0000-000b-0000-000000000000 \
|
||||
00000000-0000-000c-0000-000000000000 \
|
||||
00000000-0000-000d-0000-000000000000 \
|
||||
00000000-0000-000e-0000-000000000000 \
|
||||
00000000-0000-000f-0000-000000000000 \
|
||||
\
|
||||
00000000-0000-0000-000A-000000000000 \
|
||||
00000000-0000-0000-000B-000000000000 \
|
||||
00000000-0000-0000-000C-000000000000 \
|
||||
00000000-0000-0000-000D-000000000000 \
|
||||
00000000-0000-0000-000E-000000000000 \
|
||||
00000000-0000-0000-000F-000000000000 \
|
||||
\
|
||||
00000000-0000-0000-000a-000000000000 \
|
||||
00000000-0000-0000-000b-000000000000 \
|
||||
00000000-0000-0000-000c-000000000000 \
|
||||
00000000-0000-0000-000d-000000000000 \
|
||||
00000000-0000-0000-000e-000000000000 \
|
||||
00000000-0000-0000-000f-000000000000 \
|
||||
\
|
||||
00000000-0000-0000-0000-00000000000A \
|
||||
00000000-0000-0000-0000-00000000000B \
|
||||
00000000-0000-0000-0000-00000000000C \
|
||||
00000000-0000-0000-0000-00000000000D \
|
||||
00000000-0000-0000-0000-00000000000E \
|
||||
00000000-0000-0000-0000-00000000000F \
|
||||
\
|
||||
00000000-0000-0000-0000-00000000000a \
|
||||
00000000-0000-0000-0000-00000000000b \
|
||||
00000000-0000-0000-0000-00000000000c \
|
||||
00000000-0000-0000-0000-00000000000d \
|
||||
00000000-0000-0000-0000-00000000000e \
|
||||
00000000-0000-0000-0000-00000000000f ]
|
||||
|
||||
set BadGUIDList [list \
|
||||
\
|
||||
0000000G-0000-0000-0000-000000000000 \
|
||||
0000000g-0000-0000-0000-000000000000 \
|
||||
\
|
||||
00000000-000G-0000-0000-000000000000 \
|
||||
00000000-000g-0000-0000-000000000000 \
|
||||
\
|
||||
00000000-0000-000G-0000-000000000000 \
|
||||
00000000-0000-000g-0000-000000000000 \
|
||||
\
|
||||
00000000-0000-0000-000G-000000000000 \
|
||||
00000000-0000-0000-000g-000000000000 \
|
||||
\
|
||||
00000000-0000-0000-0000-00000000000G \
|
||||
00000000-0000-0000-0000-00000000000g \
|
||||
\
|
||||
000000000000000000000000000000000000 \
|
||||
0000000000000000000000000000000000000 \
|
||||
00000000000000000000000000000000000 \
|
||||
\
|
||||
0000000000000-0000-0000-000000000000 \
|
||||
00000000-000000000-0000-000000000000 \
|
||||
00000000-0000-000000000-000000000000 \
|
||||
00000000-0000-0000-00000000000000000 \
|
||||
\
|
||||
000000000-0000-0000-0000-000000000000 \
|
||||
0000000-0000-0000-0000-000000000000 \
|
||||
\
|
||||
00000000-00000-0000-0000-000000000000 \
|
||||
00000000-000-0000-0000-000000000000 \
|
||||
\
|
||||
00000000-0000-00000-0000-000000000000 \
|
||||
00000000-0000-000-0000-000000000000 \
|
||||
\
|
||||
00000000-0000-0000-00000-000000000000 \
|
||||
00000000-0000-0000-000-000000000000 \
|
||||
\
|
||||
00000000-0000-0000-0000-0000000000000 \
|
||||
00000000-0000-0000-0000-00000000000 \
|
||||
\
|
||||
"" ]
|
||||
|
||||
set IsOK 1
|
||||
|
||||
set i 0
|
||||
|
||||
foreach GUID ${GoodGUIDList} {
|
||||
incr i
|
||||
if [catch { OCC669 ${GUID} }] then {
|
||||
set IsOK 0
|
||||
puts "GUID=\"${GUID}\""
|
||||
puts "Faulty OCC669 (case ${i})"
|
||||
} else {
|
||||
puts "OCC669 OK (case ${i})"
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
foreach GUID ${BadGUIDList} {
|
||||
incr i
|
||||
if [catch { OCC669 ${GUID} }] then {
|
||||
puts "OCC669 OK (case ${i})"
|
||||
} else {
|
||||
set IsOK 0
|
||||
puts "GUID=\"${GUID}\""
|
||||
puts "Faulty OCC669 (case ${i})"
|
||||
}
|
||||
}
|
||||
|
||||
if { ${IsOK} == 1} {
|
||||
puts "OCC669 OK"
|
||||
} else {
|
||||
puts "Faulty OCC669"
|
||||
}
|
||||
|
||||
17
tests/bugs/caf/bug738_1
Executable file
17
tests/bugs/caf/bug738_1
Executable file
@ -0,0 +1,17 @@
|
||||
puts "========"
|
||||
puts "OCC738"
|
||||
puts "========"
|
||||
puts ""
|
||||
###################################
|
||||
## The GUIDs in XCAFDoc have incorrect format.
|
||||
###################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
if [catch { OCC738_Assembly }] then {
|
||||
puts "Faulty OCC738"
|
||||
} else {
|
||||
puts "OCC738 OK"
|
||||
}
|
||||
|
||||
|
||||
17
tests/bugs/caf/bug738_2
Executable file
17
tests/bugs/caf/bug738_2
Executable file
@ -0,0 +1,17 @@
|
||||
puts "========"
|
||||
puts "OCC738"
|
||||
puts "========"
|
||||
puts ""
|
||||
##################################
|
||||
##The GUIDs in XCAFDoc have incorrect format.
|
||||
##################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
if [catch { OCC738_ShapeRef }] then {
|
||||
puts "Faulty OCC738"
|
||||
} else {
|
||||
puts "OCC738 OK"
|
||||
}
|
||||
|
||||
|
||||
19
tests/bugs/caf/bug739
Executable file
19
tests/bugs/caf/bug739
Executable file
@ -0,0 +1,19 @@
|
||||
puts "TODO OCC12345 ALL: Faulty OCC739"
|
||||
|
||||
puts "========"
|
||||
puts "OCC739"
|
||||
puts "========"
|
||||
puts ""
|
||||
###################################################
|
||||
## Invalid GUIDs in DDataStd_DrawPresentation and DDataStd_Sample.
|
||||
###################################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
if [catch { OCC739_DrawPresentation }] then {
|
||||
puts "Faulty OCC739"
|
||||
} else {
|
||||
puts "OCC739 OK"
|
||||
}
|
||||
|
||||
|
||||
0
tests/bugs/demo/bug23409
Normal file → Executable file
0
tests/bugs/demo/bug23409
Normal file → Executable file
0
tests/bugs/demo/bug23416
Normal file → Executable file
0
tests/bugs/demo/bug23416
Normal file → Executable file
@ -12,6 +12,7 @@ if { [isdraw result] } {
|
||||
vdisplay result
|
||||
vsetdispmode 1
|
||||
vfit
|
||||
vzfit
|
||||
vdump $imagedir/${test_image}.png
|
||||
}
|
||||
}
|
||||
|
||||
19
tests/bugs/fclasses/bug11568_1
Executable file
19
tests/bugs/fclasses/bug11568_1
Executable file
@ -0,0 +1,19 @@
|
||||
puts "============"
|
||||
puts "OCC11568"
|
||||
puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# UnitsAPI package uses incorrect symbol for minutes: mn instead of min
|
||||
#######################################################################
|
||||
|
||||
set BugNumber OCC11568
|
||||
|
||||
set UnitString "mn"
|
||||
set result "Token word : min\n"
|
||||
|
||||
if { [unitparsing ${UnitString}] == ${result} } {
|
||||
puts "${BugNumber}: OK"
|
||||
} else {
|
||||
puts "${BugNumber}: Faulty"
|
||||
}
|
||||
|
||||
18
tests/bugs/fclasses/bug11568_2
Executable file
18
tests/bugs/fclasses/bug11568_2
Executable file
@ -0,0 +1,18 @@
|
||||
puts "============"
|
||||
puts "OCC11568"
|
||||
puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# UnitsAPI package uses incorrect symbol for minutes: mn instead of min
|
||||
#######################################################################
|
||||
|
||||
set BugNumber OCC11568
|
||||
|
||||
set UnitString "mn"
|
||||
set result "result: 60\n"
|
||||
|
||||
if { [unitconvtoSI 1 ${UnitString}] == ${result} } {
|
||||
puts "${BugNumber}: OK"
|
||||
} else {
|
||||
puts "${BugNumber}: Faulty"
|
||||
}
|
||||
0
tests/bugs/fclasses/bug23237
Normal file → Executable file
0
tests/bugs/fclasses/bug23237
Normal file → Executable file
0
tests/bugs/fclasses/bug23403
Normal file → Executable file
0
tests/bugs/fclasses/bug23403
Normal file → Executable file
@ -12,7 +12,7 @@ puts "================"
|
||||
puts ""
|
||||
|
||||
restore [locate_data_file box__simplifiée.brep] result
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
16
tests/bugs/fclasses/bug670
Executable file
16
tests/bugs/fclasses/bug670
Executable file
@ -0,0 +1,16 @@
|
||||
puts "TODO ?OCC12345 ALL: An exception was caught"
|
||||
puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
|
||||
|
||||
puts "========"
|
||||
puts "OCC670"
|
||||
puts "========"
|
||||
puts ""
|
||||
#########################
|
||||
## Problem with the Print method.
|
||||
#########################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
catch { OCC670 }
|
||||
|
||||
puts "OCC670 OK"
|
||||
26
tests/bugs/fclasses/bug6794
Executable file
26
tests/bugs/fclasses/bug6794
Executable file
@ -0,0 +1,26 @@
|
||||
puts "============"
|
||||
puts "OCC6794"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# AsciiString corrputs memory in case of MMGT_OPT equal to 0
|
||||
######################################################
|
||||
|
||||
pload QAcommands
|
||||
set BugNumber OCC6794
|
||||
set nb 40009
|
||||
set env(MMGT_OPT) 0
|
||||
set OPT $env(MMGT_OPT)
|
||||
|
||||
if { ${OPT} != 0 } {
|
||||
puts "env(MMGT_OPT) = $env(MMGT_OPT)"
|
||||
puts "Faulty ${BugNumber}"
|
||||
} else {
|
||||
set result [OCC6794 ${nb}]
|
||||
regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb
|
||||
regexp {aLength += +([-0-9.+eE]+)} $result full length
|
||||
|
||||
if { ${use_nb} != ${nb} || ${length} != ${nb} } {
|
||||
puts "Faulty ${BugNumber}"
|
||||
}
|
||||
}
|
||||
18
tests/bugs/fclasses/bug710
Executable file
18
tests/bugs/fclasses/bug710
Executable file
@ -0,0 +1,18 @@
|
||||
puts "========"
|
||||
puts "OCC710"
|
||||
puts "========"
|
||||
puts ""
|
||||
########################################################
|
||||
## If the the file pathname is empty, the Standard_Boolean OSD_FileNode::Exists()
|
||||
## raises an exception
|
||||
########################################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
set Path ""
|
||||
|
||||
if [catch {OCC710 ${Path} } result] {
|
||||
puts "Faulty OCC710"
|
||||
} else {
|
||||
puts "OCC710 OK"
|
||||
}
|
||||
29
tests/bugs/fclasses/bug7287_1
Executable file
29
tests/bugs/fclasses/bug7287_1
Executable file
@ -0,0 +1,29 @@
|
||||
puts "============"
|
||||
puts "OCC7287"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Problem of Memory Leak
|
||||
######################################################
|
||||
|
||||
#
|
||||
# Result is Null shape
|
||||
#
|
||||
|
||||
set BugNumber OCC7287
|
||||
|
||||
set NCycles 1000
|
||||
box b1 100 100 100
|
||||
box b2 50 50 50
|
||||
bop b1 b2
|
||||
|
||||
set listmem {}
|
||||
for {set i 1} {${i} <= ${NCycles}} {incr i } {
|
||||
bopcut r
|
||||
|
||||
lappend listmem [expr [meminfo w] / 1024]
|
||||
if { [checktrend $listmem 0 1 "Memory leak detected"] } {
|
||||
puts "No memory leak, $i iterations"
|
||||
break
|
||||
}
|
||||
}
|
||||
28
tests/bugs/fclasses/bug7287_2
Executable file
28
tests/bugs/fclasses/bug7287_2
Executable file
@ -0,0 +1,28 @@
|
||||
puts "============"
|
||||
puts "OCC7287"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Problem of Memory Leak
|
||||
######################################################
|
||||
|
||||
#
|
||||
# Result is not Null shape
|
||||
#
|
||||
|
||||
set BugNumber OCC7287
|
||||
|
||||
set NCycles 1000
|
||||
box b1 10 10 10 100 100 100
|
||||
box b2 50 50 50
|
||||
bop b1 b2
|
||||
|
||||
set listmem {}
|
||||
for {set i 1} {${i} <= ${NCycles}} {incr i } {
|
||||
bopcut r
|
||||
lappend listmem [expr [meminfo w] / 1024]
|
||||
if { [checktrend $listmem 0 1 "Memory leak detected"] } {
|
||||
puts "No memory leak, $i iterations"
|
||||
break
|
||||
}
|
||||
}
|
||||
31
tests/bugs/fclasses/bug7287_3
Executable file
31
tests/bugs/fclasses/bug7287_3
Executable file
@ -0,0 +1,31 @@
|
||||
puts "============"
|
||||
puts "OCC7287"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Problem of Memory Leak
|
||||
######################################################
|
||||
|
||||
#
|
||||
# Result is not Null shape
|
||||
#
|
||||
|
||||
set BugNumber OCC7287
|
||||
|
||||
|
||||
set NCycles 1000
|
||||
box b1 10 10 10 100 100 100
|
||||
box b2 50 50 50
|
||||
bop b1 b2
|
||||
|
||||
set listmem {}
|
||||
for {set i 1} {${i} <= ${NCycles}} {incr i } {
|
||||
boptuc r
|
||||
|
||||
lappend listmem [expr [meminfo w] / 1024]
|
||||
if { [checktrend $listmem 0 1 "Memory leak detected"] } {
|
||||
puts "No memory leak, $i iterations"
|
||||
break
|
||||
}
|
||||
}
|
||||
|
||||
29
tests/bugs/fclasses/bug7287_4
Executable file
29
tests/bugs/fclasses/bug7287_4
Executable file
@ -0,0 +1,29 @@
|
||||
puts "============"
|
||||
puts "OCC7287"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Problem of Memory Leak
|
||||
######################################################
|
||||
|
||||
#
|
||||
# Result is not Null shape
|
||||
#
|
||||
|
||||
set BugNumber OCC7287
|
||||
|
||||
set NCycles 1000
|
||||
box b1 10 10 10 100 100 100
|
||||
box b2 50 50 50
|
||||
bop b1 b2
|
||||
|
||||
set listmem {}
|
||||
for {set i 1} {${i} <= ${NCycles}} {incr i } {
|
||||
bopcommon r
|
||||
|
||||
lappend listmem [expr [meminfo w] / 1024]
|
||||
if { [checktrend $listmem 0 1 "Memory leak detected"] } {
|
||||
puts "No memory leak, $i iterations"
|
||||
break
|
||||
}
|
||||
}
|
||||
28
tests/bugs/fclasses/bug7287_5
Executable file
28
tests/bugs/fclasses/bug7287_5
Executable file
@ -0,0 +1,28 @@
|
||||
puts "============"
|
||||
puts "OCC7287"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Problem of Memory Leak
|
||||
######################################################
|
||||
|
||||
#
|
||||
# Result is not Null shape
|
||||
#
|
||||
|
||||
set BugNumber OCC7287
|
||||
|
||||
set NCycles 1000
|
||||
box b1 10 10 10 100 100 100
|
||||
box b2 50 50 50
|
||||
bop b1 b2
|
||||
|
||||
for {set i 1} {${i} <= ${NCycles}} {incr i } {
|
||||
bopfuse r
|
||||
|
||||
lappend listmem [expr [meminfo w] / 1024]
|
||||
if { [checktrend $listmem 0 1 "Memory leak detected"] } {
|
||||
puts "No memory leak, $i iterations"
|
||||
break
|
||||
}
|
||||
}
|
||||
29
tests/bugs/fclasses/bug7287_6
Executable file
29
tests/bugs/fclasses/bug7287_6
Executable file
@ -0,0 +1,29 @@
|
||||
puts "============"
|
||||
puts "OCC7287"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Problem of Memory Leak
|
||||
######################################################
|
||||
|
||||
#
|
||||
# Result is not Null shape
|
||||
#
|
||||
|
||||
set BugNumber OCC7287
|
||||
|
||||
set NCycles 1000
|
||||
box b1 10 10 10 100 100 100
|
||||
box b2 50 50 50
|
||||
bop b1 b2
|
||||
|
||||
for {set i 1} {${i} <= ${NCycles}} {incr i } {
|
||||
bopsection r
|
||||
|
||||
lappend listmem [expr [meminfo w] / 1024]
|
||||
if { [checktrend $listmem 0 1 "Memory leak detected"] } {
|
||||
puts "No memory leak, $i iterations"
|
||||
break
|
||||
}
|
||||
}
|
||||
|
||||
27
tests/bugs/fclasses/bug7639
Executable file
27
tests/bugs/fclasses/bug7639
Executable file
@ -0,0 +1,27 @@
|
||||
puts "============"
|
||||
puts "OCC7639"
|
||||
puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# NCollection_Vector works incorrectly with rare data
|
||||
#######################################################################
|
||||
|
||||
pload QAcommands
|
||||
set BugNumber OCC7639
|
||||
|
||||
set List [OCC7639 0 1 2 500 1 2]
|
||||
|
||||
set Length [llength $List]
|
||||
if { ${Length} != 6} {
|
||||
puts "Faulty (1) ${BugNumber}"
|
||||
} else {
|
||||
if { [regexp "1" $List] != 1 } {
|
||||
puts "Faulty (2) ${BugNumber}"
|
||||
}
|
||||
if { [regexp "2" $List] != 1 } {
|
||||
puts "Faulty (3) ${BugNumber}"
|
||||
}
|
||||
if { [regexp "500" $List] != 1 } {
|
||||
puts "Faulty (4) ${BugNumber}"
|
||||
}
|
||||
}
|
||||
33
tests/bugs/fclasses/bug902
Executable file
33
tests/bugs/fclasses/bug902
Executable file
@ -0,0 +1,33 @@
|
||||
puts "TODO OCC12345 ALL: OCC902 Faulty"
|
||||
|
||||
puts "======="
|
||||
puts "OCC902"
|
||||
puts "======="
|
||||
puts ""
|
||||
###############
|
||||
## bad derivative
|
||||
###############
|
||||
|
||||
pload QAcommands
|
||||
|
||||
set arg 5
|
||||
set list [OCC902 $arg]
|
||||
|
||||
set we_have [lindex $list 8]
|
||||
puts "we_have = $we_have"
|
||||
|
||||
set must_be_1 "Exp($arg)*$arg"
|
||||
puts "must_be_1 = $must_be_1"
|
||||
set must_be_2 "$arg*Exp($arg)"
|
||||
puts "must_be_2 = $must_be_2"
|
||||
|
||||
if {[string compare $we_have $must_be_1] == 0} {
|
||||
puts "OCC902 OK"
|
||||
} else {
|
||||
if { [string compare $we_have $must_be_2] == 0} {
|
||||
puts "OCC902 OK"
|
||||
} else {
|
||||
puts "OCC902 Faulty"
|
||||
}
|
||||
}
|
||||
|
||||
14
tests/bugs/fclasses/bug984
Executable file
14
tests/bugs/fclasses/bug984
Executable file
@ -0,0 +1,14 @@
|
||||
puts "================"
|
||||
puts "OCC984"
|
||||
puts "================"
|
||||
puts ""
|
||||
|
||||
pload QAcommands
|
||||
|
||||
set list [OCC984 [locate_data_file OCC984.xml]]
|
||||
|
||||
if { [regexp "Document parsed" $list] == 1 } {
|
||||
puts "OCC984: OK"
|
||||
} else {
|
||||
puts "OCC984: Error"
|
||||
}
|
||||
24
tests/bugs/fclasses/bug9848_1
Executable file
24
tests/bugs/fclasses/bug9848_1
Executable file
@ -0,0 +1,24 @@
|
||||
puts "============"
|
||||
puts "OCC9848"
|
||||
puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# Specififying invalid name of unit produces exception.(for example tonne instead ton)
|
||||
#######################################################################
|
||||
|
||||
set BugNumber OCC9848
|
||||
|
||||
set UnitString "tonne/(mm*s**2)"
|
||||
|
||||
set List ""
|
||||
set result ""
|
||||
|
||||
if [catch { set List [unitparsing ${UnitString}] } result] {
|
||||
if { ${result} == "can not create a sentence\n"} {
|
||||
puts "${BugNumber}: OK"
|
||||
} else {
|
||||
puts "${BugNumber}: Faulty (2)"
|
||||
}
|
||||
} else {
|
||||
puts "${BugNumber}: Faulty (1)"
|
||||
}
|
||||
25
tests/bugs/fclasses/bug9848_2
Executable file
25
tests/bugs/fclasses/bug9848_2
Executable file
@ -0,0 +1,25 @@
|
||||
puts "============"
|
||||
puts "OCC9848"
|
||||
puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# Specififying invalid name of unit produces exception.(for example tonne instead ton)
|
||||
#######################################################################
|
||||
|
||||
set BugNumber OCC9848
|
||||
|
||||
set UnitString "ton/(m*s**2)"
|
||||
|
||||
set List ""
|
||||
set result ""
|
||||
set GoodResult "Token word : (ton)/((m)*((s)**(2)))"
|
||||
|
||||
if [catch { set List [unitparsing ${UnitString}] } result] {
|
||||
puts "${BugNumber}: Faulty (1)"
|
||||
} else {
|
||||
if { ${List} == "${GoodResult}\n"} {
|
||||
puts "${BugNumber}: OK"
|
||||
} else {
|
||||
puts "${BugNumber}: Faulty (2)"
|
||||
}
|
||||
}
|
||||
18
tests/bugs/fclasses/bug984_1
Executable file
18
tests/bugs/fclasses/bug984_1
Executable file
@ -0,0 +1,18 @@
|
||||
puts "========"
|
||||
puts "OCC984"
|
||||
puts "========"
|
||||
puts ""
|
||||
####################################################
|
||||
## LDOM hangs-up attempting to read a file which contains a reference to "*dtd"file
|
||||
####################################################
|
||||
|
||||
pload DCAF
|
||||
set BugNumber OCC984
|
||||
cpulimit 60
|
||||
|
||||
# Open the document
|
||||
if { [catch { Open [locate_data_file OCC984.xml] D } aResult] != 0 } {
|
||||
puts "Faulty ${BugNumber}"
|
||||
} else {
|
||||
puts "OK ${BugNumber}"
|
||||
}
|
||||
2
tests/bugs/heal/buc60940
Normal file → Executable file
2
tests/bugs/heal/buc60940
Normal file → Executable file
@ -5,6 +5,6 @@ puts "========================"
|
||||
restore [locate_data_file buc60940.rle] a
|
||||
|
||||
fixshape result a 1e-7 1
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
|
||||
set 2dviewer 1
|
||||
|
||||
2
tests/bugs/heal/buc60950
Normal file → Executable file
2
tests/bugs/heal/buc60950
Normal file → Executable file
@ -7,7 +7,7 @@ checkshape a
|
||||
|
||||
fixshape result a 1e-7
|
||||
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
|
||||
set 2dviewer 1
|
||||
|
||||
|
||||
49
tests/bugs/heal/bug1642
Executable file
49
tests/bugs/heal/bug1642
Executable file
@ -0,0 +1,49 @@
|
||||
puts "========================"
|
||||
puts " OCC1642 "
|
||||
puts "========================"
|
||||
puts ""
|
||||
###########################################################
|
||||
puts " ShapeFix_Wire::FixSelfIntersectingEdge does not remove a loop"
|
||||
###########################################################
|
||||
|
||||
pload QAcommands
|
||||
cpulimit 2000
|
||||
|
||||
restore [locate_data_file OCC1642.brep] shape
|
||||
|
||||
set list [OCC1642 result FinalFace InitWare InitFace shape FixReorder FixDegenerated FixConnected FixSelfIntersection]
|
||||
|
||||
set FixSelfIntersection [string last "FixSelfIntersection" $list]
|
||||
set Intersectingpt [string last "Intersecting pt :" $list]
|
||||
|
||||
puts "FixSelfIntersection=${FixSelfIntersection}"
|
||||
puts "Intersectingpt=${Intersectingpt}"
|
||||
if { ${Intersectingpt} == -1} {
|
||||
puts "Warning: There are not intersecting points"
|
||||
}
|
||||
|
||||
set list [lprops result]
|
||||
regexp {Mass +: +([-0-9.+eE]+)} $list full pcurve_length
|
||||
|
||||
set good_pcurve_length 3880.52
|
||||
set percent_max 0.1
|
||||
set percent [expr abs(${pcurve_length} - ${good_pcurve_length}) / double(${good_pcurve_length}) * 100.]
|
||||
|
||||
puts "good_pcurve_length = ${good_pcurve_length}"
|
||||
puts "pcurve_length = ${pcurve_length}"
|
||||
puts "percent = ${percent}"
|
||||
|
||||
if {${percent} > ${percent_max}} {
|
||||
puts "OCC1642 Faulty length: function FixShape works WRONGLY !!"
|
||||
} else {
|
||||
puts "OCC1642 length: function FixShape works CORRECTLY"
|
||||
}
|
||||
|
||||
if { ${Intersectingpt} > ${FixSelfIntersection} } {
|
||||
puts "OCC1642 Faulty"
|
||||
} else {
|
||||
puts "OCC1642 OK"
|
||||
}
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -10,7 +10,7 @@ restore [locate_data_file OCC208.brep] a
|
||||
|
||||
fixshape result a 0.01 0.01
|
||||
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
|
||||
@ -13,6 +13,6 @@ checkshape a_4
|
||||
fixshape result a 0.01 0.01
|
||||
explode result f
|
||||
|
||||
puts [checkshape result_4]
|
||||
checkshape result_4
|
||||
set 2dviewer 1
|
||||
|
||||
|
||||
24
tests/bugs/heal/bug210
Executable file
24
tests/bugs/heal/bug210
Executable file
@ -0,0 +1,24 @@
|
||||
puts "========="
|
||||
puts " OCC210 "
|
||||
puts "========="
|
||||
puts ""
|
||||
##################################################
|
||||
# Improve FixShape to correct case of touching wires
|
||||
##################################################
|
||||
|
||||
pload XDE
|
||||
|
||||
cpulimit 2500
|
||||
|
||||
set BugNumber OCC210
|
||||
|
||||
if [catch { stepread [locate_data_file UKI60591.stp] a * } result] {
|
||||
puts "Faulty ${BugNumber}: here is reading problem"
|
||||
} else {
|
||||
puts "Reading ${BugNumber} OK"
|
||||
tpcompound r
|
||||
fixshape result r
|
||||
checkshape result
|
||||
}
|
||||
|
||||
set 2dviewer 0
|
||||
@ -11,6 +11,6 @@ restore [locate_data_file OCC210b.brep] a
|
||||
|
||||
fixshape result a 0.01 0.01
|
||||
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
set 2dviewer 1
|
||||
|
||||
|
||||
36
tests/bugs/heal/bug22
Executable file
36
tests/bugs/heal/bug22
Executable file
@ -0,0 +1,36 @@
|
||||
puts "======="
|
||||
puts "OCC22"
|
||||
puts "======="
|
||||
puts ""
|
||||
#####################################################################
|
||||
##Locations are not correctly processed by ShapeBuild_ReShape (and base class BRepTools_ReShape)
|
||||
#####################################################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
restore [locate_data_file OCC21.brep] shape
|
||||
explode shape f
|
||||
compound shape_1 shape_2 compoundToBeDivided
|
||||
|
||||
# Case A of the bug is reproduced. Resulting shape must have 5 faces instead of 3
|
||||
|
||||
if [catch { OCC22 result shape compoundToBeDivided 0 } ] {
|
||||
puts "OCC22 ERROR; (case 1)"
|
||||
} else {
|
||||
puts "OCC22 OK; (case 1)"
|
||||
}
|
||||
|
||||
regexp {([-0-9.+eE]+)\s FACE} [statshape result] full nbFaces
|
||||
if {$nbFaces != 5} {
|
||||
puts "OCC22 FAULTY: Initial shape was not splitted"
|
||||
}
|
||||
|
||||
# Case B of the bug is reproduced. Result must be valid
|
||||
if [catch { OCC22 res shape compoundToBeDivided 1 } ] {
|
||||
puts "OCC22 ERROR; (case 2)"
|
||||
} else {
|
||||
puts "OCC22 OK; (case 2)"
|
||||
}
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -10,7 +10,7 @@ puts ""
|
||||
|
||||
restore [locate_data_file OCC329.brep] a
|
||||
|
||||
puts [checkshape a]
|
||||
checkshape a
|
||||
set tol1 [maxtolerance a]
|
||||
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1
|
||||
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1
|
||||
@ -18,7 +18,7 @@ regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1
|
||||
|
||||
fixshape result a 1.e-7 0.1
|
||||
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
set tol2 [ maxtolerance result]
|
||||
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2
|
||||
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2
|
||||
|
||||
@ -10,7 +10,7 @@ restore [locate_data_file OCC482.brep] a
|
||||
|
||||
fixsmall result a 0.05
|
||||
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
set 2dviewer 1
|
||||
|
||||
|
||||
|
||||
18
tests/bugs/heal/bug518
Executable file
18
tests/bugs/heal/bug518
Executable file
@ -0,0 +1,18 @@
|
||||
puts "========"
|
||||
puts "OCC518"
|
||||
puts "========"
|
||||
puts ""
|
||||
################################
|
||||
## Checkshape reports problem in C40, none in DEV
|
||||
################################
|
||||
|
||||
pload XDE
|
||||
|
||||
restore [locate_data_file OCC518.brep] a
|
||||
|
||||
fixshape result a .001 1.
|
||||
|
||||
checkshape result
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
40
tests/bugs/heal/bug884
Executable file
40
tests/bugs/heal/bug884
Executable file
@ -0,0 +1,40 @@
|
||||
puts "============"
|
||||
puts "OCC884"
|
||||
puts "============"
|
||||
puts ""
|
||||
###################################################
|
||||
## ShapeFix_Wire::FixSelfIntersection does not fix 3d curves on planes
|
||||
###################################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
restore [locate_data_file OCC884.brep] a
|
||||
|
||||
OCC884 res a 1.1 1.1
|
||||
|
||||
explode res e
|
||||
mkplane p res
|
||||
pcurve c2d res_1 p
|
||||
mkcurve c3d res_1
|
||||
|
||||
set list_3 [length $c3d]
|
||||
set list_4 [length $c2d]
|
||||
|
||||
# len2 is the length of 3d curve
|
||||
regexp {The length c3d is +([-0-9.+eE]+)} $list_3 full len2
|
||||
|
||||
# len1 is the length of 2d curve
|
||||
regexp {The length c2d is +([-0-9.+eE]+)} $list_4 full len1
|
||||
|
||||
set percent_max 0.1
|
||||
set percent [expr abs(${len2} - ${len1}) / double(${len1}) * 100.]
|
||||
|
||||
puts "len1 = ${len1}"
|
||||
puts "len2 = ${len2}"
|
||||
puts "percent = ${percent}"
|
||||
|
||||
if {${percent} > ${percent_max}} {
|
||||
puts "OCC884: Error"
|
||||
} else {
|
||||
puts "OCC884: OK"
|
||||
}
|
||||
6
tests/bugs/iges/buc60591_1
Normal file → Executable file
6
tests/bugs/iges/buc60591_1
Normal file → Executable file
@ -14,7 +14,7 @@ igesbrep [locate_data_file buc60591a.igs] a *
|
||||
|
||||
tpcompound buc60591a
|
||||
|
||||
puts [checkshape buc60591a r]
|
||||
checkshape buc60591a r
|
||||
|
||||
######################################################################
|
||||
|
||||
@ -31,11 +31,11 @@ dall
|
||||
|
||||
igesbrep ${imagedir}/buc60591a_brep.igs a_brep_iges *
|
||||
tpcompound buc60591a_brep_iges
|
||||
puts [checkshape buc60591a_brep_iges]
|
||||
checkshape buc60591a_brep_iges
|
||||
|
||||
igesbrep ${imagedir}/buc60591a_iges.igs a_iges *
|
||||
tpcompound buc60591a_iges
|
||||
puts [checkshape buc60591a_iges]
|
||||
checkshape buc60591a_iges
|
||||
|
||||
renamevar buc60591a_iges result
|
||||
|
||||
|
||||
6
tests/bugs/iges/buc60591_2
Normal file → Executable file
6
tests/bugs/iges/buc60591_2
Normal file → Executable file
@ -13,7 +13,7 @@ igesbrep [locate_data_file buc60591b.igs] a *
|
||||
|
||||
tpcompound buc60591b
|
||||
|
||||
puts [checkshape buc60591b r]
|
||||
checkshape buc60591b r
|
||||
|
||||
######################################################################
|
||||
|
||||
@ -30,11 +30,11 @@ dall
|
||||
|
||||
igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges *
|
||||
tpcompound buc60591b_brep_iges
|
||||
puts [checkshape buc60591b_brep_iges]
|
||||
checkshape buc60591b_brep_iges
|
||||
|
||||
igesbrep ${imagedir}/buc60591b_iges.igs b_iges *
|
||||
tpcompound buc60591b_iges
|
||||
puts [checkshape buc60591b_iges]
|
||||
checkshape buc60591b_iges
|
||||
|
||||
renamevar buc60591b_iges result
|
||||
|
||||
|
||||
6
tests/bugs/iges/buc60591_3
Normal file → Executable file
6
tests/bugs/iges/buc60591_3
Normal file → Executable file
@ -12,7 +12,7 @@ puts "consideration of \"buc60591c\" model"
|
||||
igesbrep [locate_data_file buc60591c.igs] a *
|
||||
|
||||
tpcompound buc60591c
|
||||
puts [checkshape buc60591c r]
|
||||
checkshape buc60591c r
|
||||
|
||||
######################################################################
|
||||
|
||||
@ -29,11 +29,11 @@ dall
|
||||
|
||||
igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges *
|
||||
tpcompound buc60591c_brep_iges
|
||||
puts [checkshape buc60591c_brep_iges]
|
||||
checkshape buc60591c_brep_iges
|
||||
|
||||
igesbrep ${imagedir}/buc60591c_iges.igs c_iges *
|
||||
tpcompound buc60591c_iges
|
||||
puts [checkshape buc60591c_iges]
|
||||
checkshape buc60591c_iges
|
||||
|
||||
renamevar buc60591c_iges result
|
||||
|
||||
|
||||
6
tests/bugs/iges/buc60591_4
Normal file → Executable file
6
tests/bugs/iges/buc60591_4
Normal file → Executable file
@ -11,7 +11,7 @@ puts "consideration of \"buc60591d\" model"
|
||||
igesbrep [locate_data_file buc60591d.igs] a *
|
||||
|
||||
tpcompound buc60591d
|
||||
puts [checkshape buc60591d r]
|
||||
checkshape buc60591d r
|
||||
|
||||
######################################################################
|
||||
|
||||
@ -28,11 +28,11 @@ dall
|
||||
|
||||
igesbrep ${imagedir}/buc60591d_brep.igs d_brep_iges *
|
||||
tpcompound buc60591d_brep_iges
|
||||
puts [checkshape buc60591d_brep_iges]
|
||||
checkshape buc60591d_brep_iges
|
||||
|
||||
igesbrep ${imagedir}/buc60591d_iges.igs d_iges *
|
||||
tpcompound buc60591d_iges
|
||||
puts [checkshape buc60591d_iges]
|
||||
checkshape buc60591d_iges
|
||||
|
||||
renamevar buc60591d_iges result
|
||||
|
||||
|
||||
4
tests/bugs/iges/buc60594
Normal file → Executable file
4
tests/bugs/iges/buc60594
Normal file → Executable file
@ -9,7 +9,7 @@ puts ""
|
||||
igesbrep [locate_data_file buc60594a.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
0
tests/bugs/iges/buc60595_1
Normal file → Executable file
0
tests/bugs/iges/buc60595_1
Normal file → Executable file
0
tests/bugs/iges/buc60595_2
Normal file → Executable file
0
tests/bugs/iges/buc60595_2
Normal file → Executable file
0
tests/bugs/iges/buc60595_3
Normal file → Executable file
0
tests/bugs/iges/buc60595_3
Normal file → Executable file
4
tests/bugs/iges/buc60610
Normal file → Executable file
4
tests/bugs/iges/buc60610
Normal file → Executable file
@ -7,8 +7,8 @@ puts "========================"
|
||||
igesbrep [locate_data_file buc60610a.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
2
tests/bugs/iges/buc60625
Normal file → Executable file
2
tests/bugs/iges/buc60625
Normal file → Executable file
@ -10,7 +10,7 @@ cpulimit 1500
|
||||
set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots]
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result r]
|
||||
checkshape result r
|
||||
|
||||
set start [lindex $l 60]
|
||||
set bug_list_numb [ llength $l ]
|
||||
|
||||
2
tests/bugs/iges/buc60646
Normal file → Executable file
2
tests/bugs/iges/buc60646
Normal file → Executable file
@ -8,7 +8,7 @@ puts "=================================="
|
||||
set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots]
|
||||
|
||||
tpcompound res
|
||||
puts [checkshape res r]
|
||||
checkshape res r
|
||||
|
||||
tcopy res result
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@ cpulimit 1500
|
||||
set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots]
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result r]
|
||||
checkshape result r
|
||||
|
||||
regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full start
|
||||
regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full end
|
||||
|
||||
0
tests/bugs/iges/buc60686
Normal file → Executable file
0
tests/bugs/iges/buc60686
Normal file → Executable file
4
tests/bugs/iges/buc60687
Normal file → Executable file
4
tests/bugs/iges/buc60687
Normal file → Executable file
@ -5,7 +5,7 @@ puts "=========="
|
||||
igesbrep [locate_data_file buc40130.igs] a xst-transferrable-roots
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
2
tests/bugs/iges/buc60820_1
Normal file → Executable file
2
tests/bugs/iges/buc60820_1
Normal file → Executable file
@ -6,7 +6,7 @@ igesbrep [locate_data_file buc60820.igs] a *
|
||||
|
||||
tpcompound result
|
||||
|
||||
puts [checkshape result r]
|
||||
checkshape result r
|
||||
|
||||
tclean result
|
||||
incmesh result 0.1
|
||||
|
||||
2
tests/bugs/iges/buc60820_2
Normal file → Executable file
2
tests/bugs/iges/buc60820_2
Normal file → Executable file
@ -5,7 +5,7 @@ puts "========================"
|
||||
igesbrep [locate_data_file buc60820.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result r]
|
||||
checkshape result r
|
||||
|
||||
tclean result
|
||||
vinit
|
||||
|
||||
4
tests/bugs/iges/buc60823
Normal file → Executable file
4
tests/bugs/iges/buc60823
Normal file → Executable file
@ -13,8 +13,8 @@ puts "========================"
|
||||
igesbrep [locate_data_file buc60823.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
tclean result
|
||||
vinit
|
||||
|
||||
4
tests/bugs/iges/buc60850
Normal file → Executable file
4
tests/bugs/iges/buc60850
Normal file → Executable file
@ -5,7 +5,7 @@ puts "==========="
|
||||
igesbrep [locate_data_file BUC60850.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
0
tests/bugs/iges/buc60894
Normal file → Executable file
0
tests/bugs/iges/buc60894
Normal file → Executable file
4
tests/bugs/iges/buc60949
Normal file → Executable file
4
tests/bugs/iges/buc60949
Normal file → Executable file
@ -9,8 +9,8 @@ puts "==========="
|
||||
igesbrep [locate_data_file buc60949.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -7,8 +7,8 @@ puts "========"
|
||||
igesbrep [locate_data_file OCC111a.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -7,8 +7,8 @@ puts "========"
|
||||
igesbrep [locate_data_file OCC111b.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -6,8 +6,8 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-1.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-2.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-3.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -8,7 +8,7 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-4.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-5.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-6.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-7.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -8,7 +8,7 @@ puts ""
|
||||
igesbrep [locate_data_file OCC131-8.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -11,8 +11,8 @@ puts ""
|
||||
igesbrep [locate_data_file igsBF5.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -12,8 +12,8 @@ puts ""
|
||||
igesbrep [locate_data_file Cover.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -11,8 +11,8 @@ puts "========================"
|
||||
igesbrep [locate_data_file Case.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -14,8 +14,8 @@ cpulimit 3000
|
||||
igesbrep [locate_data_file igsBF1.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -11,8 +11,8 @@ puts ""
|
||||
igesbrep [locate_data_file Rich.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -9,8 +9,8 @@ puts ""
|
||||
igesbrep [locate_data_file OCC201.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
0
tests/bugs/iges/bug22888
Normal file → Executable file
0
tests/bugs/iges/bug22888
Normal file → Executable file
0
tests/bugs/iges/bug23377
Normal file → Executable file
0
tests/bugs/iges/bug23377
Normal file → Executable file
@ -5,8 +5,8 @@ puts "========"
|
||||
igesbrep [locate_data_file 919-001-T02-04-CP-VL.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
if { [llength [whatis result]] == 3 } {
|
||||
puts "Error : There is no result"
|
||||
|
||||
@ -5,8 +5,8 @@ puts "========"
|
||||
igesbrep [locate_data_file 919-001-T02-04-FT-VL.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
if { [llength [whatis result]] == 3 } {
|
||||
puts "Error : There is no result"
|
||||
|
||||
@ -5,8 +5,8 @@ puts "========"
|
||||
igesbrep [locate_data_file 919-004-T02-01-FT-VL.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
if { [llength [whatis result]] == 3 } {
|
||||
puts "Error : There is no result"
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file BUC50030.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -5,8 +5,8 @@ puts "========"
|
||||
igesbrep [locate_data_file OCC285.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
@ -13,7 +13,7 @@ tclean a
|
||||
|
||||
sewing result a
|
||||
|
||||
puts [checkshape result]
|
||||
checkshape result
|
||||
|
||||
vinit
|
||||
vsetdispmode result 1
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file BUC61004-1.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file BUC61004-2.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file BUC61004-3.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -6,7 +6,7 @@ puts ""
|
||||
igesbrep [locate_data_file BUC61004-4.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
@ -9,8 +9,8 @@ puts ""
|
||||
igesbrep [locate_data_file So5571b.igs] a *
|
||||
|
||||
tpcompound result
|
||||
puts [checkshape result]
|
||||
puts [checkshape result r]
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
13
tests/bugs/iges/bug514
Executable file
13
tests/bugs/iges/bug514
Executable file
@ -0,0 +1,13 @@
|
||||
puts "========"
|
||||
puts "OCC514"
|
||||
puts "========"
|
||||
|
||||
igesbrep [locate_data_file OCC514a.igs] a *
|
||||
|
||||
tpcompound result
|
||||
|
||||
checkshape result
|
||||
checkshape result r
|
||||
|
||||
set 2dviewer 0
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user