Return to quota-glob.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

sqlite3

    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: # Tests for the glob-style string compare operator embedded in the
   13: # quota shim.
   14: #
   15: 
   16: set testdir [file dirname $argv0]
   17: source $testdir/tester.tcl
   18: 
   19: catch { unset testnum }
   20: catch { unset pattern }
   21: catch { unset text }
   22: catch { unset ans }
   23: 
   24: foreach {testnum pattern text ans} {
   25:    1  abcdefg   abcdefg   1
   26:    2  abcdefG   abcdefg   0
   27:    3  abcdef    abcdefg   0
   28:    4  abcdefgh  abcdefg   0
   29:    5  abcdef?   abcdefg   1
   30:    6  abcdef?   abcdef    0
   31:    7  abcdef?   abcdefgh  0
   32:    8  abcdefg   abcdef?   0
   33:    9  abcdef?   abcdef?   1
   34:   10  abc/def   abc/def   1
   35:   11  abc//def  abc/def   0
   36:   12  */abc/*   x/abc/y   1
   37:   13  */abc/*   /abc/     1
   38:   16  */abc/*   x///a/ab/abc   0
   39:   17  */abc/*   x//a/ab/abc/   1
   40:   16  */abc/*   x///a/ab/abc   0
   41:   17  */abc/*   x//a/ab/abc/   1
   42:   18  **/abc/** x//a/ab/abc/   1
   43:   19  *?/abc/*? x//a/ab/abc/y  1
   44:   20  ?*/abc/?* x//a/ab/abc/y  1
   45:   21  {abc[cde]efg}   abcbefg  0
   46:   22  {abc[cde]efg}   abccefg  1
   47:   23  {abc[cde]efg}   abcdefg  1
   48:   24  {abc[cde]efg}   abceefg  1
   49:   25  {abc[cde]efg}   abcfefg  0
   50:   26  {abc[^cde]efg}  abcbefg  1
   51:   27  {abc[^cde]efg}  abccefg  0
   52:   28  {abc[^cde]efg}  abcdefg  0
   53:   29  {abc[^cde]efg}  abceefg  0
   54:   30  {abc[^cde]efg}  abcfefg  1
   55:   31  {abc[c-e]efg}   abcbefg  0
   56:   32  {abc[c-e]efg}   abccefg  1
   57:   33  {abc[c-e]efg}   abcdefg  1
   58:   34  {abc[c-e]efg}   abceefg  1
   59:   35  {abc[c-e]efg}   abcfefg  0
   60:   36  {abc[^c-e]efg}  abcbefg  1
   61:   37  {abc[^c-e]efg}  abccefg  0
   62:   38  {abc[^c-e]efg}  abcdefg  0
   63:   39  {abc[^c-e]efg}  abceefg  0
   64:   40  {abc[^c-e]efg}  abcfefg  1
   65:   41  {abc[c-e]efg}   abc-efg  0
   66:   42  {abc[-ce]efg}   abc-efg  1
   67:   43  {abc[ce-]efg}   abc-efg  1
   68:   44  {abc[][*?]efg}  {abc]efg} 1
   69:   45  {abc[][*?]efg}  {abc*efg} 1
   70:   46  {abc[][*?]efg}  {abc?efg} 1
   71:   47  {abc[][*?]efg}  {abc[efg} 1
   72:   48  {abc[^][*?]efg} {abc]efg} 0
   73:   49  {abc[^][*?]efg} {abc*efg} 0
   74:   50  {abc[^][*?]efg} {abc?efg} 0
   75:   51  {abc[^][*?]efg} {abc[efg} 0
   76:   52  {abc[^][*?]efg} {abcdefg} 1
   77:   53  {*[xyz]efg}     {abcxefg} 1
   78:   54  {*[xyz]efg}     {abcwefg} 0
   79: } {
   80:   do_test quota-glob-$testnum.1 {
   81:     sqlite3_quota_glob $::pattern $::text
   82:   } $::ans
   83:   do_test quota-glob-$testnum.2 {
   84:     sqlite3_quota_glob $::pattern [string map {/ \\} $::text]
   85:   } $::ans
   86: }
   87: finish_test