New rule: duplicated when

spec/ameba/rule/duplicated_when_spec.cr

@@ -0,0 +1,118 @@
+require "../../spec_helper"
+
+module Ameba::Rule
+  describe DuplicatedWhen do
+    subject = DuplicatedWhen.new
+
+    it "passes if there are no duplicated when conditions in the case" do
+      s = Source.new %(
+        case x
+        when "first"
+          do_something
+        when "second"
+          do_something_else
+        end
+
+        case x
+        when Integer then :one
+        when Int32, String then :two
+        end
+
+        case {value1, value2}
+        when {0, _}
+        when {_, 0}
+        end
+
+        case x
+        when .odd?
+        when .even?
+        end
+
+        case
+        when Integer then :one
+        when Integer | String then :two
+        end
+
+        case x
+        when :one
+        when "one"
+        end
+
+        case {value1, value2}
+        when {String, String}
+        end
+      )
+      subject.catch(s).should be_valid
+    end
+
+    it "fails if there is a duplicated when condition in the case" do
+      s = Source.new %(
+        case x
+        when .starts_with?("pattern1")
+          do_something1
+        when .starts_with?("pattern2")
+          do_something2
+        when .starts_with?("pattern1")
+          do_something3
+        end
+      )
+      subject.catch(s).should_not be_valid
+    end
+
+    it "fails if there are multiple when conditions with nil" do
+      s = Source.new %(
+        case x
+        when nil
+          say_hello
+        when nil
+          say_nothing
+        end
+      )
+      subject.catch(s).should_not be_valid
+    end
+
+    it "fails if there are multiple whens with is_a? conditions" do
+      s = Source.new %(
+        case x
+        when String then say_hello
+        when Integer then say_nothing
+        when String then blah
+        end
+      )
+      subject.catch(s).should_not be_valid
+    end
+
+    it "fails if there are duplicated whens but in difference order" do
+      s = Source.new %(
+        case x
+        when String, Integer then something
+        when Integer then blah
+        end
+      )
+      subject.catch(s).should_not be_valid
+    end
+
+    it "fails if there are duplicated conditions in one when" do
+      s = Source.new %(
+        case x
+        when String, String then something
+        end
+      )
+      subject.catch(s).should_not be_valid
+    end
+
+    it "reports rule, location and message" do
+      s = Source.new %q(
+        case x
+        when "first"
+        when "first"
+        end
+      ), "source.cr"
+      subject.catch(s).should_not be_valid
+      error = s.errors.first
+      error.rule.should_not be_nil
+      error.location.to_s.should eq "source.cr:2:9"
+      error.message.should eq "Duplicated when conditions in case."
+    end
+  end
+end