mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
175 lines
4.0 KiB
Plaintext
Executable File
175 lines
4.0 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: Dump1 : Faulty"
|
|
puts "TODO OCC12345 ALL: Dump2 : Faulty"
|
|
puts "TODO OCC12345 ALL: Dump3 : Faulty"
|
|
puts "TODO OCC12345 ALL: Dump4 : Faulty"
|
|
puts "TODO OCC12345 ALL: Dump5 : Faulty"
|
|
puts "TODO OCC12345 ALL: Dump6 : Faulty"
|
|
puts "TODO OCC12345 ALL: Faulty OCC9746"
|
|
|
|
puts "============"
|
|
puts "OCC9746"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Incorrect writing of integer array in BinMNaming_NamingDriver::Paste
|
|
#######################################################################
|
|
|
|
set BugNumber OCC9746
|
|
|
|
# Create a new document
|
|
NewDocument D BinOcaf
|
|
|
|
box b 130 111 145
|
|
ttranslate b 35 1 1
|
|
pcylinder cyl 50 120 230
|
|
ttranslate cyl 1 1 75
|
|
|
|
set aLab1 [ImportShape D 0:2 b Box1]
|
|
set aLab2 [ImportShape D 0:3 cyl Cylinder]
|
|
|
|
GetShape D $aLab1 S
|
|
explode S F
|
|
set BoxNamLab [Label D 0:4]
|
|
SelectShape D $BoxNamLab:1 S_1 S
|
|
SelectShape D $BoxNamLab:2 S_2 S
|
|
SelectShape D $BoxNamLab:3 S_3 S
|
|
SelectShape D $BoxNamLab:4 S_4 S
|
|
SelectShape D $BoxNamLab:5 S_5 S
|
|
SelectShape D $BoxNamLab:6 S_6 S
|
|
|
|
GetShape D $aLab2 C
|
|
explode C F
|
|
set CylNamLab [Label D 0:5]
|
|
SelectShape D $CylNamLab:1 C_1 C
|
|
SelectShape D $CylNamLab:2 C_2 C
|
|
|
|
explode S E
|
|
SelectShape D $BoxNamLab:10 S_1 S
|
|
SelectShape D $BoxNamLab:11 S_3 S
|
|
|
|
explode S V
|
|
SelectShape D $BoxNamLab:21 S_3 S
|
|
SelectShape D $BoxNamLab:22 S_5 S
|
|
|
|
explode C V
|
|
SelectShape D $CylNamLab:10 C_1 C
|
|
SelectShape D $CylNamLab:11 C_2 C
|
|
SelectShape D $CylNamLab:12 C_3 C
|
|
|
|
# Save the document
|
|
set aFile ${imagedir}/${casename}.cbf
|
|
SaveAs D ${aFile}
|
|
if { ![file exists ${aFile}] } {
|
|
puts "There is not ${aFile} file; SaveAs command: Error"
|
|
puts "${BugNumber}: ERROR (case 1)"
|
|
}
|
|
|
|
Close D
|
|
|
|
# Restore the document
|
|
catch {Open ${aFile} DDoc}
|
|
file delete -force ${aFile}
|
|
|
|
#
|
|
set BoxNamLab [Label DDoc 0:4]
|
|
set CylNamLab [Label DDoc 0:5]
|
|
|
|
# one Naming argument
|
|
Attachment DDoc $BoxNamLab:1
|
|
Attachment DDoc $BoxNamLab:2
|
|
Attachment DDoc $BoxNamLab:3
|
|
Attachment DDoc $BoxNamLab:4
|
|
Attachment DDoc $BoxNamLab:5
|
|
Attachment DDoc $BoxNamLab:6
|
|
|
|
# two Naming arguments
|
|
Attachment DDoc $BoxNamLab:10
|
|
Attachment DDoc $BoxNamLab:11
|
|
GetShape DDoc $BoxNamLab:10
|
|
GetShape DDoc $BoxNamLab:11
|
|
|
|
# three naming arguments
|
|
Attachment DDoc $BoxNamLab:21
|
|
Attachment DDoc $BoxNamLab:22
|
|
GetShape DDoc $BoxNamLab:21
|
|
GetShape DDoc $BoxNamLab:22
|
|
|
|
# one naming argument
|
|
Attachment DDoc $CylNamLab:1
|
|
Attachment DDoc $CylNamLab:2
|
|
GetShape DDoc $CylNamLab:1
|
|
GetShape DDoc $CylNamLab:2
|
|
|
|
# three naming arguments
|
|
Attachment DDoc $CylNamLab:10
|
|
GetShape DDoc $CylNamLab:10
|
|
set Dump1 [DumpSelection DDoc $CylNamLab:10]
|
|
set Dump2 [DumpSelection DDoc $CylNamLab:10:1]
|
|
|
|
Attachment DDoc $CylNamLab:11
|
|
GetShape DDoc $CylNamLab:11
|
|
set Dump3 [DumpSelection DDoc $CylNamLab:11]
|
|
set Dump4 [DumpSelection DDoc $CylNamLab:10:1]
|
|
|
|
Attachment DDoc $CylNamLab:12
|
|
GetShape DDoc $CylNamLab:12
|
|
set Dump5 [DumpSelection DDoc $CylNamLab:12]
|
|
set Dump6 [DumpSelection DDoc $CylNamLab:12:1]
|
|
|
|
#
|
|
set Good_Dump1 "IDENTITY VERTEX 0:5:10:1 Stop 0:5:10:1\n"
|
|
set Good_Dump2 "INTERSECTION VERTEX 0:3:5 0:3:1 0:3:2 Stop 0:3:2\n"
|
|
set Good_Dump3 "IDENTITY VERTEX 0:5:11:1 Stop 0:5:11:1\n"
|
|
set Good_Dump4 "INTERSECTION VERTEX 0:3:5 0:3:1 0:3:2 Stop 0:3:2\n"
|
|
set Good_Dump5 "IDENTITY VERTEX 0:5:12:1 Stop 0:5:12:1\n"
|
|
set Good_Dump6 "INTERSECTION VERTEX 0:3:3 0:3:5 0:3:1 Stop 0:3:1\n"
|
|
#
|
|
|
|
# Checking
|
|
set status 0
|
|
puts ""
|
|
if { ${Dump1} != ${Good_Dump1} } {
|
|
set status 1
|
|
puts "Dump1 : Faulty"
|
|
} else {
|
|
puts "Dump1 : OK"
|
|
}
|
|
if { ${Dump2} != ${Good_Dump2} } {
|
|
set status 1
|
|
puts "Dump2 : Faulty"
|
|
} else {
|
|
puts "Dump2 : OK"
|
|
}
|
|
if { ${Dump3} != ${Good_Dump3} } {
|
|
set status 1
|
|
puts "Dump3 : Faulty"
|
|
} else {
|
|
puts "Dump3 : OK"
|
|
}
|
|
if { ${Dump4} != ${Good_Dump4} } {
|
|
set status 1
|
|
puts "Dump4 : Faulty"
|
|
} else {
|
|
puts "Dump4 : OK"
|
|
}
|
|
if { ${Dump5} != ${Good_Dump5} } {
|
|
set status 1
|
|
puts "Dump5 : Faulty"
|
|
} else {
|
|
puts "Dump5 : OK"
|
|
}
|
|
if { ${Dump6} != ${Good_Dump6} } {
|
|
set status 1
|
|
puts "Dump6 : Faulty"
|
|
} else {
|
|
puts "Dump6 : OK"
|
|
}
|
|
|
|
# Resume
|
|
puts ""
|
|
if { ${status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|