Expect patched class to begin with capital letter

In order to not consider a prepended base class a patch
we expect the patched class constant to begin with a capital
letter.

lib/flickwerk/patch_finder.rb

@@ -2,7 +2,7 @@
 
 module Flickwerk
   class PatchFinder
-    DECORATED_CLASS_PATTERN = /(?:::)?(?<decorated_class>[\w.:]+?)(?:\.singleton_class)?\.prepend[\s(]/
+    DECORATED_CLASS_PATTERN = /(?:::)?(?<decorated_class>[A-Z][\w.:]+?)(?:\.singleton_class)?\.prepend[\s(]/
 
     attr_reader :path, :autoloader
 

test/dummy_app/app/patches/models/page_patch.rb

@@ -1,7 +1,17 @@
 module PagePatch
+  def self.prepended(base)
+    base.prepend(InstanceMethods)
+  end
+
   def title
     "Changed from Host app"
   end
 
+  module InstanceMethods
+    def name
+      "Homepage"
+    end
+  end
+
   ::DummyCms::Page.prepend(self)
 end

test/test_flickwerk.rb

@@ -76,4 +76,13 @@ def boot
     assert User
     assert "The outer rim", User.address
   end
+
+  test "prepended base class can be prepended" do
+    require "dummy_cms"
+
+    boot
+
+    assert DummyCms::Page
+    assert_equal [], Flickwerk.patches["base"]
+  end
 end