Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove the dependence on "exec ls -U" from the vtabH.test module, as the -U option to "ls" is not universally available. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4ecbc75b465533cf80e166a9d0879b9a |
| User & Date: | drh 2015-12-04 13:44:07 |
Context
|
2015-12-07
| ||
| 16:43 | Changes to avoid undefined behavior detected by analysis tools - never observed in the wild. Later: This check-in introduces a bug, fixed at [a304e34675404aee]. check-in: a9e81908 user: drh tags: trunk | |
|
2015-12-05
| ||
| 20:51 | Add untested implementations of experimental APIs sqlite3_snapshot_get(), _open() and _free(). check-in: 0715eb00 user: dan tags: snapshot-get | |
|
2015-12-04
| ||
| 13:44 | Remove the dependence on "exec ls -U" from the vtabH.test module, as the -U option to "ls" is not universally available. check-in: 4ecbc75b user: drh tags: trunk | |
| 03:27 | Prevent a segfault on Solaris in the test_fs.c due to differences in the definition of the dirent object. check-in: 042738ad user: drh tags: trunk | |
Changes
Changes to test/vtabH.test.
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
...
210
211
212
213
214
215
216
217
218
|
set res [list]
foreach name [glob -directory $::env(SystemDrive)/ -- *] {
if {[string index [file tail $name] 0] eq "."} continue
lappend res $name
}
return $res
} else {
return [exec ls -U /]
}
}
proc list_files { pattern } {
if {$::tcl_platform(platform) eq "windows"} {
set res [list]
foreach name [glob -nocomplain $pattern] {
................................................................................
SELECT size FROM fstree WHERE path = $pwd || '/subdir/x1.txt'
} 143
}
finish_test
|
|
<
<
|
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
...
210
211
212
213
214
215
216
|
set res [list]
foreach name [glob -directory $::env(SystemDrive)/ -- *] {
if {[string index [file tail $name] 0] eq "."} continue
lappend res $name
}
return $res
} else {
return [string map {/ {}} [glob /*]]
}
}
proc list_files { pattern } {
if {$::tcl_platform(platform) eq "windows"} {
set res [list]
foreach name [glob -nocomplain $pattern] {
................................................................................
SELECT size FROM fstree WHERE path = $pwd || '/subdir/x1.txt'
} 143
}
finish_test
|