Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix issues with command line invocation of wapptest.tcl. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
9e0d5d2640a92070967bc9fdf5c5b165 |
| User & Date: | dan 2019-10-03 13:44:08 |
Context
|
2019-10-03
| ||
| 14:36 | Fix some test script issues that come up with SQLITE_OMIT_VIRTUALTABLE builds. (check-in: 3934d2d0 user: dan tags: trunk) | |
| 13:44 | Fix issues with command line invocation of wapptest.tcl. (check-in: 9e0d5d26 user: dan tags: trunk) | |
|
2019-10-02
| ||
| 19:44 | Update error detection logic in releasetest.tcl to account for new output formats in USAN. (check-in: 3f36b988 user: drh tags: trunk) | |
Changes
Changes to test/wapptest.tcl.
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
...
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
|
lappend lWappArg [lindex $argv $i]
}
} else {
lappend lTestArg $arg
}
}
for {set i 0} {$i < [llength $lTestArg]} {incr i} {
switch -- [lindex $lTestArg $i] {
-platform {
if {$i==[llength $lTestArg]-1} { wapptest_usage }
incr i
set arg [lindex $lTestArg $i]
set lPlatform [releasetest_data platforms]
if {[lsearch $lPlatform $arg]<0} {
puts stderr "No such platform: $arg. Platforms are: $lPlatform"
................................................................................
default {
puts stderr "Unrecognized option: [lindex $lTestArg $i]"
wapptest_usage
}
}
}
wapptest_init
if {$G(noui)==0} {
wapp-start $lWappArg
} else {
wapptest_run
do_some_stuff
vwait forever
}
|
>
|
>
>
>
>
<
|
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
...
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
|
lappend lWappArg [lindex $argv $i]
}
} else {
lappend lTestArg $arg
}
}
wapptest_init
for {set i 0} {$i < [llength $lTestArg]} {incr i} {
set opt [lindex $lTestArg $i]
if {[string range $opt 0 1]=="--"} {
set opt [string range $opt 1 end]
}
switch -- $opt {
-platform {
if {$i==[llength $lTestArg]-1} { wapptest_usage }
incr i
set arg [lindex $lTestArg $i]
set lPlatform [releasetest_data platforms]
if {[lsearch $lPlatform $arg]<0} {
puts stderr "No such platform: $arg. Platforms are: $lPlatform"
................................................................................
default {
puts stderr "Unrecognized option: [lindex $lTestArg $i]"
wapptest_usage
}
}
}
if {$G(noui)==0} {
wapp-start $lWappArg
} else {
wapptest_run
do_some_stuff
vwait forever
}
|