Adjust test case in quota.test to handle Windows dir seperators.

FossilOrigin-Name: 75ed1bcee85587ddd54269156aa53df5f456a6c4
This commit is contained in:
shaneh 2011-04-15 21:37:33 +00:00
parent 9dd6e0801d
commit b76ee876ba
3 changed files with 10 additions and 7 deletions

View File

@ -1,5 +1,5 @@
C Updates\sto\stest\scode\sin\sos_win\sto\sbring\swinSync\sinline\swith\sunixSync\s(test\scode\sonly).\s\s\nUpdated\sa\sfew\stest\sscripts\sto\saccount\sfor\sdirsync\scounting\sissues\son\sWindows.
D 2011-04-15T20:18:40.626
C Adjust\stest\scase\sin\squota.test\sto\shandle\sWindows\sdir\sseperators.
D 2011-04-15T21:37:33.430
F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
F Makefile.in 7a4d9524721d40ef9ee26f93f9bd6a51dba106f2
F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@ -613,7 +613,7 @@ F test/printf.test 05970cde31b1a9f54bd75af60597be75a5c54fea
F test/progress.test 5b075c3c790c7b2a61419bc199db87aaf48b8301
F test/ptrchng.test ef1aa72d6cf35a2bbd0869a649b744e9d84977fc
F test/quick.test 1681febc928d686362d50057c642f77a02c62e57
F test/quota.test ddafe133653093eb9a99ccd6264884ae43f9c9b8
F test/quota.test 48c3a5a98687d67ef06fc16d2e603284756bbec3
F test/quote.test 215897dbe8de1a6f701265836d6601cc6ed103e6
F test/randexpr1.tcl 40dec52119ed3a2b8b2a773bce24b63a3a746459
F test/randexpr1.test 1084050991e9ba22c1c10edd8d84673b501cc25a
@ -929,7 +929,7 @@ F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
F tool/split-sqlite3c.tcl d9be87f1c340285a3e081eb19b4a247981ed290c
F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
P 7a085271ff85033479c2057c19a45a750168d228
R b019ee7da23373414d9e5d588525e6d9
P 8f99c5bf639ee4f6384cc3c2d7f056d1b08e4f16
R 07905b1b5fa92907f27105413bb72c70
U shaneh
Z 81dc3f84502183f758b229c7fc470375
Z d2fec6e0a0cf675094cc1379ebad5d7b

View File

@ -1 +1 @@
8f99c5bf639ee4f6384cc3c2d7f056d1b08e4f16
75ed1bcee85587ddd54269156aa53df5f456a6c4

View File

@ -202,6 +202,9 @@ do_test quota-3.2.9 {
set ::quota [list]
proc quota_callback {file limitvar size} {
upvar $limitvar limit
if {$::tcl_platform(platform)=="windows"} {
set file [ lindex [string map {\\ \/} $file] 0 ]
}
lappend ::quota $file $size
set limit 0
}