Excluded relative path path

spec/ameba/base_spec.cr

@@ -28,5 +28,35 @@ module Ameba::Rule
         NoProperties.new.enabled.should be_true
       end
     end
+
+    describe "#excluded?" do
+      it "returns false if a rule does no have a list of excluded source" do
+        DummyRule.new.excluded?(Source.new "", "source.cr").should_not be_true
+      end
+
+      it "returns false if source is not excluded from this rule" do
+        rule = DummyRule.new
+        rule.excluded = %w(some_source.cr)
+        rule.excluded?(Source.new "", "another_source.cr").should_not be_true
+      end
+
+      it "returns true if source is excluded from this rule" do
+        rule = DummyRule.new
+        rule.excluded = %w(source.cr)
+        rule.excluded?(Source.new "", "source.cr").should be_true
+      end
+
+      pending "returns true if source matches the wildcard" do
+        rule = DummyRule.new
+        rule.excluded = %w(**/*.cr)
+        rule.excluded?(Source.new "", "source.cr").should be_true
+      end
+
+      it "returns false if source does not match the wildcard" do
+        rule = DummyRule.new
+        rule.excluded = %w(*_spec.cr)
+        rule.excluded?(Source.new "", "source.cr").should be_false
+      end
+    end
   end
 end

spec/ameba/source_spec.cr

@@ -23,5 +23,17 @@ module Ameba
         error.message.should eq "Error!"
       end
     end
+
+    describe "#fullpath" do
+      it "returns a relative path of the source" do
+        s = Source.new "", "./source_spec.cr"
+        s.fullpath.should contain "source_spec.cr"
+      end
+
+      it "returns fullpath if path is blank" do
+        s = Source.new "", ""
+        s.fullpath.should_not be_nil
+      end
+    end
   end
 end