#!/bin/sh

global test_description := ''wildmatch tests''

source ./test-lib.sh

proc match {
    if test $1 = 1 {
	test_expect_success "wildmatch:     match '$3' '$4'" "
	    test-wildmatch wildmatch '$3' '$4'
	"
    } else {
	test_expect_success "wildmatch:  no match '$3' '$4'" "
	    ! test-wildmatch wildmatch '$3' '$4'
	"
    }
}

proc imatch {
    if test $1 = 1 {
	test_expect_success "iwildmatch:    match '$2' '$3'" "
	    test-wildmatch iwildmatch '$2' '$3'
	"
    } else {
	test_expect_success "iwildmatch: no match '$2' '$3'" "
	    ! test-wildmatch iwildmatch '$2' '$3'
	"
    }
}

proc pathmatch {
    if test $1 = 1 {
	test_expect_success "pathmatch:     match '$2' '$3'" "
	    test-wildmatch pathmatch '$2' '$3'
	"
    } else {
	test_expect_success "pathmatch:  no match '$2' '$3'" "
	    ! test-wildmatch pathmatch '$2' '$3'
	"
    }
}

# Basic wildmat features
match 1 1 foo foo
match 0 0 foo bar
match 1 1 '' ""
match 1 1 foo '???'
match 0 0 foo '??'
match 1 1 foo '*'
match 1 1 foo 'f*'
match 0 0 foo '*f'
match 1 1 foo '*foo*'
match 1 1 foobar '*ob*a*r*'
match 1 1 aaaaaaabababab '*ab'
match 1 1 'foo*' 'foo\*'
match 0 0 foobar 'foo\*bar'
match 1 1 'f\oo' 'f\\oo'
match 1 1 ball '*[al]?'
match 0 0 ten '[ten]'
match 0 1 ten '**[!te]'
match 0 0 ten '**[!ten]'
match 1 1 ten 't[a-g]n'
match 0 0 ten 't[!a-g]n'
match 1 1 ton 't[!a-g]n'
match 1 1 ton 't[^a-g]n'
match 1 x 'a]b' 'a[]]b'
match 1 x a-b 'a[]-]b'
match 1 x 'a]b' 'a[]-]b'
match 0 x aab 'a[]-]b'
match 1 x aab 'a[]a-]b'
match 1 1 ']' ']'

# Extended slash-matching features
match 0 0 'foo/baz/bar' 'foo*bar'
match 0 0 'foo/baz/bar' 'foo**bar'
match 0 1 'foobazbar' 'foo**bar'
match 1 1 'foo/baz/bar' 'foo/**/bar'
match 1 0 'foo/baz/bar' 'foo/**/**/bar'
match 1 0 'foo/b/a/z/bar' 'foo/**/bar'
match 1 0 'foo/b/a/z/bar' 'foo/**/**/bar'
match 1 0 'foo/bar' 'foo/**/bar'
match 1 0 'foo/bar' 'foo/**/**/bar'
match 0 0 'foo/bar' 'foo?bar'
match 0 0 'foo/bar' 'foo[/]bar'
match 0 0 'foo/bar' 'f[^eiu][^eiu][^eiu][^eiu][^eiu]r'
match 1 1 'foo-bar' 'f[^eiu][^eiu][^eiu][^eiu][^eiu]r'
match 1 0 'foo' '**/foo'
match 1 x 'XXX/foo' '**/foo'
match 1 0 'bar/baz/foo' '**/foo'
match 0 0 'bar/baz/foo' '*/foo'
match 0 0 'foo/bar/baz' '**/bar*'
match 1 0 'deep/foo/bar/baz' '**/bar/*'
match 0 0 'deep/foo/bar/baz/' '**/bar/*'
match 1 0 'deep/foo/bar/baz/' '**/bar/**'
match 0 0 'deep/foo/bar' '**/bar/*'
match 1 0 'deep/foo/bar/' '**/bar/**'
match 0 0 'foo/bar/baz' '**/bar**'
match 1 0 'foo/bar/baz/x' '*/bar/**'
match 0 0 'deep/foo/bar/baz/x' '*/bar/**'
match 1 0 'deep/foo/bar/baz/x' '**/bar/*/*'

# Various additional tests
match 0 0 'acrt' 'a[c-c]st'
match 1 1 'acrt' 'a[c-c]rt'
match 0 0 ']' '[!]-]'
match 1 x 'a' '[!]-]'
match 0 0 '' '\'
match 0 x '\' '\'
match 0 x 'XXX/\' '*/\'
match 1 x 'XXX/\' '*/\\'
match 1 1 'foo' 'foo'
match 1 1 '@foo' '@foo'
match 0 0 'foo' '@foo'
match 1 1 '[ab]' '\[ab]'
match 1 1 '[ab]' '[[]ab]'
match 1 x '[ab]' '[[:]ab]'
match 0 x '[ab]' '[[::]ab]'
match 1 x '[ab]' '[[:digit]ab]'
match 1 x '[ab]' '[\[:]ab]'
match 1 1 '?a?b' '\??\?b'
match 1 1 'abc' '\a\b\c'
match 0 0 'foo' ''
match 1 0 'foo/bar/baz/to' '**/t[o]'

# Character class tests
match 1 x 'a1B' '[[:alpha:]][[:digit:]][[:upper:]]'
match 0 x 'a' '[[:digit:][:upper:][:space:]]'
match 1 x 'A' '[[:digit:][:upper:][:space:]]'
match 1 x '1' '[[:digit:][:upper:][:space:]]'
match 0 x '1' '[[:digit:][:upper:][:spaci:]]'
match 1 x ' ' '[[:digit:][:upper:][:space:]]'
match 0 x '.' '[[:digit:][:upper:][:space:]]'
match 1 x '.' '[[:digit:][:punct:][:space:]]'
match 1 x '5' '[[:xdigit:]]'
match 1 x 'f' '[[:xdigit:]]'
match 1 x 'D' '[[:xdigit:]]'
match 1 x '_' '[[:alnum:][:alpha:][:blank:][:cntrl:][:digit:][:graph:][:lower:][:print:][:punct:][:space:][:upper:][:xdigit:]]'
match 1 x '_' '[[:alnum:][:alpha:][:blank:][:cntrl:][:digit:][:graph:][:lower:][:print:][:punct:][:space:][:upper:][:xdigit:]]'
match 1 x '.' '[^[:alnum:][:alpha:][:blank:][:cntrl:][:digit:][:lower:][:space:][:upper:][:xdigit:]]'
match 1 x '5' '[a-c[:digit:]x-z]'
match 1 x 'b' '[a-c[:digit:]x-z]'
match 1 x 'y' '[a-c[:digit:]x-z]'
match 0 x 'q' '[a-c[:digit:]x-z]'

# Additional tests, including some malformed wildmats
match 1 x ']' '[\\-^]'
match 0 0 '[' '[\\-^]'
match 1 x '-' '[\-_]'
match 1 x ']' '[\]]'
match 0 0 '\]' '[\]]'
match 0 0 '\' '[\]]'
match 0 0 'ab' 'a[]b'
match 0 x 'a[]b' 'a[]b'
match 0 x 'ab[' 'ab['
match 0 0 'ab' '[!'
match 0 0 'ab' '[-'
match 1 1 '-' '[-]'
match 0 0 '-' '[a-'
match 0 0 '-' '[!a-'
match 1 x '-' '[--A]'
match 1 x '5' '[--A]'
match 1 1 ' ' '[ --]'
match 1 1 '$' '[ --]'
match 1 1 '-' '[ --]'
match 0 0 '0' '[ --]'
match 1 x '-' '[---]'
match 1 x '-' '[------]'
match 0 0 'j' '[a-e-n]'
match 1 x '-' '[a-e-n]'
match 1 x 'a' '[!------]'
match 0 0 '[' '[]-a]'
match 1 x '^' '[]-a]'
match 0 0 '^' '[!]-a]'
match 1 x '[' '[!]-a]'
match 1 1 '^' '[a^bc]'
match 1 x '-b]' '[a-]b]'
match 0 0 '\' '[\]'
match 1 1 '\' '[\\]'
match 0 0 '\' '[!\\]'
match 1 1 'G' '[A-\\]'
match 0 0 'aaabbb' 'b*a'
match 0 0 'aabcaa' '*ba*'
match 1 1 ',' '[,]'
match 1 1 ',' '[\\,]'
match 1 1 '\' '[\\,]'
match 1 1 '-' '[,-.]'
match 0 0 '+' '[,-.]'
match 0 0 '-.]' '[,-.]'
match 1 1 '2' '[\1-\3]'
match 1 1 '3' '[\1-\3]'
match 0 0 '4' '[\1-\3]'
match 1 1 '\' '[[-\]]'
match 1 1 '[' '[[-\]]'
match 1 1 ']' '[[-\]]'
match 0 0 '-' '[[-\]]'

# Test recursion and the abort code (use "wildtest -i" to see iteration counts)
match 1 1 '-adobe-courier-bold-o-normal--12-120-75-75-m-70-iso8859-1' '-*-*-*-*-*-*-12-*-*-*-m-*-*-*'
match 0 0 '-adobe-courier-bold-o-normal--12-120-75-75-X-70-iso8859-1' '-*-*-*-*-*-*-12-*-*-*-m-*-*-*'
match 0 0 '-adobe-courier-bold-o-normal--12-120-75-75-/-70-iso8859-1' '-*-*-*-*-*-*-12-*-*-*-m-*-*-*'
match 1 1 'XXX/adobe/courier/bold/o/normal//12/120/75/75/m/70/iso8859/1' 'XXX/*/*/*/*/*/*/12/*/*/*/m/*/*/*'
match 0 0 'XXX/adobe/courier/bold/o/normal//12/120/75/75/X/70/iso8859/1' 'XXX/*/*/*/*/*/*/12/*/*/*/m/*/*/*'
match 1 0 'abcd/abcdefg/abcdefghijk/abcdefghijklmnop.txt' '**/*a*b*g*n*t'
match 0 0 'abcd/abcdefg/abcdefghijk/abcdefghijklmnop.txtz' '**/*a*b*g*n*t'
match 0 x foo '*/*/*'
match 0 x foo/bar '*/*/*'
match 1 x foo/bba/arr '*/*/*'
match 0 x foo/bb/aa/rr '*/*/*'
match 1 x foo/bb/aa/rr '**/**/**'
match 1 x abcXdefXghi '*X*i'
match 0 x ab/cXd/efXg/hi '*X*i'
match 1 x ab/cXd/efXg/hi '*/*X*/*/*i'
match 1 x ab/cXd/efXg/hi '**/*X*/**/*i'

pathmatch 1 foo foo
pathmatch 0 foo fo
pathmatch 1 foo/bar foo/bar
pathmatch 1 foo/bar 'foo/*'
pathmatch 1 foo/bba/arr 'foo/*'
pathmatch 1 foo/bba/arr 'foo/**'
pathmatch 1 foo/bba/arr 'foo*'
pathmatch 1 foo/bba/arr 'foo**'
pathmatch 1 foo/bba/arr 'foo/*arr'
pathmatch 1 foo/bba/arr 'foo/**arr'
pathmatch 0 foo/bba/arr 'foo/*z'
pathmatch 0 foo/bba/arr 'foo/**z'
pathmatch 1 foo/bar 'foo?bar'
pathmatch 1 foo/bar 'foo[/]bar'
pathmatch 0 foo '*/*/*'
pathmatch 0 foo/bar '*/*/*'
pathmatch 1 foo/bba/arr '*/*/*'
pathmatch 1 foo/bb/aa/rr '*/*/*'
pathmatch 1 abcXdefXghi '*X*i'
pathmatch 1 ab/cXd/efXg/hi '*/*X*/*/*i'
pathmatch 1 ab/cXd/efXg/hi '*Xg*i'

# Case-sensitivy features
match 0 x 'a' '[A-Z]'
match 1 x 'A' '[A-Z]'
match 0 x 'A' '[a-z]'
match 1 x 'a' '[a-z]'
match 0 x 'a' '[[:upper:]]'
match 1 x 'A' '[[:upper:]]'
match 0 x 'A' '[[:lower:]]'
match 1 x 'a' '[[:lower:]]'
match 0 x 'A' '[B-Za]'
match 1 x 'a' '[B-Za]'
match 0 x 'A' '[B-a]'
match 1 x 'a' '[B-a]'
match 0 x 'z' '[Z-y]'
match 1 x 'Z' '[Z-y]'

imatch 1 'a' '[A-Z]'
imatch 1 'A' '[A-Z]'
imatch 1 'A' '[a-z]'
imatch 1 'a' '[a-z]'
imatch 1 'a' '[[:upper:]]'
imatch 1 'A' '[[:upper:]]'
imatch 1 'A' '[[:lower:]]'
imatch 1 'a' '[[:lower:]]'
imatch 1 'A' '[B-Za]'
imatch 1 'a' '[B-Za]'
imatch 1 'A' '[B-a]'
imatch 1 'a' '[B-a]'
imatch 1 'z' '[Z-y]'
imatch 1 'Z' '[Z-y]'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"wildmatch tests">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: match
      body: 
        (BraceGroup
          children: [
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other "[")} {($ VSub_Number "$1")} {(Lit_Other "=")} {(1)} 
                          {(Lit_Other "]")}
                        )
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (C {(test_expect_success)} 
                      {
                        (DQ ("wildmatch:     match '") ($ VSub_Number "$3") ("' '") ($ VSub_Number "$4") 
                          ("'")
                        )
                      } 
                      {
                        (DQ ("\n") ("\t    test-wildmatch wildmatch '") ($ VSub_Number "$3") ("' '") 
                          ($ VSub_Number "$4") ("'\n") ("\t")
                        )
                      }
                    )
                  ]
                  spids: [-1 35]
                )
              ]
              else_action: [
                (C {(test_expect_success)} 
                  {
                    (DQ ("wildmatch:  no match '") ($ VSub_Number "$3") ("' '") ($ VSub_Number "$4") 
                      ("'")
                    )
                  } 
                  {
                    (DQ ("\n") ("\t    ! test-wildmatch wildmatch '") ($ VSub_Number "$3") ("' '") 
                      ($ VSub_Number "$4") ("'\n") ("\t")
                    )
                  }
                )
              ]
              spids: [59 83]
            )
          ]
          spids: [19]
        )
      spids: [15 18]
    )
    (FuncDef
      name: imatch
      body: 
        (BraceGroup
          children: [
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other "[")} {($ VSub_Number "$1")} {(Lit_Other "=")} {(1)} 
                          {(Lit_Other "]")}
                        )
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (C {(test_expect_success)} 
                      {
                        (DQ ("iwildmatch:    match '") ($ VSub_Number "$2") ("' '") ($ VSub_Number "$3") 
                          ("'")
                        )
                      } 
                      {
                        (DQ ("\n") ("\t    test-wildmatch iwildmatch '") ($ VSub_Number "$2") ("' '") 
                          ($ VSub_Number "$3") ("'\n") ("\t")
                        )
                      }
                    )
                  ]
                  spids: [-1 108]
                )
              ]
              else_action: [
                (C {(test_expect_success)} 
                  {
                    (DQ ("iwildmatch: no match '") ($ VSub_Number "$2") ("' '") ($ VSub_Number "$3") 
                      ("'")
                    )
                  } 
                  {
                    (DQ ("\n") ("\t    ! test-wildmatch iwildmatch '") ($ VSub_Number "$2") ("' '") 
                      ($ VSub_Number "$3") ("'\n") ("\t")
                    )
                  }
                )
              ]
              spids: [132 156]
            )
          ]
          spids: [92]
        )
      spids: [88 91]
    )
    (FuncDef
      name: pathmatch
      body: 
        (BraceGroup
          children: [
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other "[")} {($ VSub_Number "$1")} {(Lit_Other "=")} {(1)} 
                          {(Lit_Other "]")}
                        )
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (C {(test_expect_success)} 
                      {
                        (DQ ("pathmatch:     match '") ($ VSub_Number "$2") ("' '") ($ VSub_Number "$3") 
                          ("'")
                        )
                      } 
                      {
                        (DQ ("\n") ("\t    test-wildmatch pathmatch '") ($ VSub_Number "$2") ("' '") 
                          ($ VSub_Number "$3") ("'\n") ("\t")
                        )
                      }
                    )
                  ]
                  spids: [-1 181]
                )
              ]
              else_action: [
                (C {(test_expect_success)} 
                  {
                    (DQ ("pathmatch:  no match '") ($ VSub_Number "$2") ("' '") ($ VSub_Number "$3") 
                      ("'")
                    )
                  } 
                  {
                    (DQ ("\n") ("\t    ! test-wildmatch pathmatch '") ($ VSub_Number "$2") ("' '") 
                      ($ VSub_Number "$3") ("'\n") ("\t")
                    )
                  }
                )
              ]
              spids: [205 229]
            )
          ]
          spids: [165]
        )
      spids: [161 164]
    )
    (C {(match)} {(1)} {(1)} {(foo)} {(foo)})
    (C {(match)} {(0)} {(0)} {(foo)} {(bar)})
    (C {(match)} {(1)} {(1)} {(SQ )} {(DQ )})
    (C {(match)} {(1)} {(1)} {(foo)} {(SQ <"???">)})
    (C {(match)} {(0)} {(0)} {(foo)} {(SQ <"??">)})
    (C {(match)} {(1)} {(1)} {(foo)} {(SQ <"*">)})
    (C {(match)} {(1)} {(1)} {(foo)} {(SQ <"f*">)})
    (C {(match)} {(0)} {(0)} {(foo)} {(SQ <"*f">)})
    (C {(match)} {(1)} {(1)} {(foo)} {(SQ <"*foo*">)})
    (C {(match)} {(1)} {(1)} {(foobar)} {(SQ <"*ob*a*r*">)})
    (C {(match)} {(1)} {(1)} {(aaaaaaabababab)} {(SQ <"*ab">)})
    (C {(match)} {(1)} {(1)} {(SQ <"foo*">)} {(SQ <"foo\\*">)})
    (C {(match)} {(0)} {(0)} {(foobar)} {(SQ <"foo\\*bar">)})
    (C {(match)} {(1)} {(1)} {(SQ <"f\\oo">)} {(SQ <"f\\\\oo">)})
    (C {(match)} {(1)} {(1)} {(ball)} {(SQ <"*[al]?">)})
    (C {(match)} {(0)} {(0)} {(ten)} {(SQ <"[ten]">)})
    (C {(match)} {(0)} {(1)} {(ten)} {(SQ <"**[!te]">)})
    (C {(match)} {(0)} {(0)} {(ten)} {(SQ <"**[!ten]">)})
    (C {(match)} {(1)} {(1)} {(ten)} {(SQ <"t[a-g]n">)})
    (C {(match)} {(0)} {(0)} {(ten)} {(SQ <"t[!a-g]n">)})
    (C {(match)} {(1)} {(1)} {(ton)} {(SQ <"t[!a-g]n">)})
    (C {(match)} {(1)} {(1)} {(ton)} {(SQ <"t[^a-g]n">)})
    (C {(match)} {(1)} {(x)} {(SQ <"a]b">)} {(SQ <"a[]]b">)})
    (C {(match)} {(1)} {(x)} {(a-b)} {(SQ <"a[]-]b">)})
    (C {(match)} {(1)} {(x)} {(SQ <"a]b">)} {(SQ <"a[]-]b">)})
    (C {(match)} {(0)} {(x)} {(aab)} {(SQ <"a[]-]b">)})
    (C {(match)} {(1)} {(x)} {(aab)} {(SQ <"a[]a-]b">)})
    (C {(match)} {(1)} {(1)} {(SQ <"]">)} {(SQ <"]">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo/baz/bar>)} {(SQ <"foo*bar">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo/baz/bar>)} {(SQ <"foo**bar">)})
    (C {(match)} {(0)} {(1)} {(SQ <foobazbar>)} {(SQ <"foo**bar">)})
    (C {(match)} {(1)} {(1)} {(SQ <foo/baz/bar>)} {(SQ <"foo/**/bar">)})
    (C {(match)} {(1)} {(0)} {(SQ <foo/baz/bar>)} {(SQ <"foo/**/**/bar">)})
    (C {(match)} {(1)} {(0)} {(SQ <foo/b/a/z/bar>)} {(SQ <"foo/**/bar">)})
    (C {(match)} {(1)} {(0)} {(SQ <foo/b/a/z/bar>)} {(SQ <"foo/**/**/bar">)})
    (C {(match)} {(1)} {(0)} {(SQ <foo/bar>)} {(SQ <"foo/**/bar">)})
    (C {(match)} {(1)} {(0)} {(SQ <foo/bar>)} {(SQ <"foo/**/**/bar">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo/bar>)} {(SQ <"foo?bar">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo/bar>)} {(SQ <"foo[/]bar">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo/bar>)} {(SQ <"f[^eiu][^eiu][^eiu][^eiu][^eiu]r">)})
    (C {(match)} {(1)} {(1)} {(SQ <foo-bar>)} {(SQ <"f[^eiu][^eiu][^eiu][^eiu][^eiu]r">)})
    (C {(match)} {(1)} {(0)} {(SQ <foo>)} {(SQ <"**/foo">)})
    (C {(match)} {(1)} {(x)} {(SQ <XXX/foo>)} {(SQ <"**/foo">)})
    (C {(match)} {(1)} {(0)} {(SQ <bar/baz/foo>)} {(SQ <"**/foo">)})
    (C {(match)} {(0)} {(0)} {(SQ <bar/baz/foo>)} {(SQ <"*/foo">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo/bar/baz>)} {(SQ <"**/bar*">)})
    (C {(match)} {(1)} {(0)} {(SQ <deep/foo/bar/baz>)} {(SQ <"**/bar/*">)})
    (C {(match)} {(0)} {(0)} {(SQ <deep/foo/bar/baz/>)} {(SQ <"**/bar/*">)})
    (C {(match)} {(1)} {(0)} {(SQ <deep/foo/bar/baz/>)} {(SQ <"**/bar/**">)})
    (C {(match)} {(0)} {(0)} {(SQ <deep/foo/bar>)} {(SQ <"**/bar/*">)})
    (C {(match)} {(1)} {(0)} {(SQ <deep/foo/bar/>)} {(SQ <"**/bar/**">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo/bar/baz>)} {(SQ <"**/bar**">)})
    (C {(match)} {(1)} {(0)} {(SQ <foo/bar/baz/x>)} {(SQ <"*/bar/**">)})
    (C {(match)} {(0)} {(0)} {(SQ <deep/foo/bar/baz/x>)} {(SQ <"*/bar/**">)})
    (C {(match)} {(1)} {(0)} {(SQ <deep/foo/bar/baz/x>)} {(SQ <"**/bar/*/*">)})
    (C {(match)} {(0)} {(0)} {(SQ <acrt>)} {(SQ <"a[c-c]st">)})
    (C {(match)} {(1)} {(1)} {(SQ <acrt>)} {(SQ <"a[c-c]rt">)})
    (C {(match)} {(0)} {(0)} {(SQ <"]">)} {(SQ <"[!]-]">)})
    (C {(match)} {(1)} {(x)} {(SQ <a>)} {(SQ <"[!]-]">)})
    (C {(match)} {(0)} {(0)} {(SQ )} {(SQ <"\\">)})
    (C {(match)} {(0)} {(x)} {(SQ <"\\">)} {(SQ <"\\">)})
    (C {(match)} {(0)} {(x)} {(SQ <"XXX/\\">)} {(SQ <"*/\\">)})
    (C {(match)} {(1)} {(x)} {(SQ <"XXX/\\">)} {(SQ <"*/\\\\">)})
    (C {(match)} {(1)} {(1)} {(SQ <foo>)} {(SQ <foo>)})
    (C {(match)} {(1)} {(1)} {(SQ <"@foo">)} {(SQ <"@foo">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo>)} {(SQ <"@foo">)})
    (C {(match)} {(1)} {(1)} {(SQ <"[ab]">)} {(SQ <"\\[ab]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"[ab]">)} {(SQ <"[[]ab]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"[ab]">)} {(SQ <"[[:]ab]">)})
    (C {(match)} {(0)} {(x)} {(SQ <"[ab]">)} {(SQ <"[[::]ab]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"[ab]">)} {(SQ <"[[:digit]ab]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"[ab]">)} {(SQ <"[\\[:]ab]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"?a?b">)} {(SQ <"\\??\\?b">)})
    (C {(match)} {(1)} {(1)} {(SQ <abc>)} {(SQ <"\\a\\b\\c">)})
    (C {(match)} {(0)} {(0)} {(SQ <foo>)} {(SQ )})
    (C {(match)} {(1)} {(0)} {(SQ <foo/bar/baz/to>)} {(SQ <"**/t[o]">)})
    (C {(match)} {(1)} {(x)} {(SQ <a1B>)} {(SQ <"[[:alpha:]][[:digit:]][[:upper:]]">)})
    (C {(match)} {(0)} {(x)} {(SQ <a>)} {(SQ <"[[:digit:][:upper:][:space:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <A>)} {(SQ <"[[:digit:][:upper:][:space:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <1>)} {(SQ <"[[:digit:][:upper:][:space:]]">)})
    (C {(match)} {(0)} {(x)} {(SQ <1>)} {(SQ <"[[:digit:][:upper:][:spaci:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <" ">)} {(SQ <"[[:digit:][:upper:][:space:]]">)})
    (C {(match)} {(0)} {(x)} {(SQ <.>)} {(SQ <"[[:digit:][:upper:][:space:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <.>)} {(SQ <"[[:digit:][:punct:][:space:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <5>)} {(SQ <"[[:xdigit:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <f>)} {(SQ <"[[:xdigit:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <D>)} {(SQ <"[[:xdigit:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <_>)} 
      {
        (SQ 
          <
"[[:alnum:][:alpha:][:blank:][:cntrl:][:digit:][:graph:][:lower:][:print:][:punct:][:space:][:upper:][:xdigit:]]"
          >
        )
      }
    )
    (C {(match)} {(1)} {(x)} {(SQ <_>)} 
      {
        (SQ 
          <
"[[:alnum:][:alpha:][:blank:][:cntrl:][:digit:][:graph:][:lower:][:print:][:punct:][:space:][:upper:][:xdigit:]]"
          >
        )
      }
    )
    (C {(match)} {(1)} {(x)} {(SQ <.>)} 
      {
        (SQ <"[^[:alnum:][:alpha:][:blank:][:cntrl:][:digit:][:lower:][:space:][:upper:][:xdigit:]]">)
      }
    )
    (C {(match)} {(1)} {(x)} {(SQ <5>)} {(SQ <"[a-c[:digit:]x-z]">)})
    (C {(match)} {(1)} {(x)} {(SQ <b>)} {(SQ <"[a-c[:digit:]x-z]">)})
    (C {(match)} {(1)} {(x)} {(SQ <y>)} {(SQ <"[a-c[:digit:]x-z]">)})
    (C {(match)} {(0)} {(x)} {(SQ <q>)} {(SQ <"[a-c[:digit:]x-z]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"]">)} {(SQ <"[\\\\-^]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"[">)} {(SQ <"[\\\\-^]">)})
    (C {(match)} {(1)} {(x)} {(SQ <->)} {(SQ <"[\\-_]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"]">)} {(SQ <"[\\]]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"\\]">)} {(SQ <"[\\]]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"\\">)} {(SQ <"[\\]]">)})
    (C {(match)} {(0)} {(0)} {(SQ <ab>)} {(SQ <"a[]b">)})
    (C {(match)} {(0)} {(x)} {(SQ <"a[]b">)} {(SQ <"a[]b">)})
    (C {(match)} {(0)} {(x)} {(SQ <"ab[">)} {(SQ <"ab[">)})
    (C {(match)} {(0)} {(0)} {(SQ <ab>)} {(SQ <"[!">)})
    (C {(match)} {(0)} {(0)} {(SQ <ab>)} {(SQ <"[-">)})
    (C {(match)} {(1)} {(1)} {(SQ <->)} {(SQ <"[-]">)})
    (C {(match)} {(0)} {(0)} {(SQ <->)} {(SQ <"[a-">)})
    (C {(match)} {(0)} {(0)} {(SQ <->)} {(SQ <"[!a-">)})
    (C {(match)} {(1)} {(x)} {(SQ <->)} {(SQ <"[--A]">)})
    (C {(match)} {(1)} {(x)} {(SQ <5>)} {(SQ <"[--A]">)})
    (C {(match)} {(1)} {(1)} {(SQ <" ">)} {(SQ <"[ --]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"$">)} {(SQ <"[ --]">)})
    (C {(match)} {(1)} {(1)} {(SQ <->)} {(SQ <"[ --]">)})
    (C {(match)} {(0)} {(0)} {(SQ <0>)} {(SQ <"[ --]">)})
    (C {(match)} {(1)} {(x)} {(SQ <->)} {(SQ <"[---]">)})
    (C {(match)} {(1)} {(x)} {(SQ <->)} {(SQ <"[------]">)})
    (C {(match)} {(0)} {(0)} {(SQ <j>)} {(SQ <"[a-e-n]">)})
    (C {(match)} {(1)} {(x)} {(SQ <->)} {(SQ <"[a-e-n]">)})
    (C {(match)} {(1)} {(x)} {(SQ <a>)} {(SQ <"[!------]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"[">)} {(SQ <"[]-a]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"^">)} {(SQ <"[]-a]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"^">)} {(SQ <"[!]-a]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"[">)} {(SQ <"[!]-a]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"^">)} {(SQ <"[a^bc]">)})
    (C {(match)} {(1)} {(x)} {(SQ <"-b]">)} {(SQ <"[a-]b]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"\\">)} {(SQ <"[\\]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"\\">)} {(SQ <"[\\\\]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"\\">)} {(SQ <"[!\\\\]">)})
    (C {(match)} {(1)} {(1)} {(SQ <G>)} {(SQ <"[A-\\\\]">)})
    (C {(match)} {(0)} {(0)} {(SQ <aaabbb>)} {(SQ <"b*a">)})
    (C {(match)} {(0)} {(0)} {(SQ <aabcaa>)} {(SQ <"*ba*">)})
    (C {(match)} {(1)} {(1)} {(SQ <",">)} {(SQ <"[,]">)})
    (C {(match)} {(1)} {(1)} {(SQ <",">)} {(SQ <"[\\\\,]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"\\">)} {(SQ <"[\\\\,]">)})
    (C {(match)} {(1)} {(1)} {(SQ <->)} {(SQ <"[,-.]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"+">)} {(SQ <"[,-.]">)})
    (C {(match)} {(0)} {(0)} {(SQ <"-.]">)} {(SQ <"[,-.]">)})
    (C {(match)} {(1)} {(1)} {(SQ <2>)} {(SQ <"[\\1-\\3]">)})
    (C {(match)} {(1)} {(1)} {(SQ <3>)} {(SQ <"[\\1-\\3]">)})
    (C {(match)} {(0)} {(0)} {(SQ <4>)} {(SQ <"[\\1-\\3]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"\\">)} {(SQ <"[[-\\]]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"[">)} {(SQ <"[[-\\]]">)})
    (C {(match)} {(1)} {(1)} {(SQ <"]">)} {(SQ <"[[-\\]]">)})
    (C {(match)} {(0)} {(0)} {(SQ <->)} {(SQ <"[[-\\]]">)})
    (C {(match)} {(1)} {(1)} {(SQ <-adobe-courier-bold-o-normal--12-120-75-75-m-70-iso8859-1>)} 
      {(SQ <"-*-*-*-*-*-*-12-*-*-*-m-*-*-*">)}
    )
    (C {(match)} {(0)} {(0)} {(SQ <-adobe-courier-bold-o-normal--12-120-75-75-X-70-iso8859-1>)} 
      {(SQ <"-*-*-*-*-*-*-12-*-*-*-m-*-*-*">)}
    )
    (C {(match)} {(0)} {(0)} {(SQ <-adobe-courier-bold-o-normal--12-120-75-75-/-70-iso8859-1>)} 
      {(SQ <"-*-*-*-*-*-*-12-*-*-*-m-*-*-*">)}
    )
    (C {(match)} {(1)} {(1)} {(SQ <XXX/adobe/courier/bold/o/normal//12/120/75/75/m/70/iso8859/1>)} 
      {(SQ <"XXX/*/*/*/*/*/*/12/*/*/*/m/*/*/*">)}
    )
    (C {(match)} {(0)} {(0)} {(SQ <XXX/adobe/courier/bold/o/normal//12/120/75/75/X/70/iso8859/1>)} 
      {(SQ <"XXX/*/*/*/*/*/*/12/*/*/*/m/*/*/*">)}
    )
    (C {(match)} {(1)} {(0)} {(SQ <abcd/abcdefg/abcdefghijk/abcdefghijklmnop.txt>)} 
      {(SQ <"**/*a*b*g*n*t">)}
    )
    (C {(match)} {(0)} {(0)} {(SQ <abcd/abcdefg/abcdefghijk/abcdefghijklmnop.txtz>)} 
      {(SQ <"**/*a*b*g*n*t">)}
    )
    (C {(match)} {(0)} {(x)} {(foo)} {(SQ <"*/*/*">)})
    (C {(match)} {(0)} {(x)} {(foo/bar)} {(SQ <"*/*/*">)})
    (C {(match)} {(1)} {(x)} {(foo/bba/arr)} {(SQ <"*/*/*">)})
    (C {(match)} {(0)} {(x)} {(foo/bb/aa/rr)} {(SQ <"*/*/*">)})
    (C {(match)} {(1)} {(x)} {(foo/bb/aa/rr)} {(SQ <"**/**/**">)})
    (C {(match)} {(1)} {(x)} {(abcXdefXghi)} {(SQ <"*X*i">)})
    (C {(match)} {(0)} {(x)} {(ab/cXd/efXg/hi)} {(SQ <"*X*i">)})
    (C {(match)} {(1)} {(x)} {(ab/cXd/efXg/hi)} {(SQ <"*/*X*/*/*i">)})
    (C {(match)} {(1)} {(x)} {(ab/cXd/efXg/hi)} {(SQ <"**/*X*/**/*i">)})
    (C {(pathmatch)} {(1)} {(foo)} {(foo)})
    (C {(pathmatch)} {(0)} {(foo)} {(fo)})
    (C {(pathmatch)} {(1)} {(foo/bar)} {(foo/bar)})
    (C {(pathmatch)} {(1)} {(foo/bar)} {(SQ <"foo/*">)})
    (C {(pathmatch)} {(1)} {(foo/bba/arr)} {(SQ <"foo/*">)})
    (C {(pathmatch)} {(1)} {(foo/bba/arr)} {(SQ <"foo/**">)})
    (C {(pathmatch)} {(1)} {(foo/bba/arr)} {(SQ <"foo*">)})
    (C {(pathmatch)} {(1)} {(foo/bba/arr)} {(SQ <"foo**">)})
    (C {(pathmatch)} {(1)} {(foo/bba/arr)} {(SQ <"foo/*arr">)})
    (C {(pathmatch)} {(1)} {(foo/bba/arr)} {(SQ <"foo/**arr">)})
    (C {(pathmatch)} {(0)} {(foo/bba/arr)} {(SQ <"foo/*z">)})
    (C {(pathmatch)} {(0)} {(foo/bba/arr)} {(SQ <"foo/**z">)})
    (C {(pathmatch)} {(1)} {(foo/bar)} {(SQ <"foo?bar">)})
    (C {(pathmatch)} {(1)} {(foo/bar)} {(SQ <"foo[/]bar">)})
    (C {(pathmatch)} {(0)} {(foo)} {(SQ <"*/*/*">)})
    (C {(pathmatch)} {(0)} {(foo/bar)} {(SQ <"*/*/*">)})
    (C {(pathmatch)} {(1)} {(foo/bba/arr)} {(SQ <"*/*/*">)})
    (C {(pathmatch)} {(1)} {(foo/bb/aa/rr)} {(SQ <"*/*/*">)})
    (C {(pathmatch)} {(1)} {(abcXdefXghi)} {(SQ <"*X*i">)})
    (C {(pathmatch)} {(1)} {(ab/cXd/efXg/hi)} {(SQ <"*/*X*/*/*i">)})
    (C {(pathmatch)} {(1)} {(ab/cXd/efXg/hi)} {(SQ <"*Xg*i">)})
    (C {(match)} {(0)} {(x)} {(SQ <a>)} {(SQ <"[A-Z]">)})
    (C {(match)} {(1)} {(x)} {(SQ <A>)} {(SQ <"[A-Z]">)})
    (C {(match)} {(0)} {(x)} {(SQ <A>)} {(SQ <"[a-z]">)})
    (C {(match)} {(1)} {(x)} {(SQ <a>)} {(SQ <"[a-z]">)})
    (C {(match)} {(0)} {(x)} {(SQ <a>)} {(SQ <"[[:upper:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <A>)} {(SQ <"[[:upper:]]">)})
    (C {(match)} {(0)} {(x)} {(SQ <A>)} {(SQ <"[[:lower:]]">)})
    (C {(match)} {(1)} {(x)} {(SQ <a>)} {(SQ <"[[:lower:]]">)})
    (C {(match)} {(0)} {(x)} {(SQ <A>)} {(SQ <"[B-Za]">)})
    (C {(match)} {(1)} {(x)} {(SQ <a>)} {(SQ <"[B-Za]">)})
    (C {(match)} {(0)} {(x)} {(SQ <A>)} {(SQ <"[B-a]">)})
    (C {(match)} {(1)} {(x)} {(SQ <a>)} {(SQ <"[B-a]">)})
    (C {(match)} {(0)} {(x)} {(SQ <z>)} {(SQ <"[Z-y]">)})
    (C {(match)} {(1)} {(x)} {(SQ <Z>)} {(SQ <"[Z-y]">)})
    (C {(imatch)} {(1)} {(SQ <a>)} {(SQ <"[A-Z]">)})
    (C {(imatch)} {(1)} {(SQ <A>)} {(SQ <"[A-Z]">)})
    (C {(imatch)} {(1)} {(SQ <A>)} {(SQ <"[a-z]">)})
    (C {(imatch)} {(1)} {(SQ <a>)} {(SQ <"[a-z]">)})
    (C {(imatch)} {(1)} {(SQ <a>)} {(SQ <"[[:upper:]]">)})
    (C {(imatch)} {(1)} {(SQ <A>)} {(SQ <"[[:upper:]]">)})
    (C {(imatch)} {(1)} {(SQ <A>)} {(SQ <"[[:lower:]]">)})
    (C {(imatch)} {(1)} {(SQ <a>)} {(SQ <"[[:lower:]]">)})
    (C {(imatch)} {(1)} {(SQ <A>)} {(SQ <"[B-Za]">)})
    (C {(imatch)} {(1)} {(SQ <a>)} {(SQ <"[B-Za]">)})
    (C {(imatch)} {(1)} {(SQ <A>)} {(SQ <"[B-a]">)})
    (C {(imatch)} {(1)} {(SQ <a>)} {(SQ <"[B-a]">)})
    (C {(imatch)} {(1)} {(SQ <z>)} {(SQ <"[Z-y]">)})
    (C {(imatch)} {(1)} {(SQ <Z>)} {(SQ <"[Z-y]">)})
    (C {(test_done)})
  ]
)