[occt.git] / tests / bugs / modalg_5 / bug22747

puts "============"
puts "OCC22747"
puts "============"
puts ""
###########################################################################
# Progress indicator in sewing algorithm
###########################################################################

set BugNumber OCC22747

pload XSDRAW

restore [locate_data_file OCC22765.brep] a
vinit
XProgress -tclOutput
XProgress -t
set List1 [sewing result 0.1 a]
if { [string compare $List1 ""] != 0 } {
    puts "Error: XProgress should not have any output in this mode"
} else {
    puts "Mode -t works properly"
}

puts "----------------------"
XProgress +t
set List2 [sewing result 0.1 a]
if { [regexp "Progress:" $List2] != 1 } {
    puts "Error: XProgress should have output in this mode"
} else {
    puts "Mode +t works properly"
}

checkmaxtol result -ref 1.0000280013370991e-005
checknbshapes result -shell 1
checkfreebounds result 456

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
06da7b7e	1	puts "============"
	2	puts "OCC22747"
	3	puts "============"
	4	puts ""
	5	###########################################################################
	6	# Progress indicator in sewing algorithm
	7	###########################################################################
	8
	9	set BugNumber OCC22747
	10
	11	pload XSDRAW
	12
	13	restore [locate_data_file OCC22765.brep] a
	14	vinit
caee80f3	15	XProgress -tclOutput
06da7b7e	16	XProgress -t
	17	set List1 [sewing result 0.1 a]
	18	if { [string compare $List1 ""] != 0 } {
	19	puts "Error: XProgress should not have any output in this mode"
	20	} else {
	21	puts "Mode -t works properly"
	22	}
	23
	24	puts "----------------------"
	25	XProgress +t
	26	set List2 [sewing result 0.1 a]
	27	if { [regexp "Progress:" $List2] != 1 } {
	28	puts "Error: XProgress should have output in this mode"
	29	} else {
	30	puts "Mode +t works properly"
	31	}
	32
fb60057d	33	checkmaxtol result -ref 1.0000280013370991e-005
5ae01c85	34	checknbshapes result -shell 1
	35	checkfreebounds result 456
	36
5747059b	37	checkview -display result -2d -path ${imagedir}/${test_image}.png
06da7b7e	38