AryaWu/sqlite

1# 2011 December 12#3# The author disclaims copyright to this source code.  In place of4# 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# Tests for the glob-style string compare operator embedded in the13# quota shim.14#15 16set testdir [file dirname $argv0]17source $testdir/tester.tcl18 19catch { unset testnum }20catch { unset pattern }21catch { unset text }22catch { unset ans }23 24foreach {testnum pattern text ans} {25   1  abcdefg   abcdefg   126   2  abcdefG   abcdefg   027   3  abcdef    abcdefg   028   4  abcdefgh  abcdefg   029   5  abcdef?   abcdefg   130   6  abcdef?   abcdef    031   7  abcdef?   abcdefgh  032   8  abcdefg   abcdef?   033   9  abcdef?   abcdef?   134  10  abc/def   abc/def   135  11  abc//def  abc/def   036  12  */abc/*   x/abc/y   137  13  */abc/*   /abc/     138  16  */abc/*   x///a/ab/abc   039  17  */abc/*   x//a/ab/abc/   140  16  */abc/*   x///a/ab/abc   041  17  */abc/*   x//a/ab/abc/   142  18  **/abc/** x//a/ab/abc/   143  19  *?/abc/*? x//a/ab/abc/y  144  20  ?*/abc/?* x//a/ab/abc/y  145  21  {abc[cde]efg}   abcbefg  046  22  {abc[cde]efg}   abccefg  147  23  {abc[cde]efg}   abcdefg  148  24  {abc[cde]efg}   abceefg  149  25  {abc[cde]efg}   abcfefg  050  26  {abc[^cde]efg}  abcbefg  151  27  {abc[^cde]efg}  abccefg  052  28  {abc[^cde]efg}  abcdefg  053  29  {abc[^cde]efg}  abceefg  054  30  {abc[^cde]efg}  abcfefg  155  31  {abc[c-e]efg}   abcbefg  056  32  {abc[c-e]efg}   abccefg  157  33  {abc[c-e]efg}   abcdefg  158  34  {abc[c-e]efg}   abceefg  159  35  {abc[c-e]efg}   abcfefg  060  36  {abc[^c-e]efg}  abcbefg  161  37  {abc[^c-e]efg}  abccefg  062  38  {abc[^c-e]efg}  abcdefg  063  39  {abc[^c-e]efg}  abceefg  064  40  {abc[^c-e]efg}  abcfefg  165  41  {abc[c-e]efg}   abc-efg  066  42  {abc[-ce]efg}   abc-efg  167  43  {abc[ce-]efg}   abc-efg  168  44  {abc[][*?]efg}  {abc]efg} 169  45  {abc[][*?]efg}  {abc*efg} 170  46  {abc[][*?]efg}  {abc?efg} 171  47  {abc[][*?]efg}  {abc[efg} 172  48  {abc[^][*?]efg} {abc]efg} 073  49  {abc[^][*?]efg} {abc*efg} 074  50  {abc[^][*?]efg} {abc?efg} 075  51  {abc[^][*?]efg} {abc[efg} 076  52  {abc[^][*?]efg} {abcdefg} 177  53  {*[xyz]efg}     {abcxefg} 178  54  {*[xyz]efg}     {abcwefg} 079} {80  do_test quota-glob-$testnum.1 {81    sqlite3_quota_glob $::pattern $::text82  } $::ans83  do_test quota-glob-$testnum.2 {84    sqlite3_quota_glob $::pattern [string map {/ \\} $::text]85  } $::ans86}87finish_test88