diff --git a/tool/test/testunit/test_assertion.rb b/tool/test/testunit/test_assertion.rb
index 8c83b447a7..d12a794a23 100644
--- a/tool/test/testunit/test_assertion.rb
+++ b/tool/test/testunit/test_assertion.rb
@@ -26,4 +26,20 @@ class TestAssertion < Test::Unit::TestCase
       return_in_assert_raise
     end
   end
+
+  def test_assert_pattern_list
+    assert_pattern_list([/foo?/], "foo")
+    assert_not_pattern_list([/foo?/], "afoo")
+    assert_not_pattern_list([/foo?/], "foo?")
+    assert_pattern_list([:*, /foo?/, :*], "foo")
+    assert_pattern_list([:*, /foo?/], "afoo")
+    assert_not_pattern_list([:*, /foo?/], "afoo?")
+    assert_pattern_list([/foo?/, :*], "foo?")
+  end
+
+  def assert_not_pattern_list(pattern_list, actual, message=nil)
+    assert_raise(Test::Unit::AssertionFailedError) do
+      assert_pattern_list(pattern_list, actual, message)
+    end
+  end
 end