[occt.git] / tests / bugs / xde / bug21308

puts "================"
puts "OCC21308"
puts "================"
puts ""
######################################################################################
# Problem of Interface_Tracefile. There are not messages.
######################################################################################

igesbrep [locate_data_file annie_surf.igs] a *

set out [tpstat c]
set err 0
set nb [llength $out]
if { $nb == 0 } {
    set err 1
}

regexp {[ \t]*([-0-9.+eE]+)[ \t]*W:126 } $out full val
if { $val == 0 } {
    set err 1
}

if { $err != 0 } {
    puts "Error : No output warnings from command tpstat"
} else {
    puts "OK : Command tpstat works properly"
}
Commit	Line	Data
0dc98b5b	1	puts "================"
	2	puts "OCC21308"
	3	puts "================"
	4	puts ""
	5	######################################################################################
	6	# Problem of Interface_Tracefile. There are not messages.
	7	######################################################################################
	8
	9	igesbrep [locate_data_file annie_surf.igs] a *
	10
	11	set out [tpstat c]
	12	set err 0
	13	set nb [llength $out]
	14	if { $nb == 0 } {
	15	set err 1
	16	}
	17
	18	regexp {[ \t]([-0-9.+eE]+)[ \t]W:126 } $out full val
	19	if { $val == 0 } {
	20	set err 1
	21	}
	22
	23	if { $err != 0 } {
	24	puts "Error : No output warnings from command tpstat"
	25	} else {
	26	puts "OK : Command tpstat works properly"
	27	}