[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

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"
}

if { ! [file exists ${tmp}/1/OCC181] } {
  puts "Error: user resource file is not found!"
}

file delete -force ${tmp}/1
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
61c421bf	18	set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]
	19
	20	set list [split ${log}]
	21	set ll [llength ${list}]
	22	set status [lindex ${list} [expr ${ll} - 2] ]
	23
	24	if { ${status} == "TRUE"} then {
	25	puts "OCC181: OK"
	26	} else {
	27	puts "OCC181: Error"
	28	}
	29
73594f72	30	if { ! [file exists ${tmp}/1/OCC181] } {
	31	puts "Error: user resource file is not found!"
	32	}
	33
e4ffdb1e	34	file delete -force ${tmp}/1