#214 new attributes failed_builds and succeeded_builds for pull-was-merged

judges/github-events/github-events.rb

@@ -112,6 +112,31 @@ def self.count_appreciated_comments(pr, issue_comments, code_comments)
     issue_appreciations + code_appreciations
   end
 
+  def self.fetch_workflows(pr)
+    succeeded_builds = 0
+    failed_builds = 0
+    Fbe.octo.check_runs_for_ref(pr[:base][:repo][:full_name], pr[:head][:sha])[:check_runs].each do |run|
+      workflow = Fbe.octo.workflow_run(
+        pr[:base][:repo][:full_name],
+        Fbe.octo.workflow_run_job(pr[:base][:repo][:full_name], run[:id])[:run_id]
+      )
+      next unless workflow[:event] == 'pull_request'
+      case workflow[:conclusion]
+      when 'success'
+        succeeded_builds += 1
+      when 'failure'
+        failed_builds += 1
+      end
+    end
+    { succeeded_builds:, failed_builds: }
+  end
+
+  def self.fill_fact_by_hash(fact, hash)
+    hash.each do |prop, value|
+      fact.send(:"#{prop}=", value)
+    end
+  end
+
   def self.fill_up_event(fact, json)
     fact.when = Time.parse(json[:created_at].iso8601)
     fact.event_type = json[:type]
@@ -151,11 +176,8 @@ def self.fill_up_event(fact, json)
       when 'closed'
         fact.what = "pull-was-#{pl[:merged_at].nil? ? 'closed' : 'merged'}"
         fact.hoc = pl[:additions] + pl[:deletions]
-        comments_info(pl).then do |info|
-          info.each do |prop, value|
-            fact.send(:"#{prop}=", value)
-          end
-        end
+        fill_fact_by_hash(fact, comments_info(pl))
+        fill_fact_by_hash(fact, fetch_workflows(pl))
         fact.branch = pl[:head][:ref]
         fact.details =
           "The pull request #{Fbe.issue(fact)} " \
@@ -177,7 +199,6 @@ def self.fill_up_event(fact, json)
         ).each.last
           skip_event(json)
         end
-
         fact.issue = json[:payload][:pull_request][:number]
         fact.what = 'pull-was-reviewed'
         pull = Fbe.octo.pull_request(json[:repo][:name], fact.issue)
@@ -228,7 +249,7 @@ def self.fill_up_event(fact, json)
         fact.what = 'release-published'
         fact.who = json[:payload][:release][:author][:id]
         fetch_contributors(fact, json[:repo][:name]).each { |c| fact.contributors = c }
-        fetch_release_info(fact, json[:repo][:name]).each { |prop, val| fact.send(:"#{prop}=", val) }
+        fill_fact_by_hash(fact, fetch_release_info(fact, json[:repo][:name]))
         fact.details =
           "A new release '#{json[:payload][:release][:name]}' has been published " \
           "in #{json[:repo][:name]} by #{Fbe.who(fact)}."

test/judges/test-github-events.rb

@@ -626,12 +626,7 @@ def test_release_event_contributors
 
   def test_pull_request_event_with_comments
     fb = Factbase.new
-    $fb = fb
-    $global = {}
-    $local = {}
-    $options = Judges::Options.new({ 'repositories' => 'foo/foo', 'testing' => true })
-    $loog = Loog::NULL
-    load(File.join(__dir__, '../../judges/github-events/github-events.rb'))
+    load_it('github-events', fb, Judges::Options.new({ 'repositories' => 'foo/foo', 'testing' => true }))
     f = fb.query('(eq what "pull-was-merged")').each.to_a.first
     assert_equal(4, f.comments)
     assert_equal(2, f.comments_to_code)
@@ -641,6 +636,14 @@ def test_pull_request_event_with_comments
     assert_equal(1, f.comments_resolved)
   end
 
+  def test_count_numbers_of_workflow_builds
+    fb = Factbase.new
+    load_it('github-events', fb, Judges::Options.new({ 'repositories' => 'foo/foo', 'testing' => true }))
+    f = fb.query('(eq what "pull-was-merged")').each.to_a.first
+    assert_equal(4, f.succeeded_builds)
+    assert_equal(2, f.failed_builds)
+  end
+
   private
 
   def stub_event(*json)

test/test__helper.rb

@@ -36,12 +36,12 @@
 require 'minitest/autorun'
 
 class Minitest::Test
-  def load_it(judge, fb)
+  def load_it(judge, fb, options = Judges::Options.new({ 'repositories' => 'foo/foo' }))
     $fb = fb
     $global = {}
     $local = {}
     $judge = judge
-    $options = Judges::Options.new({ 'repositories' => 'foo/foo' })
+    $options = options
     $loog = Loog::NULL
     load(File.join(__dir__, "../judges/#{judge}/#{judge}.rb"))
   end