Introduce 'Danger' response for suspicious domains

app/lib/link_checker/uri_checker/danger.rb

@@ -0,0 +1,7 @@
+module LinkChecker::UriChecker
+  class Danger < Problem
+    def initialize(**options)
+      super(type: :danger, **options)
+    end
+  end
+end

app/lib/link_checker/uri_checker/http_checker.rb

@@ -35,7 +35,7 @@ def initialize(options = {})
     end
   end
 
-  class SuspiciousDomain < LinkChecker::UriChecker::Warning
+  class SuspiciousDomain < LinkChecker::UriChecker::Danger
     def initialize(options = {})
       super(summary: :suspicious_destination, message: :website_on_list_of_suspicious_domains, **options)
     end

app/lib/link_checker/uri_checker/report.rb

@@ -29,6 +29,13 @@ def warnings
         .uniq
     end
 
+    def danger
+      problems
+        .select { |problem| problem.type == :danger }
+        .map(&:message)
+        .uniq
+    end
+
     def errors
       problems
         .select { |problem| problem.type == :error }

spec/lib/link_checker_spec.rb

@@ -30,6 +30,13 @@
       end
     end
 
+    shared_examples "has danger" do |danger = nil|
+      it "should have danger" do
+        expect(subject.danger).to_not be_empty
+        expect(subject.danger).to include(danger) if danger
+      end
+    end
+
     shared_examples "has a problem summary" do |summary|
       it "should have a problem summary of #{summary}" do
         expect(subject.problem_summary).to eq(summary)
@@ -102,7 +109,7 @@
       let(:uri) { "https://malicious.example.com" }
       before { stub_request(:get, uri).to_return(status: 200) }
       include_examples "has a problem summary", "Suspicious Destination"
-      include_examples "has warnings"
+      include_examples "has danger"
       include_examples "has no errors"
     end