judges 0.0.32 → 0.0.34

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: cf26642d3989b5d0097e54b224bd8c8b431f5e488f04a6c6cc778f9a914e0ad6
-  data.tar.gz: 79974f0a047a19f499e8b9b69566ded6b9b78d3bf6f470bfc67e9aead9988dc9
+  metadata.gz: 7d6543b9b405aa797aa98883b8294c15e61215db07121c7c0e4616081f9457de
+  data.tar.gz: 86c543a69bf748262f0f1072f151f8e1f3de9f8d015192699d811d809452328c
 SHA512:
-  metadata.gz: f7af589ce71752db5991f3838ea4e6b0e13969f3caab954f21d991d692d75b592c5f3bbe5d42e26cdc9a5d2c68a8ed3fcbe87401c34b1d6daa92c380f6fc7688
-  data.tar.gz: 25a4cc8aa470fb2f457c9f00b1581d5e4c05ab07d8580da124fd59d92c768796b4548948cb03abfc88256936b3ad8a2ae2fa4dd0edd66a7f1ae69a8530176fcf
+  metadata.gz: a487dade2d9e24c24298aab0132fdf653688a2133904c2cad712692762759e9fe8c3e9076e99d09b67a73b8a2580445600ffb2766db0a6d4ef01052de2163392
+  data.tar.gz: 76111d01a21353718aadde66a0af44d5b341bce928c670704298118ffa8cd0d147e5d50ce21329d7a1adb69e0241243a6a2c3af273d0f6e126bb49fff9618c82

data/.rultor.yml

@@ -33,8 +33,8 @@ release:
     rm -rf *.gem
     sed -i "s/0\.0\.0/${tag}/g" judges.gemspec
     git add judges.gemspec
-    sed -i "s/0\.0\.0/${tag}/g" bin/judges
-    git add bin/judges
+    sed -i "s/0\.0\.0/${tag}/g" lib/judges.rb
+    git add lib/judges.rb
     git commit -m "version set to ${tag}"
     gem build judges.gemspec
     chmod 0600 ../rubygems.yml

data/Gemfile.lock

@@ -3,7 +3,7 @@ PATH
   specs:
     judges (0.0.0)
       backtrace (~> 0.3)
-      factbase (~> 0.0.30)
+      factbase (~> 0.0.38)
       gli (~> 2.21)
       loog (~> 0.2)
       nokogiri (~> 1.10)
@@ -74,7 +74,7 @@ GEM
     docile (1.4.0)
     drb (2.2.1)
     erubi (1.12.0)
-    factbase (0.0.30)
+    factbase (0.0.38)
       json (~> 2.7)
       loog (~> 0.2)
       nokogiri (~> 1.10)
@@ -210,7 +210,7 @@ GEM
     webrick (1.8.1)
     yaml (0.3.0)
     yard (0.9.36)
-    zeitwerk (2.6.14)
+    zeitwerk (2.6.15)
 
 PLATFORMS
   arm64-darwin-22

data/bin/judges

@@ -32,13 +32,12 @@ Encoding.default_internal = Encoding::UTF_8
 class App
   extend GLI::App
 
-  ver = '0.0.32'
-
   loog = Loog::REGULAR
 
   program_desc('Automated executor of judges for a factbase')
 
-  version(ver)
+  require_relative '../lib/judges'
+  version(Judges::VERSION)
 
   synopsis_format(:full)
 
@@ -51,7 +50,7 @@ class App
     if global[:verbose]
       loog = Loog::VERBOSE
     end
-    loog.debug("judges #{ver}")
+    loog.debug("judges #{Judges::VERSION}")
     true
   end
 
@@ -98,9 +97,7 @@ class App
   desc 'Remove the facts that are too old'
   command :trim do |c|
     c.desc 'Only the facts that match the expression are deleted'
-    c.flag([:query])
-    c.desc 'Remove facts that are older than X days'
-    c.flag([:days], type: Integer)
+    c.flag([:query], default_value: '(never)')
     c.action do |global, options, args|
       require_relative '../lib/judges/commands/trim'
       Judges::Trim.new(loog).run(options, args)
@@ -114,7 +111,7 @@ class App
     c.desc 'Generate output name of the file automatically'
     c.switch([:auto], default_value: false)
     c.desc 'Only the facts that match the expression are printed'
-    c.flag([:query], default_value: '()')
+    c.flag([:query], default_value: '(always)')
     c.desc 'Print even if target file already exists and is older than the factbase'
     c.switch([:force], default_value: false)
     c.action do |global, options, args|
@@ -133,6 +130,12 @@ class App
 
   desc 'Run automated tests for all judges'
   command :test do |c|
+    c.desc 'Options to pass to every judge (may be overwritten by YAML)'
+    c.flag([:o, :option], multiple: true, arg_name: '<key=value>')
+    c.desc 'Categories of tests to disable'
+    c.flag([:disable], multiple: true)
+    c.desc 'Categories of tests to enable'
+    c.flag([:enable], multiple: true)
     c.desc 'Name of the test pack to run'
     c.flag([:pack], multiple: true)
     c.desc 'The location of a Ruby library (directory with .rb files to include)'

data/features/test.feature

@@ -4,12 +4,12 @@ Feature: Test
   Scenario: Simple test of a few judges
     Given I run bin/judges with "test ./fixtures"
     Then Stdout contains "👉 Testing"
-    Then Stdout contains "judge(s) tested successfully"
+    Then Stdout contains "All 2 judge(s) and 2 tests passed"
     And Exit code is zero
 
   Scenario: Simple test of just one pack
     Given I run bin/judges with "test --pack guess ./fixtures"
-    Then Stdout contains "judge(s) tested successfully"
+    Then Stdout contains "All 1 judge(s) and 1 tests passed"
     And Exit code is zero
 
   Scenario: Simple test of no packs
@@ -28,5 +28,36 @@ Feature: Test
       $foo = 42
     """
     Then I run bin/judges with "test --lib mylib mypacks"
-    Then Stdout contains "All 1 judge(s) tested successfully"
+    Then Stdout contains "All 1 judge(s) and 0 tests passed"
     And Exit code is zero
+
+  Scenario: Enable only one category
+    Given I make a temp directory
+    Then I have a "mypacks/good/good.rb" file with content:
+    """
+    n = $fb.insert
+    """
+    Then I have a "mypacks/good/good.yml" file with content:
+    """
+    ---
+    category: good
+    input: []
+    """
+    Then I have a "mypacks/bad/bad.rb" file with content:
+    """
+    broken$ruby$syntax
+    """
+    Then I have a "mypacks/bad/bad.yml" file with content:
+    """
+    ---
+    category: bad
+    """
+    Then I run bin/judges with "test --enable good mypacks"
+    Then Stdout contains "All 2 judge(s) and 1 tests passed"
+    And Exit code is zero
+    Then I run bin/judges with "test --disable bad mypacks"
+    Then Stdout contains "All 2 judge(s) and 1 tests passed"
+    And Exit code is zero
+    Then I run bin/judges with "test --enable bad mypacks"
+    Then Stdout contains "Testing mypacks/bad/bad.yml"
+    And Exit code is not zero

data/features/trim.feature

@@ -1,17 +1,16 @@
 Feature: Trim
   I want to trim a factbase
 
-  Scenario: Simple trimming of a factbase
+  Scenario: Simple trimming of a factbase, with a query
     Given I make a temp directory
-    Then I run bin/judges with "--verbose eval simple.fb '$fb.insert.time = Time.now - 100 * 60 * 60 * 24'"
-    Then I run bin/judges with "--verbose update . simple.fb"
-    Given I run bin/judges with "trim --days 5 simple.fb"
+    Then I run bin/judges with "--verbose eval simple.fb '$fb.insert.foo = 42'"
+    Given I run bin/judges with "trim --query '(eq foo 42)' simple.fb"
     Then Stdout contains "1 fact(s) deleted"
     And Exit code is zero
 
-  Scenario: Simple trimming of a factbase, with a query
+  Scenario: Delete nothing by default
     Given I make a temp directory
     Then I run bin/judges with "--verbose eval simple.fb '$fb.insert.foo = 42'"
-    Given I run bin/judges with "trim --query '(eq foo 42)' simple.fb"
-    Then Stdout contains "1 fact(s) deleted"
+    Given I run bin/judges with "trim simple.fb"
+    Then Stdout contains "No facts deleted"
     And Exit code is zero

data/fixtures/try/try.rb

@@ -20,7 +20,7 @@
 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 # SOFTWARE.
 
-once($fb).query("(and (exists number) (lt time #{Time.now.utc.iso8601}))").each do |f|
+each_once($fb, "(and (exists number) (lt time #{Time.now.utc.iso8601}))") do |f|
   n = $fb.insert
   n.guess = f.number
 end

data/judges.gemspec

@@ -26,14 +26,15 @@ Gem::Specification.new do |s|
   s.required_rubygems_version = Gem::Requirement.new('>= 0') if s.respond_to? :required_rubygems_version=
   s.required_ruby_version = '>=3.2'
   s.name = 'judges'
-  s.version = '0.0.32'
+  s.version = '0.0.34'
   s.license = 'MIT'
   s.summary = 'Command-Line Tool for a Factbase'
-  s.description = '
-  Runs a collection of \"judges\" against a \"factbase,\" modifying it and updating.
-  Also, helps printing a factbase, merge with another one, inspect, and so on.
-  Also, helps run automated tests for a set of judges.
-  '
+  s.description =
+    'A command-line tool that runs a collection of \"judges\" ' \
+    'against a \"factbase,\" modifying ' \
+    'it and updating. Also, helps printing a factbase, merge with ' \
+    'another one, inspect, and so on. Also, helps run automated tests ' \
+    'for a set of judges.'
   s.authors = ['Yegor Bugayenko']
   s.email = 'yegor256@gmail.com'
   s.homepage = 'http://github.com/yegor256/judges'
@@ -42,7 +43,7 @@ Gem::Specification.new do |s|
   s.rdoc_options = ['--charset=UTF-8']
   s.extra_rdoc_files = ['README.md', 'LICENSE.txt']
   s.add_runtime_dependency 'backtrace', '~> 0.3'
-  s.add_runtime_dependency 'factbase', '~>0.0.30'
+  s.add_runtime_dependency 'factbase', '~>0.0.38'
   s.add_runtime_dependency 'gli', '~>2.21'
   s.add_runtime_dependency 'loog', '~>0.2'
   s.add_runtime_dependency 'nokogiri', '~> 1.10'

data/lib/judges/categories.rb

@@ -0,0 +1,51 @@
+# frozen_string_literal: true
+
+# Copyright (c) 2024 Yegor Bugayenko
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the 'Software'), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require_relative '../judges'
+
+# Categories of tests.
+# Author:: Yegor Bugayenko (yegor256@gmail.com)
+# Copyright:: Copyright (c) 2024 Yegor Bugayenko
+# License:: MIT
+class Judges::Categories
+  # Ctor.
+  # @param [Array<String>] enable List of categories to enable
+  # @param [Array<String>] disable List of categories to enable
+  def initialize(enable, disable)
+    @enable = enable.is_a?(Array) ? enable : []
+    @disable = disable.is_a?(Array) ? disable : []
+  end
+
+  # This test is good to go, with this list of categories?
+  # @param [Array<String>] cats List of them
+  # @return [Boolean] True if yes
+  def ok?(cats)
+    cats = [] if cats.nil?
+    cats = [cats] unless cats.is_a?(Array)
+    cats.each do |c|
+      return false if @disable.any? { |d| d == c }
+      return true if @enable.any? { |d| d == c }
+    end
+    return true if @enable.empty?
+    false
+  end
+end

data/lib/judges/commands/test.rb

@@ -29,6 +29,7 @@ require_relative '../../judges'
 require_relative '../../judges/to_rel'
 require_relative '../../judges/packs'
 require_relative '../../judges/options'
+require_relative '../../judges/categories'
 require_relative '../../judges/elapsed'
 
 # Test.
@@ -45,7 +46,8 @@ class Judges::Test
     dir = args[0]
     @loog.info("Testing judges in #{dir.to_rel}...")
     errors = []
-    done = 0
+    packs = 0
+    tests = 0
     elapsed(@loog) do
       Judges::Packs.new(dir, opts['lib'], @loog).each_with_index do |p, i|
         next unless include?(opts, p.name)
@@ -56,22 +58,32 @@ class Judges::Test
             @loog.info("Skippped #{f.to_rel}")
             next
           end
-          @loog.info("Testing #{f.to_rel}:")
+          unless Judges::Categories.new(opts['enable'], opts['disable']).ok?(yaml['category'])
+            @loog.info("Skippped #{f.to_rel} because of its category")
+            next
+          end
+          @loog.info("🛠️ Testing #{f.to_rel}:")
           begin
-            test_one(p, yaml)
+            test_one(opts, p, yaml)
+            tests += 1
           rescue StandardError => e
             @loog.warn(Backtrace.new(e))
             errors << f
           end
         end
-        done += 1
+        packs += 1
       end
-      throw :'👍 No judges tested' if done.zero?
-      throw :"👍 All #{done} judge(s) tested successfully" if errors.empty?
-      throw :"❌ #{done} judge(s) tested, #{errors.size} of them failed"
+      throw :'👍 No judges tested' if packs.zero?
+      throw :"👍 All #{packs} judge(s) and #{tests} tests passed" if errors.empty?
+      throw :"❌ #{packs} judge(s) tested, #{errors.size} of them failed"
+    end
+    unless errors.empty?
+      raise "#{errors.size} tests failed" unless opts['quiet']
+      @loog.debug('Not failing the build with tests failures, due to the --quiet option')
     end
-    raise "#{errors.size} tests failed" unless opts['quiet'] || errors.empty?
-    raise 'No judges tested :(' unless opts['quiet'] || !done.zero?
+    return unless packs.zero?
+    raise 'No judges tested :(' unless opts['quiet']
+    @loog.debug('Not failing the build with no judges tested, due to the --quiet option')
   end
 
   private
@@ -82,9 +94,10 @@ class Judges::Test
     packs.include?(name)
   end
 
-  def test_one(pack, yaml)
+  def test_one(opts, pack, yaml)
     fb = Factbase.new
-    yaml['input'].each do |i|
+    inputs = yaml['input']
+    inputs&.each do |i|
       f = fb.insert
       i.each do |k, vv|
         if vv.is_a?(Array)
@@ -96,9 +109,12 @@ class Judges::Test
         end
       end
     end
-    pack.run(Factbase::Looged.new(fb, @loog), {}, {}, Judges::Options.new(yaml['options']))
+    options = Judges::Options.new(opts['option']) + Judges::Options.new(yaml['options'])
+    pack.run(Factbase::Looged.new(fb, @loog), {}, {}, options)
+    xpaths = yaml['expected']
+    return if xpaths.nil?
     xml = Nokogiri::XML.parse(Factbase::ToXML.new(fb).xml)
-    yaml['expected'].each do |xp|
+    xpaths.each do |xp|
       raise "#{pack.script} doesn't match '#{xp}':\n#{xml}" if xml.xpath(xp).empty?
     end
   end

data/lib/judges/commands/trim.rb

@@ -38,17 +38,8 @@ class Judges::Trim
     raise 'Exactly one argument required' unless args.size == 1
     impex = Judges::Impex.new(@loog, args[0])
     fb = impex.import
-    query = opts['query']
-    if query.nil?
-      days = opts['days']
-      day = Time.now - (days * 60 * 60 * 24)
-      query = "(lt time #{day.utc.iso8601})"
-      @loog.info("Deleting facts that are older than #{days} days")
-    else
-      raise 'Specify either --days or --query' unless opts['days'].nil?
-    end
     elapsed(@loog) do
-      deleted = fb.query(query).delete!
+      deleted = fb.query(opts['query']).delete!
       throw :'No facts deleted' if deleted.zero?
       impex.export(fb)
       throw :"🗑 #{deleted} fact(s) deleted"

data/lib/judges/fb/if_absent.rb

@@ -31,9 +31,9 @@ def if_absent(fb)
   q = attrs.map do |k, v|
     vv = v.to_s
     if v.is_a?(String)
-      vv = "'#{vv.gsub('"', '\\"').gsub("'", "\\'")}'"
+      vv = "'#{vv.gsub('"', '\\\\"').gsub("'", "\\\\'")}'"
     elsif v.is_a?(Time)
-      vv = v.iso8601
+      vv = v.utc.iso8601
     end
     "(eq #{k} #{vv})"
   end.join(' ')
@@ -55,8 +55,11 @@ class Judges::Accumulator
 
   def method_missing(*args)
     k = args[0]
-    raise "Unexpected interation with the fact: '#{k}'" unless k.end_with?('=')
-    @map[k[0..-2]] = args[1]
+    if k.end_with?('=')
+      @map[k[0..-2].to_sym] = args[1]
+    else
+      @map[k.to_sym]
+    end
   end
 
   # rubocop:disable Style/OptionalBooleanParameter

data/lib/judges/fb/once.rb

@@ -21,43 +21,34 @@
 # SOFTWARE.
 
 require 'judges'
-
-# Returns a decorated global factbase, which only touches facts once
-def once(fb, judge: $judge)
-  Judges::Once.new(fb, judge)
-end
-
-# Runs only once.
-# Author:: Yegor Bugayenko (yegor256@gmail.com)
-# Copyright:: Copyright (c) 2024 Yegor Bugayenko
-# License:: MIT
-class Judges::Once
-  def initialize(fb, func)
-    @fb = fb
-    @func = func
-  end
-
-  def query(expr)
-    expr = "(and #{expr} (not (eq seen '#{@func}')))"
-    After.new(@fb.query(expr), @func)
-  end
-
-  def insert
-    @fb.insert
+require 'factbase/tuples'
+
+# Returns a decorated global factbase, which only touches facts once.
+def each_once(fb, query, judge: $judge)
+  return to_enum(__method__, fb, query, judge:) unless block_given?
+  q = "(and #{query} (not (eq seen '#{judge}')))"
+  fb.query(q).each do |f|
+    yield f
+    f.seen = judge
   end
+end
 
-  # What happens after a fact is processed.
-  class After
-    def initialize(query, func)
-      @query = query
-      @func = func
+# Returns a decorated global factbase, which only touches a tuple once.
+def each_tuple_once(fb, *queries, judge: $judge)
+  return to_enum(__method__, fb, *queries, judge:) unless block_given?
+  qq = queries.map { |q| "(and #{q} (not (eq seen '#{judge}')))" }
+  Factbase::Tuples.new(fb, qq).each do |fs|
+    yield fs
+    fs.each do |f|
+      f.seen = judge
     end
+  end
+end
 
-    def each
-      @query.each do |f|
-        yield f
-        f.seen = @func
-      end
+def each_tuple_once_txn(fb, *queries, judge: $judge)
+  fb.txn do |fbt|
+    each_tuple_once(fb, *queries, judge:) do |fs|
+      yield [fbt] + fs
     end
   end
 end

data/lib/judges/options.rb

@@ -28,11 +28,21 @@ require_relative '../judges'
 # License:: MIT
 class Judges::Options
   # Ctor.
-  # @param pairs [Array<String>] List of pairs, like ["token=af73cd3", "max_speed=1"]
+  # @param [Array<String>] pairs List of pairs, like ["token=af73cd3", "max_speed=1"]
   def initialize(pairs = nil)
     @pairs = pairs
   end
 
+  def +(other)
+    touch # this will trigger method_missing() method, which will create @hash
+    h = @hash.dup
+    other.touch # this will trigger method_missing() method, which will create @hash
+    other.instance_variable_get(:@hash).each do |k, v|
+      h[k] = v
+    end
+    Judges::Options.new(h.map { |k, v| "#{k}=#{v}" })
+  end
+
   # Convert them all to a string (printable in a log).
   def to_s
     touch # this will trigger method_missing() method, which will create @hash

data/lib/judges/pack.rb

@@ -58,7 +58,6 @@ class Judges::Pack
     raise "Can't load '#{s}'" unless File.exist?(s)
     elapsed(@loog) do
       load(s, true)
-      throw :"#{name} finished"
     ensure
       $fb = $judge = $options = $loog = nil
     end

data/lib/judges.rb

@@ -24,4 +24,6 @@
 # Author:: Yegor Bugayenko (yegor256@gmail.com)
 # Copyright:: Copyright (c) 2024 Yegor Bugayenko
 # License:: MIT
-module Judges; end
+module Judges
+  VERSION = '0.0.34'
+end

data/test/commands/test_trim.rb

@@ -39,7 +39,7 @@ class TestTrim < Minitest::Test
       before.insert.time = Time.now + 1
       before.insert.time = Time.now - (100 * 24 * 60 * 60)
       File.binwrite(file, before.export)
-      Judges::Trim.new(Loog::NULL).run({ 'days' => 10 }, [file])
+      Judges::Trim.new(Loog::NULL).run({ 'query' => "(lt time #{Time.now.utc.iso8601})" }, [file])
       after = Factbase.new
       after.import(File.binread(file))
       assert_equal(1, after.size)

data/test/fb/test_if_absent.rb

@@ -60,6 +60,13 @@ class TestIfAbsent < Minitest::Test
     assert_equal(42, n.foo)
   end
 
+  def test_injects_and_reads
+    if_absent(Factbase.new) do |f|
+      f.foo = 42
+      assert_equal(42, f.foo)
+    end
+  end
+
   def test_complex_ignores
     fb = Factbase.new
     f1 = fb.insert
@@ -86,7 +93,7 @@ class TestIfAbsent < Minitest::Test
     f1.z = t
     f1.bar = 3.14
     n = if_absent(fb) do |f|
-      f.foo = "hello, \\\"dude\\\" \\' \\' ( \n\n ) (!"
+      f.foo = "hello, \\\"dude\\\" \\' \\' ( \n\n ) (!   '"
       f.abc = 42
       f.z = t + 1
       f.bar = 3.15

data/test/fb/test_once.rb

@@ -21,7 +21,6 @@
 # SOFTWARE.
 
 require 'minitest/autorun'
-require 'tmpdir'
 require 'factbase'
 require_relative '../../lib/judges'
 require_relative '../../lib/judges/fb/once'
@@ -32,9 +31,58 @@ require_relative '../../lib/judges/fb/once'
 # License:: MIT
 class TestOnce < Minitest::Test
   def test_touch_once
-    fb = once(Factbase.new, judge: 'something')
+    fb = Factbase.new
     fb.insert
-    fb.query('()').each { |f| f.foo = 42 }
-    assert(fb.query('()').extend(Enumerable).to_a.empty?)
+    assert(!each_once(fb, '(always)', judge: 'something').to_a.empty?)
+    assert(each_once(fb, '(always)', judge: 'something').to_a.empty?)
+  end
+
+  def test_seen_property
+    fb = Factbase.new
+    f1 = fb.insert
+    f1.foo = 42
+    assert_equal(1, each_tuple_once(fb, '(eq foo 42)', judge: 'x').to_a.size)
+    assert(each_tuple_once(fb, '(eq foo 42)', judge: 'x').to_a.empty?)
+  end
+
+  def test_seen_all_or_nothing
+    fb = Factbase.new
+    f1 = fb.insert
+    f1.a = 1
+    assert(each_tuple_once(fb, '(exists a)', '(exists b)', judge: 'x').to_a.empty?)
+    f2 = fb.insert
+    f2.b = 1
+    assert(!each_tuple_once(fb, '(exists a)', '(exists b)', judge: 'x').to_a.empty?)
+    assert(each_tuple_once(fb, '(exists a)', '(exists b)', judge: 'x').to_a.empty?)
+  end
+
+  def test_with_txn
+    fb = Factbase.new
+    f1 = fb.insert
+    f1.foo = 42
+    each_tuple_once(fb, '(exists foo)', judge: 'xx') do |fs|
+      fb.txn do |fbt|
+        f = fbt.insert
+        f.bar = 1
+      end
+      fs[0].xyz = 'hey'
+    end
+    assert_equal(1, fb.query('(exists seen)').each.to_a.size)
+    assert_equal(1, fb.query('(exists bar)').each.to_a.size)
+    assert_equal(1, fb.query('(exists xyz)').each.to_a.size)
+  end
+
+  def test_with_chain_txn
+    fb = Factbase.new
+    f1 = fb.insert
+    f1.foo = 42
+    each_tuple_once_txn(fb, '(exists foo)', judge: 'xx') do |fbt, ff|
+      f = fbt.insert
+      f.bar = 1
+      ff.xyz = 'hey'
+    end
+    assert_equal(1, fb.query('(exists seen)').each.to_a.size)
+    assert_equal(1, fb.query('(exists bar)').each.to_a.size)
+    assert_equal(1, fb.query('(exists xyz)').each.to_a.size)
   end
 end

data/test/test_categories.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+# Copyright (c) 2024 Yegor Bugayenko
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the 'Software'), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'minitest/autorun'
+require_relative '../lib/judges'
+require_relative '../lib/judges/categories'
+
+# Test.
+# Author:: Yegor Bugayenko (yegor256@gmail.com)
+# Copyright:: Copyright (c) 2024 Yegor Bugayenko
+# License:: MIT
+class TestCategories < Minitest::Test
+  def test_basic
+    cats = Judges::Categories.new(%w[foo bar], ['bad'])
+    assert(cats.ok?(%w[foo other]))
+    assert(cats.ok?(%w[other more bar]))
+    assert(!cats.ok?(%w[bad other]))
+    assert(!cats.ok?(['other']))
+    assert(!cats.ok?('hey'))
+    assert(!cats.ok?(nil))
+  end
+
+  def test_all_enabled
+    cats = Judges::Categories.new([], ['bad'])
+    assert(cats.ok?(nil))
+    assert(cats.ok?('hey'))
+    assert(cats.ok?(%w[foo other]))
+    assert(cats.ok?(%w[other more bar]))
+    assert(!cats.ok?(%w[bad other]))
+  end
+end

data/test/test_options.rb

@@ -75,4 +75,12 @@ class TestOptions < Minitest::Test
     assert(s.include?('foo → "44"'))
     assert(s.include?('"long********************"'))
   end
+
+  def test_merge
+    left = Judges::Options.new(['a = 1', 'b = 4'])
+    right = Judges::Options.new(['a = 44', 'c = 3'])
+    opts = left + right
+    assert_equal(44, opts.a)
+    assert_equal(3, opts.c)
+  end
 end

data/test/test_pack.rb

@@ -57,7 +57,7 @@ class TestPack < Minitest::Test
 
   def test_with_supplemenary_functions
     Dir.mktmpdir do |d|
-      File.write(File.join(d, 'x.rb'), 'once($fb).insert')
+      File.write(File.join(d, 'x.rb'), 'each_once($fb, "(always)").to_a')
       pack = Judges::Pack.new(d, nil, Loog::NULL)
       pack.run(Factbase.new, {}, {}, {})
     end
@@ -97,14 +97,14 @@ class TestPack < Minitest::Test
     Dir.mktmpdir do |d|
       dir = File.join(d, 'packs')
       FileUtils.mkdir_p(dir)
-      File.write(File.join(dir, 'x.rb'), 'once($fb).insert.bar = $foo')
+      File.write(File.join(dir, 'x.rb'), '$fb.insert.bar = $foo; each_once($fb, "(always)").to_a')
       lib = File.join(d, 'lib')
       FileUtils.mkdir_p(lib)
       File.write(File.join(lib, 'y.rb'), '$foo = 42')
       pack = Judges::Pack.new(dir, lib, Loog::NULL)
       fb = Factbase.new
       pack.run(fb, {}, {}, {})
-      assert_equal(42, fb.query('()').each.to_a.first.bar)
+      assert_equal(42, fb.query('(always)').each.to_a.first.bar)
     end
   end
 

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: judges
 version: !ruby/object:Gem::Version
-  version: 0.0.32
+  version: 0.0.34
 platform: ruby
 authors:
 - Yegor Bugayenko
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2024-05-24 00:00:00.000000000 Z
+date: 2024-05-27 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: backtrace
@@ -30,14 +30,14 @@ dependencies:
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: 0.0.30
+        version: 0.0.38
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: 0.0.30
+        version: 0.0.38
 - !ruby/object:Gem::Dependency
   name: gli
   requirement: !ruby/object:Gem::Requirement
@@ -80,10 +80,9 @@ dependencies:
     - - "~>"
       - !ruby/object:Gem::Version
         version: '1.10'
-description: "\n  Runs a collection of \\\"judges\\\" against a \\\"factbase,\\\"
-  modifying it and updating.\n  Also, helps printing a factbase, merge with another
-  one, inspect, and so on.\n  Also, helps run automated tests for a set of judges.\n
-  \ "
+description: A command-line tool that runs a collection of \"judges\" against a \"factbase,\"
+  modifying it and updating. Also, helps printing a factbase, merge with another one,
+  inspect, and so on. Also, helps run automated tests for a set of judges.
 email: yegor256@gmail.com
 executables:
 - judges
@@ -131,6 +130,7 @@ files:
 - fixtures/try/try.rb
 - judges.gemspec
 - lib/judges.rb
+- lib/judges/categories.rb
 - lib/judges/commands/eval.rb
 - lib/judges/commands/import.rb
 - lib/judges/commands/inspect.rb
@@ -159,6 +159,7 @@ files:
 - test/fb/test_if_absent.rb
 - test/fb/test_once.rb
 - test/test__helper.rb
+- test/test_categories.rb
 - test/test_impex.rb
 - test/test_judges.rb
 - test/test_options.rb