mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-11 10:44:53 +03:00
0cc44c4730
Improved output of Xdump command using Draw_Interpretor. Improved output of Xdump command using Standard_SStream. OStream is used instead of SStream. Test cases for issue CR23911
36 lines
712 B
Plaintext
Executable File
36 lines
712 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC23911"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Invalid output of command Xdump
|
|
#######################################################################
|
|
|
|
XNewDoc D
|
|
box b 1 1 1
|
|
ttranslate b 1 0 0
|
|
XAddShape D b
|
|
|
|
set Log [Xdump D]
|
|
|
|
set status 0
|
|
|
|
if {[llength ${Log}] < 1} {
|
|
puts "Error: Invalid output of command Xdump"
|
|
set status 1
|
|
}
|
|
|
|
if { [regexp "ASSEMBLY" ${Log}] != 1 } {
|
|
puts "Error: Invalid output of command Xdump"
|
|
set status 1
|
|
}
|
|
|
|
if { [regexp "SOLID" ${Log}] != 1 } {
|
|
puts "Error: Invalid output of command Xdump"
|
|
set status 1
|
|
}
|
|
|
|
if { ${status} == 0 } {
|
|
puts "OK: Good output of command Xdump"
|
|
}
|