* test/ruby/test_file.rb (test_fnmatch): some tests for File.fnmatch

are added.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6547 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,8 @@
+Wed Jun 30 16:59:39  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
+
+	* test/ruby/test_file.rb (test_fnmatch): some tests for File.fnmatch
+	  are added.
+
 Wed Jun 30 11:38:51 2004  Elven  <elven@elven.de>
 
 	* parse.y (primary): should not be NULL.  [ruby-core:03098]

test/ruby/test_file.rb

@@ -43,5 +43,83 @@ class TestFile < Test::Unit::TestCase
     assert(File.fnmatch('\[1\]' , '[1]', File::FNM_PATHNAME))
     assert(File.fnmatch('*?', 'a', File::FNM_PATHNAME))
     assert(File.fnmatch('*/', 'a/', File::FNM_PATHNAME))
+    # text
+    assert(File.fnmatch('cat', 'cat'))
+    assert(!File.fnmatch('cat', 'category'))
+    assert(!File.fnmatch('cat', 'wildcat'))
+    # '?' matches any one character
+    assert(File.fnmatch('?at', 'cat'))
+    assert(File.fnmatch('c?t', 'cat'))
+    assert(File.fnmatch('ca?', 'cat'))
+    assert(File.fnmatch('?a?', 'cat'))
+    assert(!File.fnmatch('c??t', 'cat'))
+    assert(!File.fnmatch('??at', 'cat'))
+    assert(!File.fnmatch('ca??', 'cat'))
+    # '*' matches any number (including 0) of any characters
+    assert(File.fnmatch('c*', 'cats'))
+    assert(File.fnmatch('c*ts', 'cats'))
+    assert(File.fnmatch('*ts', 'cats'))
+    assert(File.fnmatch('*c*a*t*s*', 'cats'))
+    assert(!File.fnmatch('c*t', 'cats'))
+    assert(!File.fnmatch('*abc', 'abcabz'))
+    assert(File.fnmatch('*abz', 'abcabz'))
+    assert(!File.fnmatch('a*abc', 'abc'))
+    assert(File.fnmatch('a*bc', 'abc'))
+    assert(!File.fnmatch('a*bc', 'abcd'))
+    # matches any character listed between bracket
+    assert(File.fnmatch('ca[np]', 'can'))
+    assert(File.fnmatch('ca[np]', 'cap'))
+    assert(!File.fnmatch('ca[np]', 'cat'))
+    assert(File.fnmatch('ca[a-or-z]', 'can'))
+    assert(!File.fnmatch('ca[a-or-z]', 'cap'))
+    assert(File.fnmatch('ca[a-or-z]', 'cat'))
+    # matches any character except those listed between bracket
+    assert(File.fnmatch('ca[!pt]', 'can'))
+    assert(!File.fnmatch('ca[!pt]', 'cap'))
+    assert(!File.fnmatch('ca[!pt]', 'cat'))
+    assert(!File.fnmatch('ca[!a-or-z]', 'can'))
+    assert(File.fnmatch('ca[!a-or-z]', 'cap'))
+    assert(!File.fnmatch('ca[!a-or-z]', 'cat'))
+    assert(File.fnmatch('ca[^pt]', 'can'))
+    assert(!File.fnmatch('ca[^pt]', 'cap'))
+    assert(!File.fnmatch('ca[^pt]', 'cat'))
+    assert(!File.fnmatch('ca[^a-or-z]', 'can'))
+    assert(File.fnmatch('ca[^a-or-z]', 'cap'))
+    assert(!File.fnmatch('ca[^a-or-z]', 'cat'))
+    # escaping character
+    assert(File.fnmatch('\?', '?'))
+    assert(!File.fnmatch('\?', 'a'))
+    assert(File.fnmatch('\*', '*'))
+    assert(!File.fnmatch('\*', 'cats'))
+    assert(File.fnmatch('\a', 'a'))
+    assert(File.fnmatch('[a\-c]', 'a'))
+    assert(File.fnmatch('[a\-c]', '-'))
+    assert(File.fnmatch('[a\-c]', 'c'))
+    assert(!File.fnmatch('[a\-c]', 'b'))
+    assert(!File.fnmatch('[a\-c]', '\\'))
+    # case is ignored if FNM_CASEFOLD is set
+    assert(!File.fnmatch('cat', 'CAT'))
+    assert(File.fnmatch('cat', 'CAT', File::FNM_CASEFOLD))
+    # wildcard doesn't match '/' if FNM_PATHNAME is set
+    assert(File.fnmatch('foo?boo', 'foo/boo'))
+    assert(File.fnmatch('foo*', 'foo/boo'))
+    assert(!File.fnmatch('foo?boo', 'foo/boo', File::FNM_PATHNAME))
+    assert(!File.fnmatch('foo*', 'foo/boo', File::FNM_PATHNAME))
+    # wildcard matches leading period if FNM_DOTMATCH is set
+    assert(!File.fnmatch('*', '.profile'))
+    assert(File.fnmatch('*', '.profile', File::FNM_DOTMATCH))
+    assert(File.fnmatch('.*', '.profile'))
+    assert(File.fnmatch('*', 'dave/.profile'))
+    assert(File.fnmatch('*/*', 'dave/.profile'))
+    assert(!File.fnmatch('*/*', 'dave/.profile', File::FNM_PATHNAME))
+    assert(File.fnmatch('*/*', 'dave/.profile', File::FNM_PATHNAME | File::FNM_DOTMATCH))
+    # recursive matching
+    assert(File.fnmatch('**/foo', 'a/b/c/foo', File::FNM_PATHNAME))
+    assert(File.fnmatch('**/foo', '/foo', File::FNM_PATHNAME))
+    assert(!File.fnmatch('**/foo', 'a/.b/c/foo', File::FNM_PATHNAME))
+    assert(File.fnmatch('**/foo', 'a/.b/c/foo', File::FNM_PATHNAME | File::FNM_DOTMATCH))
+    assert(File.fnmatch('**/foo', '/root/foo', File::FNM_PATHNAME))
+    assert(File.fnmatch('**/foo', 'c:/root/foo', File::FNM_PATHNAME))
   end
+
 end