gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/quota2.test (about) 1 # 2011 December 1 2 # 3 # The author disclaims copyright to this source code. In place of 4 # a legal notice, here is a blessing: 5 # 6 # May you do good and not evil. 7 # May you find forgiveness for yourself and forgive others. 8 # May you share freely, never taking more than you give. 9 # 10 #*********************************************************************** 11 # 12 13 set testdir [file dirname $argv0] 14 source $testdir/tester.tcl 15 16 # If SQLITE_CURDIR is not defined, omit this file. 17 ifcapable !curdir { 18 finish_test 19 return 20 } 21 22 source $testdir/malloc_common.tcl 23 24 db close 25 sqlite3_quota_initialize "" 1 26 27 foreach dir {quota2a/x1 quota2a/x2 quota2a quota2b quota2c} { 28 forcedelete $dir 29 } 30 foreach dir {quota2a quota2a/x1 quota2a/x2 quota2b quota2c} { 31 file mkdir $dir 32 } 33 34 # The standard_path procedure converts a pathname into a standard format 35 # that is the same across platforms. 36 # 37 unset -nocomplain ::quota_pwd ::quota_mapping 38 set ::quota_pwd [string map {\\ /} [get_pwd]] 39 set ::quota_mapping [list $::quota_pwd PWD] 40 proc standard_path {x} { 41 set x [string map {\\ /} $x] 42 return [string map $::quota_mapping $x] 43 } 44 45 # The quota_check procedure is a callback from the quota handler. 46 # It has three arguments which are (1) the full pathname of the file 47 # that has gone over quota, (2) the quota limit, (3) the requested 48 # new quota size to cover the last write. These three values are 49 # appended to the global variable $::quota. The filename is processed 50 # to convert every \ character into / and to change the name of the 51 # working directory to PWD. 52 # 53 # The quota is increased to the request if the ::quota_request_ok 54 # global variable is true. 55 # 56 set ::quota {} 57 set ::quota_request_ok 0 58 59 proc quota_check {filename limitvar size} { 60 upvar $limitvar limit 61 lappend ::quota [standard_path $filename] [set limit] $size 62 if {$::quota_request_ok} {set limit $size} 63 } 64 65 sqlite3_quota_set */quota2a/* 4000 quota_check 66 sqlite3_quota_set */quota2b/* 5000 quota_check 67 68 unset -nocomplain bigtext 69 for {set i 1} {$i<=1000} {incr i} { 70 if {$i%10==0} { 71 append bigtext [format "%06d\n" $i] 72 } else { 73 append bigtext [format "%06d " $i] 74 } 75 } 76 77 catch { unset h1 } 78 catch { unset x } 79 do_test quota2-1.1 { 80 set ::h1 [sqlite3_quota_fopen quota2a/xyz.txt w+b] 81 sqlite3_quota_fwrite $::h1 1 7000 $bigtext 82 } {4000} 83 do_test quota2-1.2 { 84 set ::quota 85 } {PWD/quota2a/xyz.txt 4000 7000} 86 do_test quota2-1.2.1 { 87 sqlite3_quota_file_size $::h1 88 } {4000} 89 do_test quota2-1.2.2 { 90 sqlite3_quota_fflush $::h1 1 91 sqlite3_quota_file_truesize $::h1 92 } {4000} 93 do_test quota2-1.3 { 94 sqlite3_quota_rewind $::h1 95 set ::x [sqlite3_quota_fread $::h1 1001 7] 96 string length $::x 97 } {3003} 98 do_test quota2-1.4 { 99 string match $::x [string range $::bigtext 0 3002] 100 } {1} 101 do_test quota2-1.5 { 102 sqlite3_quota_fseek $::h1 0 SEEK_END 103 sqlite3_quota_ftell $::h1 104 } {4000} 105 do_test quota2-1.6 { 106 sqlite3_quota_fseek $::h1 -100 SEEK_END 107 sqlite3_quota_ftell $::h1 108 } {3900} 109 do_test quota2-1.7 { 110 sqlite3_quota_fseek $::h1 -100 SEEK_CUR 111 sqlite3_quota_ftell $::h1 112 } {3800} 113 do_test quota2-1.8 { 114 sqlite3_quota_fseek $::h1 50 SEEK_CUR 115 sqlite3_quota_ftell $::h1 116 } {3850} 117 do_test quota2-1.9 { 118 sqlite3_quota_fseek $::h1 50 SEEK_SET 119 sqlite3_quota_ftell $::h1 120 } {50} 121 do_test quota2-1.10 { 122 sqlite3_quota_rewind $::h1 123 sqlite3_quota_ftell $::h1 124 } {0} 125 do_test quota2-1.11 { 126 standard_path [sqlite3_quota_dump] 127 } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 4000 {PWD/quota2a/xyz.txt 4000 1 0}}} 128 do_test quota2-1.12 { 129 sqlite3_quota_ftruncate $::h1 3500 130 sqlite3_quota_file_size $::h1 131 } {3500} 132 do_test quota2-1.13 { 133 sqlite3_quota_file_truesize $::h1 134 } {3500} 135 do_test quota2-1.14 { 136 standard_path [sqlite3_quota_dump] 137 } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 3500 {PWD/quota2a/xyz.txt 3500 1 0}}} 138 do_test quota2-1.15 { 139 sqlite3_quota_fseek $::h1 0 SEEK_END 140 sqlite3_quota_ftell $::h1 141 } {3500} 142 do_test quota2-1.16 { 143 sqlite3_quota_fwrite $::h1 1 7000 $bigtext 144 } {500} 145 do_test quota2-1.17 { 146 sqlite3_quota_ftell $::h1 147 } {4000} 148 do_test quota2-1.18 { 149 sqlite3_quota_file_size $::h1 150 } {4000} 151 do_test quota2-1.19 { 152 sqlite3_quota_fflush $::h1 1 153 sqlite3_quota_file_truesize $::h1 154 } {4000} 155 do_test quota2-1.20 { 156 sqlite3_quota_fclose $::h1 157 standard_path [sqlite3_quota_dump] 158 } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 4000 {PWD/quota2a/xyz.txt 4000 0 0}}} 159 do_test quota2-1.21 { 160 sqlite3_quota_remove quota2a/xyz.txt 161 standard_path [sqlite3_quota_dump] 162 } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 0}} 163 164 165 166 set quota {} 167 do_test quota2-2.1 { 168 set ::h1 [sqlite3_quota_fopen quota2c/xyz.txt w+b] 169 sqlite3_quota_fwrite $::h1 1 7000 $bigtext 170 } {7000} 171 do_test quota2-2.2 { 172 set ::quota 173 } {} 174 do_test quota2-2.3.1 { 175 sqlite3_quota_rewind $::h1 176 sqlite3_quota_file_available $::h1 177 } {7000} 178 do_test quota2-2.3.2 { 179 set ::x [sqlite3_quota_fread $::h1 1001 7] 180 string length $::x 181 } {6006} 182 do_test quota2-2.3.3 { 183 sqlite3_quota_file_available $::h1 184 } {0} 185 do_test quota2-2.4 { 186 string match $::x [string range $::bigtext 0 6005] 187 } {1} 188 do_test quota2-2.5 { 189 sqlite3_quota_fseek $::h1 0 SEEK_END 190 sqlite3_quota_ftell $::h1 191 } {7000} 192 do_test quota2-2.6 { 193 sqlite3_quota_fseek $::h1 -100 SEEK_END 194 sqlite3_quota_ftell $::h1 195 } {6900} 196 do_test quota2-2.6.1 { 197 sqlite3_quota_file_available $::h1 198 } {100} 199 do_test quota2-2.7 { 200 sqlite3_quota_fseek $::h1 -100 SEEK_CUR 201 sqlite3_quota_ftell $::h1 202 } {6800} 203 do_test quota2-2.7.1 { 204 sqlite3_quota_file_available $::h1 205 } {200} 206 do_test quota2-2.8 { 207 sqlite3_quota_fseek $::h1 50 SEEK_CUR 208 sqlite3_quota_ftell $::h1 209 } {6850} 210 do_test quota2-2.8.1 { 211 sqlite3_quota_file_available $::h1 212 } {150} 213 do_test quota2-2.9 { 214 sqlite3_quota_fseek $::h1 50 SEEK_SET 215 sqlite3_quota_ftell $::h1 216 } {50} 217 do_test quota2-2.9.1 { 218 sqlite3_quota_file_available $::h1 219 } {6950} 220 do_test quota2-2.10 { 221 sqlite3_quota_rewind $::h1 222 sqlite3_quota_ftell $::h1 223 } {0} 224 do_test quota2-2.10.1 { 225 sqlite3_quota_file_available $::h1 226 } {7000} 227 do_test quota2-2.10.2 { 228 sqlite3_quota_ferror $::h1 229 } {0} 230 do_test quota2-2.11 { 231 standard_path [sqlite3_quota_dump] 232 } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 0}} 233 do_test quota2-2.12 { 234 sqlite3_quota_fclose $::h1 235 standard_path [sqlite3_quota_dump] 236 } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 0}} 237 238 do_test quota2-3.1 { 239 sqlite3_quota_set */quota2b/* 0 quota_check 240 set ::h1 [sqlite3_quota_fopen quota2a/x1/a.txt a] 241 sqlite3_quota_fwrite $::h1 10 10 $bigtext 242 } {10} 243 do_test quota2-3.2 { 244 standard_path [sqlite3_quota_dump] 245 } {{*/quota2a/* 4000 100 {PWD/quota2a/x1/a.txt 100 1 0}}} 246 do_test quota2-3.3a { 247 sqlite3_quota_fflush $::h1 0 248 standard_path [sqlite3_quota_dump] 249 } {{*/quota2a/* 4000 100 {PWD/quota2a/x1/a.txt 100 1 0}}} 250 do_test quota2-3.3b { 251 sqlite3_quota_fflush $::h1 1 252 standard_path [sqlite3_quota_dump] 253 } {{*/quota2a/* 4000 100 {PWD/quota2a/x1/a.txt 100 1 0}}} 254 do_test quota2-3.3c { 255 sqlite3_quota_fflush $::h1 256 standard_path [sqlite3_quota_dump] 257 } {{*/quota2a/* 4000 100 {PWD/quota2a/x1/a.txt 100 1 0}}} 258 do_test quota2-3.4 { 259 sqlite3_quota_fclose $::h1 260 standard_path [sqlite3_quota_dump] 261 } {{*/quota2a/* 4000 100 {PWD/quota2a/x1/a.txt 100 0 0}}} 262 do_test quota2-3.5 { 263 set ::h2 [sqlite3_quota_fopen quota2a/x2/b.txt a] 264 sqlite3_quota_fwrite $::h2 10 20 $bigtext 265 standard_path [sqlite3_quota_dump] 266 } {{*/quota2a/* 4000 300 {PWD/quota2a/x2/b.txt 200 1 0} {PWD/quota2a/x1/a.txt 100 0 0}}} 267 do_test quota2-3.6 { 268 set ::h3 [sqlite3_quota_fopen quota2a/x1/c.txt a] 269 sqlite3_quota_fwrite $::h3 10 50 $bigtext 270 standard_path [sqlite3_quota_dump] 271 } {{*/quota2a/* 4000 800 {PWD/quota2a/x1/c.txt 500 1 0} {PWD/quota2a/x2/b.txt 200 1 0} {PWD/quota2a/x1/a.txt 100 0 0}}} 272 do_test quota2-3.7 { 273 file exists quota2a/x1/a.txt 274 } {1} 275 do_test quota2-3.8 { 276 file exists quota2a/x2/b.txt 277 } {1} 278 do_test quota2-3.9 { 279 file exists quota2a/x1/c.txt 280 } {1} 281 do_test quota2-3.10 { 282 sqlite3_quota_remove quota2a/x1 283 standard_path [sqlite3_quota_dump] 284 } {{*/quota2a/* 4000 700 {PWD/quota2a/x1/c.txt 500 1 1} {PWD/quota2a/x2/b.txt 200 1 0}}} 285 do_test quota2-3.11 { 286 sqlite3_quota_fclose $::h2 287 sqlite3_quota_fclose $::h3 288 standard_path [sqlite3_quota_dump] 289 } {{*/quota2a/* 4000 200 {PWD/quota2a/x2/b.txt 200 0 0}}} 290 do_test quota2-3.12 { 291 file exists quota2a/x1/a.txt 292 } {0} 293 do_test quota2-3.13 { 294 file exists quota2a/x2/b.txt 295 } {1} 296 do_test quota2-3.14 { 297 file exists quota2a/x1/c.txt 298 } {0} 299 300 catch { sqlite3_quota_shutdown } 301 catch { unset quota_request_ok } 302 finish_test