Return to quota-glob.test CVS log

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

Annotation of embedaddon/sqlite3/test/quota-glob.test, revision 1.1

1.1     ! misho       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