mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
16f9b46dbb
RWGltf_GltfJsonParser::gltfParseSceneNode() - prevent flattering of Scene nodes (allow flattering only of Mesh nodes). Added command XAutoNaming managing XCAFDoc_ShapeTool::SetAutoNaming(). Added comparisons with reference Xdump data to glTF tests.
19 lines
629 B
Plaintext
19 lines
629 B
Plaintext
cpulimit 1000
|
|
|
|
# Trims spaces and removed empty lines within multi-line string.
|
|
proc trimmedDump { theDump } {
|
|
set aDump {}
|
|
foreach aLineIter [split $theDump "\n"] { set aLine [string trimright $aLineIter]; if { $aLine != "" } { lappend aDump $aLine } }
|
|
return [join $aDump "\n"]
|
|
}
|
|
|
|
# Check Xdump results with reference data.
|
|
proc checkXDump { theDoc theRefDump } {
|
|
puts "===== DUMP===="
|
|
set aDump [trimmedDump [uplevel #0 Xdump $theDoc]]
|
|
puts "=============="
|
|
if { $aDump != [trimmedDump $theRefDump] } {
|
|
puts "Error: unexpected document '$theDoc' structure\n===REF DUMP===\n$theRefDump\n=============="
|
|
}
|
|
}
|