fbe 0.30.0 → 0.31.0

data/test/fbe/test_award.rb

@@ -1,126 +0,0 @@
-# frozen_string_literal: true
-
-# SPDX-FileCopyrightText: Copyright (c) 2024-2025 Zerocracy
-# SPDX-License-Identifier: MIT
-
-require 'loog'
-require_relative '../../lib/fbe/award'
-require_relative '../test__helper'
-
-# Test.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024 Yegor Bugayenko
-# License:: MIT
-class TestAward < Fbe::Test
-  def test_simple
-    a = Fbe::Award.new(
-      '
-      (award
-        (explain "When a bug is resolved by the person who was assigned to it, a reward is granted to this person")
-        (in hours "hours passed between bug reported and closed")
-        (let max 36)
-        (let basis 30)
-        (give basis "as a basis")
-        (let fee 10)
-        (aka
-          (set b1
-            (if
-              (and
-                (lt hours max)
-                (not (eq hours 0)))
-              fee 0))
-          (give b1 "for resolving the bug in ${hours} (<${max}) hours")
-          "add ${+fee} if it was resolved in less than ${max} hours")
-        (set days (div hours 24))
-        (set b2 (times days -1))
-        (let worst -20)
-        (set b2 (max b2 worst))
-        (let at_least -5)
-        (set b2 (if (lt b2 at_least) b2 0))
-        (set b2 (between b2 3 120))
-        (give b2 "for holding the bug open for too long (${days} days)"))
-      ',
-      judge: '', global: {}, loog: Loog::NULL, options: nil
-    )
-    b = a.bill(hours: 10)
-    assert_operator(b.points, :<=, 100)
-    assert_operator(b.points, :>=, 5)
-    assert_equal(40, b.points)
-    g = b.greeting
-    [
-      'You\'ve earned +40 points for this',
-      '+10 for resolving the bug in 10',
-      'bug in 10 (<36) hours',
-      '+30 as a basis'
-    ].each { |t| assert_includes(g, t, g) }
-    md = a.bylaw.markdown
-    [
-      'First, assume that _hours_ is hours',
-      ', and award _b₂_'
-    ].each { |t| assert_includes(md, t, md) }
-  end
-
-  def test_some_terms
-    {
-      '(let x 25)' => 0,
-      '(award (give (times 5 0.25 "fun")))' => 1,
-      '(award (give 25 "for being a good boy"))' => 25,
-      '(award (give (between 42 -10 -50) "empty"))' => -10,
-      '(award (give (between -3 -10 -50) "empty"))' => 0,
-      '(award (give (between -100 -50 -10) "empty"))' => -50
-    }.each do |q, v|
-      a = Fbe::Award.new(q)
-      assert_equal(v, a.bill.points, q)
-    end
-  end
-
-  def test_some_greetings
-    {
-      '(award (give (times 7 0.25 "fun")))' => 'You\'ve earned +2 points. ',
-      '(award (give (times 5 0.25 "fun")))' => 'You\'ve earned +1 points. ',
-      '(award (give 25 "for being a good boy"))' => 'You\'ve earned +25 points. ',
-      '(award (let x 0.1) (set b (times x 14)) (give b "fun"))' => 'You\'ve earned +1 points. '
-    }.each do |q, v|
-      a = Fbe::Award.new(q)
-      assert_equal(v, a.bill.greeting, q)
-    end
-  end
-
-  def test_must_not_give_anything_when_too_small_value
-    {
-      '(award (give (between 0 5 20)))' => 0,
-      '(award (give (between 13 5 20)))' => 13,
-      '(award (give (between 3 5 20)))' => 0,
-      '(award (give (between 25 5 20)))' => 20,
-      '(award (give (between 0 -10 -30)))' => 0,
-      '(award (give (between -2 -10 -30)))' => 0,
-      '(award (give (between -15 -10 -30)))' => -15,
-      '(award (give (between -50 -10 -30)))' => -30
-    }.each do |q, v|
-      a = Fbe::Award.new(q)
-      assert_equal(v, a.bill.points, q)
-    end
-  end
-
-  def test_some_policies
-    {
-      '(award (let x_a 25) (set z (plus x_a 1)) (give z "..."))' =>
-        'First, let _x-a_ be equal to **25**. Then, set _z_ to _x-a_ + **1**, and award _z_.',
-      '(award (aka (let x 17) (give x "hey") "add ${x} when necessary"))' =>
-        'Just add **17** when necessary'
-    }.each do |q, t|
-      md = Fbe::Award.new(q).bylaw.markdown
-      assert_includes(md, t, md)
-    end
-  end
-
-  def test_shorten_when_one_number
-    g = Fbe::Award.new('(award (give 23 "for love"))').bill.greeting
-    assert_equal('You\'ve earned +23 points. ', g, g)
-  end
-
-  def test_shorten_when_nothing
-    g = Fbe::Award.new('(award (give 0 "for none"))').bill.greeting
-    assert_equal('You\'ve earned nothing. ', g, g)
-  end
-end

data/test/fbe/test_bylaws.rb

@@ -1,111 +0,0 @@
-# frozen_string_literal: true
-
-# SPDX-FileCopyrightText: Copyright (c) 2024-2025 Zerocracy
-# SPDX-License-Identifier: MIT
-
-require 'loog'
-require_relative '../../lib/fbe/award'
-require_relative '../../lib/fbe/bylaws'
-require_relative '../test__helper'
-
-# Test.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024 Yegor Bugayenko
-# License:: MIT
-class TestBylaws < Fbe::Test
-  def test_simple
-    laws = Fbe.bylaws
-    assert_operator(laws.size, :>, 1)
-    refute_nil(laws['published-release-was-rewarded'])
-  end
-
-  def test_check_all_bills
-    awards = {
-      'published-release-was-rewarded' => {
-        { hoc: 0, contributors: 1 } => 24,
-        { hoc: 10, contributors: 1 } => 24,
-        { hoc: 100, contributors: 1 } => 24,
-        { hoc: 500, contributors: 1 } => 29,
-        { hoc: 1_000, contributors: 1 } => 32,
-        { hoc: 10_000, contributors: 1 } => 32,
-        { hoc: 30_000, contributors: 1 } => 32
-      },
-      'resolved-bug-was-rewarded' => {
-        { hours: 1, self: 0 } => 12,
-        { hours: 48, self: 0 } => 6,
-        { hours: 80, self: 0 } => 5,
-        { hours: 300, self: 0 } => 4,
-        { hours: 3_000, self: 0 } => 4,
-        { hours: 30_000, self: 0 } => 4,
-        { hours: 1, self: 1 } => 4
-      },
-      'push-to-master-was-punished' => {
-        {} => -16
-      },
-      'code-review-was-rewarded' => {
-        { hoc: 0, comments: 0, self: 0 } => 4,
-        { hoc: 3, comments: 0, self: 0 } => 4,
-        { hoc: 78, comments: 7, self: 0 } => 12,
-        { hoc: 120, comments: 4, self: 0 } => 4,
-        { hoc: 600, comments: 1, self: 0 } => 8,
-        { hoc: 500, comments: 40, self: 0 } => 24,
-        { hoc: 5_000, comments: 100, self: 0 } => 24,
-        { hoc: 100, comments: 50, self: 1 } => 4,
-        { hoc: 10_000, comments: 200, self: 1 } => 4
-      },
-      'code-contribution-was-rewarded' => {
-        { hoc: 0, comments: 0, reviews: 0 } => 4,
-        { hoc: 3, comments: 0, reviews: 0 } => 4,
-        { hoc: 78, comments: 0, reviews: 0 } => 4,
-        { hoc: 78, comments: 1, reviews: 0 } => 4,
-        { hoc: 50, comments: 15, reviews: 0 } => 4,
-        { hoc: 50, comments: 25, reviews: 0 } => 4,
-        { hoc: 180, comments: 7, reviews: 2 } => 24,
-        { hoc: 199, comments: 8, reviews: 3 } => 24,
-        { hoc: 150, comments: 5, reviews: 1 } => 24,
-        { hoc: 500, comments: 25, reviews: 2 } => 4,
-        { hoc: 99, comments: 6, reviews: 1 } => 16,
-        { hoc: 1_500, comments: 3, reviews: 0 } => 4,
-        { hoc: 15_000, comments: 40, reviews: 0 } => 4
-      },
-      'bug-report-was-rewarded' => {
-        {} => 12
-      },
-      'enhancement-suggestion-was-rewarded' => {
-        {} => 12
-      },
-      'dud-was-punished' => {
-        {} => -16
-      },
-      'bad-branch-name-was-punished' => {
-        {} => -12
-      },
-      'long-pull-was-punished' => {
-        {} => -8
-      }
-    }
-    awards.each do |title, pairs|
-      formula = Fbe.bylaws[title]
-      refute_nil(formula, title)
-      a = Fbe::Award.new(formula)
-      help = [
-        "  '#{title.tr('_', '-')}' => {\n    ",
-        pairs.map do |args, _|
-          [
-            '{',
-            args.empty? ? '' : "#{args.map { |k, v| " #{k}: #{v.to_s.gsub(/(?<!^)([0-9]{3})$/, '_\1')}" }.join(',')} ",
-            "} => #{a.bill(args).points}"
-          ].join
-        end.join(",\n    "),
-        "\n  },"
-      ].join
-      pairs.each do |args, points|
-        b = a.bill(args)
-        next if b.points == points
-        raise \
-          "Wrong reward of #{b.points} points from #{title}, " \
-          "while #{points} expected (#{args}): #{b.greeting}\n\n#{help}"
-      end
-    end
-  end
-end

data/test/fbe/test_conclude.rb

@@ -1,172 +0,0 @@
-# frozen_string_literal: true
-
-# SPDX-FileCopyrightText: Copyright (c) 2024-2025 Zerocracy
-# SPDX-License-Identifier: MIT
-
-require 'factbase'
-require 'factbase/syntax'
-require 'judges/options'
-require 'loog'
-require_relative '../../lib/fbe/conclude'
-require_relative '../../lib/fbe/fb'
-require_relative '../test__helper'
-
-# Test.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024-2025 Zerocracy
-# License:: MIT
-class TestConclude < Fbe::Test
-  def test_with_defaults
-    $fb = Factbase.new
-    $global = {}
-    $options = Judges::Options.new
-    $loog = Loog::NULL
-    $judge = ''
-    Fbe.conclude do
-      # nothing
-    end
-  end
-
-  def test_draw
-    $fb = Factbase.new
-    $global = {}
-    $loog = Loog::NULL
-    $options = Judges::Options.new
-    $fb.insert.foo = 1
-    $fb.insert.bar = 2
-    Fbe.conclude(judge: 'judge-one') do
-      on '(exists foo)'
-      draw do |n, prev|
-        n.sum = prev.foo + 1
-        'Something funny and long enough to pass the requirements: long and long and long and long and long and long.'
-      end
-    end
-    f = $fb.query('(exists sum)').each.to_a[0]
-    assert_equal(2, f.sum)
-    assert_equal('judge-one', f.what)
-    assert_includes(f.details, 'funny')
-  end
-
-  def test_draw_with_rollback
-    $fb = Factbase.new
-    $global = {}
-    $loog = Loog::NULL
-    $options = Judges::Options.new
-    $fb.insert.foo = 1
-    Fbe.conclude(judge: 'judge-one') do
-      on '(exists foo)'
-      draw do |n, prev|
-        n.hello = prev.foo
-        throw :rollback
-      end
-    end
-    assert_equal(1, $fb.size)
-  end
-
-  def test_consider
-    fb = Factbase.new
-    fb.insert.foo = 1
-    options = Judges::Options.new
-    Fbe.conclude(fb:, judge: 'issue-was-closed', loog: Loog::NULL, options:, global: {}) do
-      on '(exists foo)'
-      consider do |_prev|
-        fb.insert.bar = 42
-      end
-    end
-    f = fb.query('(exists bar)').each.to_a[0]
-    assert_equal(42, f.bar)
-  end
-
-  def test_considers_until_quota
-    WebMock.disable_net_connect!
-    fb = Factbase.new
-    5.times do
-      fb.insert.foo = 1
-    end
-    options = Judges::Options.new
-    stub_request(:get, %r{https://api.github.com/users/.*}).to_return(
-      {
-        body: { id: rand(100) }.to_json,
-        headers: { 'Content-Type' => 'application/json', 'X-RateLimit-Remaining' => '999' }
-      },
-      {
-        body: { id: rand(100) }.to_json,
-        headers: { 'Content-Type' => 'application/json', 'X-RateLimit-Remaining' => '9' }
-      }
-    )
-    stub_request(:get, 'https://api.github.com/rate_limit').to_return(
-      { body: '{"rate":{"remaining":51}}', headers: { 'X-RateLimit-Remaining' => '51' } }
-    )
-    global = {}
-    o = Fbe.octo(loog: Loog::NULL, options:, global:)
-    Fbe.conclude(fb:, judge: 'boom', loog: Loog::NULL, options:, global:) do
-      quota_aware
-      on '(exists foo)'
-      consider do |f|
-        f.bar = o.user("user-#{rand(100)}")[:id]
-      end
-    end
-    assert_equal(2, fb.query('(exists bar)').each.to_a.size)
-  end
-
-  def test_ignores_globals
-    $fb = nil
-    $loog = nil
-    $options = nil
-    $global = nil
-    fb = Factbase.new
-    fb.insert.foo = 1
-    Fbe.conclude(fb:, judge: 'judge-xxx', loog: Loog::NULL, global: {}, options: Judges::Options.new) do
-      on '(exists foo)'
-      draw do |n, prev|
-        n.sum = prev.foo + 1
-        'something funny'
-      end
-    end
-    assert_equal(2, fb.size)
-  end
-
-  def test_stop_if_timeout_exceeded
-    $fb = Factbase.new
-    $fb.insert.then do |f|
-      f._id = 1
-      f.foo = 5
-    end
-    $fb.insert.then do |f|
-      f._id = 2
-      f.foo = 4
-    end
-    $fb.insert.then do |f|
-      f._id = 3
-      f.bar = 3
-    end
-    $fb.insert.then do |f|
-      f._id = 4
-      f.foo = 2
-    end
-    $fb.insert.then do |f|
-      f._id = 5
-      f.foo = 1
-    end
-    $global = {}
-    $options = Judges::Options.new({ 'testing' => true })
-    $loog = Loog::NULL
-    $judge = ''
-    total = 0
-    now = Time.now
-    time = Minitest::Mock.new
-    time.expect(:now, now)
-    time.expect(:now, now + 4)
-    time.expect(:now, now + 8)
-    time.expect(:now, now + 12)
-    Fbe.conclude(time: time) do
-      on '(exists foo)'
-      timeout 10
-      consider do |f|
-        total += f.foo
-      end
-    end
-    assert_equal(9, total)
-    time.verify
-  end
-end

data/test/fbe/test_copy.rb

@@ -1,39 +0,0 @@
-# frozen_string_literal: true
-
-# SPDX-FileCopyrightText: Copyright (c) 2024-2025 Zerocracy
-# SPDX-License-Identifier: MIT
-
-require 'factbase'
-require_relative '../../lib/fbe/copy'
-require_relative '../test__helper'
-
-# Test.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024-2025 Zerocracy
-# License:: MIT
-class TestCopy < Fbe::Test
-  def test_simple_copy
-    fb = Factbase.new
-    f1 = fb.insert
-    f1._id = 1
-    f1.foo = 42
-    f2 = fb.insert
-    f2._id = 2
-    Fbe.copy(f1, f2)
-    assert_equal(2, f2._id)
-    assert_equal([2], f2['_id'])
-    assert_equal(42, f2.foo)
-    assert_equal([42], f2['foo'])
-  end
-
-  def test_with_except
-    fb = Factbase.new
-    f1 = fb.insert
-    f1._id = 1
-    f1.foo = 42
-    f2 = fb.insert
-    f2._id = 2
-    Fbe.copy(f1, f2, except: ['foo'])
-    assert_nil(f2['foo'])
-  end
-end

data/test/fbe/test_delete.rb

@@ -1,117 +0,0 @@
-# frozen_string_literal: true
-
-# SPDX-FileCopyrightText: Copyright (c) 2024-2025 Zerocracy
-# SPDX-License-Identifier: MIT
-
-require 'factbase'
-require 'judges/options'
-require 'loog'
-require_relative '../../lib/fbe/delete'
-require_relative '../../lib/fbe/fb'
-require_relative '../test__helper'
-
-# Test.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024-2025 Zerocracy
-# License:: MIT
-class TestDelete < Fbe::Test
-  def test_deletes_one_property
-    fb = Factbase.new
-    f = fb.insert
-    f.foo = 42
-    f.hey = 4
-    f._id = 555
-    Fbe.delete(f, 'foo', 'bar', fb:)
-    assert_equal(1, fb.size)
-    assert_equal(1, fb.query('(exists hey)').each.to_a.size)
-    assert_equal(4, fb.query('(exists hey)').each.first.hey)
-  end
-
-  def test_deletes_when_many
-    fb = Factbase.new
-    f = fb.insert
-    f.foo = 42
-    f.foo = 'hello'
-    f.bar = 4
-    f._id = 555
-    Fbe.delete(f, 'bar', fb:)
-    assert_equal(1, fb.size)
-    assert_equal([42, 'hello'], fb.query('(exists foo)').each.first['foo'])
-  end
-
-  def test_deletes_nothing
-    fb = Factbase.new
-    f = fb.insert
-    f.foo = 42
-    f.foo = 'hello'
-    f._id = 555
-    Fbe.delete(f, 'bar', fb:)
-    assert_equal(1, fb.size)
-    assert_equal([42, 'hello'], fb.query('(exists foo)').each.first['foo'])
-  end
-
-  def test_deletes_two_properties
-    fb = Factbase.new
-    f = fb.insert
-    f.foo = 42
-    f.hey = 4
-    f._id = 555
-    Fbe.delete(f, 'foo', 'hey', fb:)
-    assert_equal(1, fb.size)
-    assert_equal(0, fb.query('(exists hey)').each.to_a.size)
-  end
-
-  def test_deletes_safely
-    $fb = Factbase.new
-    $global = {}
-    $options = Judges::Options.new(job_id: 42)
-    $loog = Loog::Buffer.new
-    f = Fbe.fb.insert
-    f.foo = 'hello'
-    Fbe.delete(f, 'foo')
-    f2 = Fbe.fb.query('(always)').each.to_a.first
-    assert_equal([1], f2['_id'])
-    assert_equal([42], f2['_job'])
-  end
-
-  def test_deletes_id
-    fb = Factbase.new
-    f = fb.insert
-    f._id = 44
-    Fbe.delete(f, '_id', fb:)
-    f2 = fb.query('(always)').each.to_a.first
-    assert_nil(f2['_id'])
-    assert_empty(f2.all_properties)
-  end
-
-  def test_deletes_in_transaction
-    $fb = Factbase.new
-    $global = {}
-    $options = Judges::Options.new(job_id: 42)
-    $loog = Loog::Buffer.new
-    Fbe.fb.txn do |fbt|
-      fbt.insert.then do |f|
-        f.issue = 444
-        f.where = 'github'
-        f.repository = 555
-        f.who = 887
-        f.when = Time.now
-        f.foo = 1
-      end
-    end
-    f1 = Fbe.fb.query('(always)').each.to_a.first
-    Fbe.delete(f1, 'foo')
-    f2 = Fbe.fb.query('(always)').each.to_a.first
-    assert_nil(f2['foo'])
-  end
-
-  def test_deletes_when_duplicate_id
-    fb = Factbase.new
-    f = fb.insert
-    f._id = 44
-    f._id = 45
-    Fbe.delete(f, '_id', fb:)
-    f2 = fb.query('(always)').each.to_a.first
-    assert_nil(f2['_id'])
-  end
-end

data/test/fbe/test_delete_one.rb

@@ -1,56 +0,0 @@
-# frozen_string_literal: true
-
-# SPDX-FileCopyrightText: Copyright (c) 2024-2025 Zerocracy
-# SPDX-License-Identifier: MIT
-
-require 'factbase'
-require 'judges/options'
-require 'loog'
-require_relative '../../lib/fbe/delete_one'
-require_relative '../../lib/fbe/fb'
-require_relative '../test__helper'
-
-# Test.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024-2025 Zerocracy
-# License:: MIT
-class TestDeleteOne < Fbe::Test
-  def test_deletes_one_value
-    fb = Factbase.new
-    f = fb.insert
-    f.foo = 42
-    f.foo = 'hello'
-    f._id = 555
-    Fbe.delete_one(f, 'foo', 42, fb:)
-    assert_equal(1, fb.size)
-    assert_equal(1, fb.query('(exists foo)').each.to_a.size)
-    assert_equal(0, fb.query('(eq foo 42)').each.to_a.size)
-    assert_equal(['hello'], fb.query('(exists foo)').each.first['foo'])
-  end
-
-  def test_deletes_when_many
-    fb = Factbase.new
-    f = fb.insert
-    f.foo = 42
-    f.foo = 'hello'
-    f.bar = 44
-    f._id = 555
-    Fbe.delete_one(f, 'bar', 44, fb:)
-    assert_equal(1, fb.size)
-    assert_equal(1, fb.query('(exists foo)').each.to_a.size)
-    assert_equal(1, fb.query('(eq foo 42)').each.to_a.size)
-    assert_equal([42, 'hello'], fb.query('(exists foo)').each.first['foo'])
-  end
-
-  def test_deletes_nothing
-    fb = Factbase.new
-    f = fb.insert
-    f.foo = 42
-    f.foo = 'hello'
-    f._id = 555
-    Fbe.delete_one(f, 'bar', 42, fb:)
-    assert_equal(1, fb.size)
-    assert_equal(1, fb.query('(exists foo)').each.to_a.size)
-    assert_equal(1, fb.query('(eq foo 42)').each.to_a.size)
-  end
-end

data/test/fbe/test_enter.rb

@@ -1,35 +0,0 @@
-# frozen_string_literal: true
-
-# SPDX-FileCopyrightText: Copyright (c) 2024-2025 Zerocracy
-# SPDX-License-Identifier: MIT
-
-require 'judges/options'
-require 'loog'
-require 'webmock/minitest'
-require_relative '../../lib/fbe/enter'
-require_relative '../test__helper'
-
-# Test.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024-2025 Zerocracy
-# License:: MIT
-class TestEnter < Fbe::Test
-  def test_simple
-    WebMock.disable_net_connect!
-    options = Judges::Options.new({ 'zerocracy_token' => '00000-0000-0000-00000' })
-    stub_request(:get, 'https://api.zerocracy.com/csrf')
-      .to_return(body: 'token')
-    stub_request(:get, 'https://api.zerocracy.com/valves/result?badge=foo')
-      .to_return(status: 204)
-    stub_request(:post, 'https://api.zerocracy.com/valves/add?job=0')
-      .with(body: '_csrf=token&badge=foo&name&result=hi&why=no%20reason')
-      .to_return(status: 302)
-    assert_equal('hi', Fbe.enter('foo', 'no reason', options:, loog: Loog::NULL) { 'hi' })
-  end
-
-  def test_in_testing_mode
-    WebMock.enable_net_connect!
-    options = Judges::Options.new({ 'testing' => true })
-    assert_equal('hi', Fbe.enter('foo', 'no reason', options:, loog: Loog::NULL) { 'hi' })
-  end
-end