Lines Matching refs:set

15 set testdir [file dirname $argv0]
17 set testprefix shell8
22 set CLI [test_cli_invocation]
39     set path [file join $dirname $f]
41     set fd [open $path w]
52   if {$n<0} {set n [llength [file split $dirname]]}
54   set res [list]
56     set mtime [file mtime $f]
58       set perm [file attributes $f -perm]
60       set perm 0
62     set relpath [file join {*}[lrange [file split $f] $n end]]
68       set fd [open $f]
69       set data [read $fd]
78   set l1 [dir_to_list $d1]
79   set l2 [dir_to_list $d1]
85     set c1 ".ar c ar1"
86     set x1 ".ar x"
88     set c2 ".ar cC ar1 ."
89     set x2 ".ar Cx ar3"
91     set c3 ".ar cCf ar1 test_xyz.db ."
92     set x3 ".ar Cfx ar3 test_xyz.db"
96     set c1 ".ar -c ar1"
97     set x1 ".ar -x"
99     set c2 ".ar -cC ar1 ."
100     set x2 ".ar -xC ar3"
102     set c3 ".ar -cCar1 -ftest_xyz.db ."
103     set x3 ".ar -x -C ar3 -f test_xyz.db"
107     set c1 ".ar --create ar1"
108     set x1 ".ar --extract"
110     set c2 ".ar --directory ar1 --create ."
111     set x2 ".ar --extract --dir ar3"
113     set c3 ".ar --creat --dir ar1 --file test_xyz.db ."
114     set x3 ".ar --e  --dir ar3 --f test_xyz.db"
118     set c1 ".ar --cr ar1"
119     set x1 ".ar --e"
121     set c2 ".ar -C ar1 -c ."
122     set x2 ".ar -x -C ar3"
124     set c3 ".ar -c --directory ar1 --file test_xyz.db ."
125     set x3 ".ar -x --directory ar3 --file test_xyz.db"
137   set expected [dir_to_list ar1]
163   # This is to test that timestamps are set correctly.