0032630: Coding - get rid of unsused forward declarations [BinMDF to IFSelect]
[occt.git] / tests / de_mesh / begin
CommitLineData
1428d37a 1cpulimit 1000
16f9b46d 2
3# Trims spaces and removed empty lines within multi-line string.
4proc trimmedDump { theDump } {
5 set aDump {}
6 foreach aLineIter [split $theDump "\n"] { set aLine [string trimright $aLineIter]; if { $aLine != "" } { lappend aDump $aLine } }
7 return [join $aDump "\n"]
8}
9
10# Check Xdump results with reference data.
11proc checkXDump { theDoc theRefDump } {
12 puts "===== DUMP===="
13 set aDump [trimmedDump [uplevel #0 Xdump $theDoc]]
14 puts "=============="
15 if { $aDump != [trimmedDump $theRefDump] } {
16 puts "Error: unexpected document '$theDoc' structure\n===REF DUMP===\n$theRefDump\n=============="
17 }
18}