[occt.git] / tests / bugs / fclasses / bug181_1

puts "========"
puts "OCC181"
puts "OCC701"
puts "========"
######################################################
# Resource_Manager class doen't return status of saving resources in a file.
######################################################
# Add method BuildPath to OSD_Directory
######################################################

# Clear tmp-data
######################################################################
set tmp ${imagedir}
######################################################################

pload QAcommands

file delete -force ${tmp}/1

set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]

set list [split ${log}]
set ll [llength ${list}]
set status [lindex ${list} [expr ${ll} - 2] ]

if { ${status} == "TRUE"} then {
   puts "OCC181: OK"
} else {
   puts "OCC181: Error"
}
Commit	Line	Data
61c421bf	1	puts "========"
	2	puts "OCC181"
	3	puts "OCC701"
	4	puts "========"
	5	######################################################
	6	# Resource_Manager class doen't return status of saving resources in a file.
	7	######################################################
	8	# Add method BuildPath to OSD_Directory
	9	######################################################
	10
	11	# Clear tmp-data
	12	######################################################################
	13	set tmp ${imagedir}
	14	######################################################################
	15
	16	pload QAcommands
	17
5d1833ef	18	file delete -force ${tmp}/1
61c421bf	19
	20	set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]
	21
	22	set list [split ${log}]
	23	set ll [llength ${list}]
	24	set status [lindex ${list} [expr ${ll} - 2] ]
	25
	26	if { ${status} == "TRUE"} then {
	27	puts "OCC181: OK"
	28	} else {
	29	puts "OCC181: Error"
	30	}
	31