1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
puts "Test loading of resources from different paths"
puts "0027849: ResourceManager path computations fail for the folders containing dots"
pload QAcommands
set paths {
"path"
"path.with.dots"
"path with spaces"
"nested/dirs/path with spaces"
}
# key word to be saved in resource file and then checked
set keyw ok
foreach p $paths {
set path [file join $imagedir $p]
file mkdir $path
set fd [open $path/TestResource w]
puts $fd "test.resource : $keyw"
close $fd
dsetenv CSF_TestResourceDefaults $path
if { [OCC27849 TestResource test.resource] != "$keyw" } {
puts "Error: cannot read resource file in $path"
}
}
|
