mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08: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=============="
|
|
}
|
|
}
|