# 2011 December 1 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # set testdir [file dirname $argv0] source $testdir/tester.tcl source $testdir/malloc_common.tcl db close sqlite3_quota_initialize "" 1 file delete -force quota2a file delete -force quota2b file mkdir quota2a file mkdir quota2b # The quota_check procedure is a callback from the quota handler. # It has three arguments which are (1) the full pathname of the file # that has gone over quota, (2) the quota limit, (3) the requested # new quota size to cover the last write. These three values are # appended to the global variable $::quota. The filename is processed # to convert every \ character into / and to change the name of the # working directory to PWD. # # The quota is increased to the request if the ::quota_request_ok # global variable is true. # set ::quota {} set ::quota_request_ok 0 proc quota_check {filename limitvar size} { upvar $limitvar limit set filename [string map [list [pwd] PWD \\ /] $filename] lappend ::quota $filename [set limit] $size if {$::quota_request_ok} {set limit $size} } sqlite3_quota_set */quota2a/* 4000 quota_check sqlite3_quota_set */quota2b/* 5000 quota_check unset -nocomplain bigtext for {set i 1} {$i<=1000} {incr i} { if {$i%10==0} { append bigtext [format "%06d\n" $i] } else { append bigtext [format "%06d " $i] } } catch { unset h1 } catch { unset x } do_test quota2-1.1 { set ::h1 [sqlite3_quota_fopen quota2a/xyz.txt w+] sqlite3_quota_fwrite $::h1 1 7000 $bigtext } {4000} do_test quota2-1.2 { set ::quota } {PWD/quota2a/xyz.txt 4000 7000} do_test quota2-1.3 { sqlite3_quota_rewind $::h1 set ::x [sqlite3_quota_fread $::h1 1001 7] string length $::x } {3003} do_test quota2-1.4 { string match $::x [string range $::bigtext 0 3002] } {1} do_test quota2-1.5 { sqlite3_quota_fseek $::h1 0 SEEK_END sqlite3_quota_ftell $::h1 } {4000} do_test quota2-1.6 { sqlite3_quota_fseek $::h1 -100 SEEK_END sqlite3_quota_ftell $::h1 } {3900} do_test quota2-1.7 { sqlite3_quota_fseek $::h1 -100 SEEK_CUR sqlite3_quota_ftell $::h1 } {3800} do_test quota2-1.8 { sqlite3_quota_fseek $::h1 50 SEEK_CUR sqlite3_quota_ftell $::h1 } {3850} do_test quota2-1.9 { sqlite3_quota_fseek $::h1 50 SEEK_SET sqlite3_quota_ftell $::h1 } {50} do_test quota2-1.10 { sqlite3_quota_rewind $::h1 sqlite3_quota_ftell $::h1 } {0} do_test quota2-1.11 { string map [list [pwd] PWD \\ /] [sqlite3_quota_dump] } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 4000 {PWD/quota2a/xyz.txt 4000 1 0}}} do_test quota1-1.12 { sqlite3_quota_fclose $::h1 string map [list [pwd] PWD \\ /] [sqlite3_quota_dump] } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 4000 {PWD/quota2a/xyz.txt 4000 0 0}}} do_test quota1-1.13 { sqlite3_quota_remove quota2a/xyz.txt string map [list [pwd] PWD \\ /] [sqlite3_quota_dump] } {{*/quota2b/* 5000 0} {*/quota2a/* 4000 0}} catch { sqlite3_quota_shutdown } catch { unset quota_request_ok } finish_test