lizarb 0 → 1.0.1

data/lib/{viral.rb → happy_system.rb}

@@ -1,8 +1,12 @@
 # frozen_string_literal: true
 
-require_relative "viral/version"
-
-module Viral
+class HappySystem < Liza::System
   class Error < StandardError; end
   # Your code goes here...
+
+  #
+
+  set :log_color, :magenta
+
+  #
 end

data/lib/liza/base/box.rb

@@ -0,0 +1,40 @@
+module Liza
+  class Box < Unit
+    inherited_explicitly_sets_system
+
+    def self.has_panel symbol, panel_name = symbol
+      system_klass = get :system
+      panel_class = system_klass.const "#{symbol}_panel"
+
+      _has_panel_define panel_name, "get(:panels)[:#{panel_name}]"
+
+      panel = panel_class.new panel_name
+      add :panels, panel_name, panel
+
+      panel_class.on_connected self
+    end
+
+    def self.has_controller symbol, panel_name = symbol
+      system_klass = get :system
+      controller_class = system_klass.const symbol
+
+      panel = public_send panel_name
+
+      controller_class.on_connected self, panel
+    end
+
+    def self._has_panel_define name, resource
+      class_eval <<-CODE, __FILE__, __LINE__ + 1
+
+def self.#{name} &block
+  if block_given?
+    #{resource}.instance_eval &block
+  else
+    #{resource}
+  end
+end
+
+      CODE
+    end
+  end
+end

data/lib/liza/base/box_test.rb

@@ -0,0 +1,12 @@
+module Liza
+  class BoxTest < UnitTest
+    test :subject_class do
+      assert subject_class == Liza::Box
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :white
+    end
+  end
+end

data/lib/liza/base/controller.rb

@@ -0,0 +1,27 @@
+module Liza
+  class Controller < Unit
+    inherited_explicitly_sets_system
+
+    def self.on_connected box_klass, panel
+      set :box, box_klass
+      set :panel, panel
+    end
+
+    def self.box
+      get :box
+    end
+
+    def self.panel
+      get :panel
+    end
+
+    def box
+      self.class.box
+    end
+
+    def panel
+      self.class.panel
+    end
+
+  end
+end

data/lib/liza/base/controller_test.rb

@@ -0,0 +1,12 @@
+module Liza
+  class ControllerTest < UnitTest
+    test :subject_class do
+      assert subject_class == Liza::Controller
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :white
+    end
+  end
+end

data/lib/liza/base/panel.rb

@@ -0,0 +1,38 @@
+module Liza
+  class Panel < Unit
+    inherited_explicitly_sets_system
+
+    def self.on_connected box_klass
+      set :box, box_klass
+    end
+
+    def self.box
+      get :box
+    end
+
+    def box
+      self.class.box
+    end
+
+    def initialize name
+      @name = name
+    end
+
+    def log string
+      source = box.to_s
+
+      x = source.size
+
+      source = source.bold.colorize log_color
+
+      y = source.size
+
+      source = "#{source}.#{@name}".ljust(LOG_JUST+y-x)
+
+      string = "#{source} #{string}"
+
+      super string
+    end
+
+  end
+end

data/lib/liza/base/panel_test.rb

@@ -0,0 +1,16 @@
+module Liza
+  class PanelTest < UnitTest
+    test :subject_class do
+      assert subject_class == Liza::Panel
+    end
+
+    def subject
+      subject_class.new "name"
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :white
+    end
+  end
+end

data/lib/liza/meta/part.rb

@@ -0,0 +1,19 @@
+module Liza
+  class Part < Unit
+    def self.insertion &block
+      if block_given?
+        @insertion = block
+      else
+        @insertion
+      end
+    end
+
+    def self.extension &block
+      if block_given?
+        @extension = block
+      else
+        @extension
+      end
+    end
+  end
+end

data/lib/liza/meta/part_extension.rb

@@ -0,0 +1,13 @@
+module Liza
+  class PartExtension
+    def self.solder
+      @solder ||= Liza.const first_namespace
+    end
+
+    def initialize solder
+      @solder = solder
+    end
+
+    attr_reader :solder
+  end
+end

data/lib/liza/meta/part_test.rb

@@ -0,0 +1,8 @@
+module Liza
+  class PartTest < Test
+    test :subject_class do
+      assert subject_class == Liza::Part
+    end
+
+  end
+end

data/lib/liza/meta/system.rb

@@ -0,0 +1,20 @@
+module Liza
+  class System < Unit
+
+    def self.const name
+      const_get name.to_s.camelize
+    end
+
+    def self.insertion key, &block
+      if block_given?
+        registrar[:"insertion_#{key}"] = block
+      else
+        registrar[:"insertion_#{key}"]
+      end
+    end
+
+    def self.registrar
+      @registrar ||= {}
+    end
+  end
+end

data/lib/liza/meta/system_test.rb

@@ -0,0 +1,13 @@
+module Liza
+  class SystemTest < UnitTest
+    test :subject_class do
+      assert subject_class == Liza::System
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :white
+    end
+
+  end
+end

data/lib/liza/test/test.rb

@@ -0,0 +1,11 @@
+module Liza
+  class Test < Unit
+
+    part :test_assertions
+    part :test_dsl
+    part :test_context
+    part :test_subject
+
+  end
+end
+

data/lib/liza/test/test_test.rb

@@ -0,0 +1,108 @@
+module Liza
+  class TestTest < Test
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :white
+    end
+
+    group :basics do
+      test :truths do
+        assert true
+        assert true
+        assert true
+      end
+
+      test :falsehoods do
+        refute false
+        refute false
+        refute false
+      end
+
+      test :assertions do
+        assert assertions == 0
+        refute assertions != 1
+        assert assertions == 2
+      end
+    end
+
+    test :instance_groups do
+      assert assertions == 0
+
+      group do
+        assert true
+        assert true
+        assert true
+      end
+
+      assert assertions == 2
+
+      group do
+        assert true
+        group do
+          assert true
+        end
+        assert true
+      end
+
+      assert assertions == 4
+    end
+
+    group do
+      before do
+        @a = true
+        assert @a
+      end
+
+      group do
+        before do
+          refute @b
+          @b = true
+        end
+
+        test :Test, :inner do
+          assert @a
+          assert @b
+        end
+      end
+
+      test :Test, :outer do
+        assert @a
+        refute @b
+      end
+
+      after do
+        assert @a
+        refute @b
+      end
+    end
+
+    # group :throwables do
+    #   test :throw_within_test do
+    #     assert! true
+    #     assert! false
+    #     raise "it should not have reached this line"
+    #   end
+
+    #   group :throw_within_before do
+    #     before do
+    #       assert! false
+    #     end
+
+    #     test :that_will_not_run do
+    #       raise "it should not have reached this line"
+    #     end
+    #   end
+
+    #   group :throw_within_after do
+    #     test :that_will_not_run do
+    #       assert! false
+    #     end
+
+    #     after do
+    #       raise "it should not have reached this line"
+    #     end
+    #   end
+    # end
+  end
+end

data/lib/liza/test_parts/test_assertions_part.rb

@@ -0,0 +1,110 @@
+module Liza
+  class TestAssertionsPart < Part
+    insertion do
+      # CLASS
+
+      def self.totals
+        @totals ||= {
+                      todos: [],
+                      passes: [],
+                      fails: [],
+                      errors: [],
+                    }
+      end
+
+      def self._assertion_todo msg
+        self.totals[:todos] << msg
+      end
+
+      def self._assertion_passed
+        self.totals[:passes] << 1
+      end
+
+      def self._assertion_failed msg
+        self.totals[:fails] << msg
+      end
+
+      def self._assertion_errored e
+        self.totals[:errors] << e
+      end
+
+      # INSTANCE
+
+      attr_writer :assertions
+
+      def assertions
+        @assertions ||= 0
+      end
+
+      def _inc_assertions
+        self.assertions += 1
+      end
+
+      # ASSERTIONS
+
+      def todo msg
+        self.class._assertion_todo msg
+        @last_result = :todo
+
+        _assertion_log __method__, caller if _groups.empty?
+      end
+
+      def _groups
+        @_groups ||= []
+      end
+
+      def group kaller: nil, **_words, &block
+        block_given? || raise(ArgumentError, "No block given")
+
+        _groups << block
+        instance_exec &block
+        _groups.pop
+
+        kaller ||= caller
+        _assertion_log __method__, kaller if _groups.empty?
+      end
+
+      def assert b, msg = "it should have been true", kaller: nil
+        if b
+          self.class._assertion_passed
+          @last_result = :passed
+        else
+          self.class._assertion_failed msg
+          @last_result = :failed
+        end
+
+        kaller ||= caller
+        _assertion_log __method__, kaller if _groups.empty?
+
+        b
+      end
+
+      def refute b, msg = "it should have been false", kaller: nil
+        if b
+          self.class._assertion_failed msg
+          @last_result = :failed
+        else
+          self.class._assertion_passed
+          @last_result = :passed
+        end
+
+        kaller ||= caller
+        _assertion_log __method__, kaller if _groups.empty?
+
+        b
+      end
+
+      def assert! b, msg = "it should have been true"
+        critical assert b, msg, kaller: caller
+      end
+
+      def refute! b, msg = "it should have been false"
+        critical refute b, msg, kaller: caller
+      end
+
+      def critical passed
+        throw :critical, :critical if not passed
+      end
+    end
+  end
+end

data/lib/liza/test_parts/test_context_part.rb

@@ -0,0 +1,81 @@
+module Liza
+  class TestContextPart < Part
+
+    insertion do
+      def self.context
+        @context ||= Liza::TestContextPart::Extension.new self
+      end
+
+      def self.before &block
+        block_given? || raise(ArgumentError, "No block given")
+
+        context.add_before block
+      end
+
+      def self.after &block
+        block_given? || raise(ArgumentError, "No block given")
+
+        context.add_after block
+      end
+
+      def self.group *_words, &block
+        block_given? || raise(ArgumentError, "No block given")
+
+        context.open_group
+        instance_exec &block
+        context.close_group
+      end
+    end
+
+    extension do
+      # group
+
+      def open_group
+        befores.push befores.last.dup
+        afters.push afters.last.dup
+      end
+
+      def close_group
+        befores.pop
+        afters.pop
+      end
+
+      # before
+
+      def befores
+        @befores ||= _befores_from_superclass + [[]]
+      end
+
+      def add_before block
+        befores.last.push block
+      end
+
+      def _befores_from_superclass
+        if solder.superclass.respond_to? :context
+          solder.superclass.context.befores.dup
+        else
+          []
+        end
+      end
+
+      # after
+
+      def afters
+        @afters ||= _afters_from_superclass + [[]]
+      end
+
+      def add_after block
+        afters.last.push block
+      end
+
+      def _afters_from_superclass
+        if solder.superclass.respond_to? :context
+          solder.superclass.context.afters.dup
+        else
+          []
+        end
+      end
+    end
+
+  end
+end

data/lib/liza/test_parts/test_dsl_part.rb

@@ -0,0 +1,122 @@
+module Liza
+  class TestDslPart < Part
+    insertion do
+      def self.test *words, &block
+        Liza.log "#{inspect}.test #{words}, &block"
+        block_given? || raise(ArgumentError, "No block given")
+
+        key = [
+          block.source_location,
+          'b',
+          context.befores.flatten.map(&:source_location),
+          'a',
+          context.afters.flatten.map(&:source_location),
+        ].flatten.join("-")
+
+        key.gsub! Lizarb::CUR_DIR, ""
+
+        instances[key] ||= new  words,
+                                context.befores.flatten.uniq,
+                                context.afters.flatten.uniq,
+                                &block
+      end
+
+      def self.instances
+        @instances ||= {}
+      end
+
+      def self.call class_index, class_count
+        counter_class = "#{class_index.to_s.rjust 3, "0"}/#{class_count.to_s.rjust 3, "0"}"
+
+        puts "- #{counter_class} #{self} (#{instances.size} tests)".cyan
+
+        instances.values.each_with_index do |instance, i|
+          counter_instance = "#{(i+=1).to_s.rjust 2, '0'}/#{instances.size.to_s.rjust 2, '0'}"
+          label = instance.words_as_label
+
+          puts "  #{ counter_class } #{ counter_instance } (#{ label })".light_cyan
+
+          instance.call
+        end
+      end
+
+      #
+
+      attr_reader :words
+
+      def initialize words, befores, afters, &block
+        @words, @befores, @afters, @block = words, befores, afters, block
+      end
+
+      def call
+        catch :critical do
+          @befores.each do |bl|
+            _call_log "B&", &bl
+            instance_exec &bl
+          end
+
+          bl = @block
+          _call_log " &", &bl
+          instance_exec &bl
+
+          @afters.each do |bl|
+            _call_log "A&", &bl
+            instance_exec &bl
+          end
+        end
+      rescue Exception => e
+        self.class._assertion_errored e
+        _rescue_log e
+      ensure
+        puts
+      end
+
+      def words_as_label
+        label = words.to_s
+        label = label[1..-2] if label.start_with? "["
+        label = label[1..-2] if label.start_with? "{"
+        label
+      end
+
+      def _rescue_log e
+        prefix = "error"
+
+        kaller = e.backtrace
+
+        source_location = _caller_line_split(kaller[0])[0]
+        source_location = source_location.gsub("#{Lizarb::CUR_DIR}/", "")
+
+        log "                      #{prefix}  #{source_location}"
+
+        puts "Exception!".red
+        puts e.class.to_s.red
+        puts e.message.red
+        puts
+        puts e.backtrace.join("\n").red
+      end
+
+      def _call_log prefix, &block
+        source_location = block.source_location.join(":").gsub("#{Lizarb::CUR_DIR}/", "")
+        source_location = source_location[0..-1]
+        log "          #{prefix}                 #{source_location}"
+      end
+
+      def _assertion_log method_name, kaller
+        _inc_assertions
+        method_name = method_name.to_s.ljust 6
+        prefix = "#{assertions} #{method_name} #{@last_result}"
+
+        source_location = _caller_line_split(kaller[0])[0]
+        source_location = source_location.gsub("#{Lizarb::CUR_DIR}/", "")
+
+        log "             #{prefix} #{source_location}"
+      end
+
+      def _caller_line_split s
+        x = s.split ":in `"
+        x[1] = x[1][0..-2]
+        x
+      end
+    end
+  end
+end

data/lib/liza/test_parts/test_subject_part.rb

@@ -0,0 +1,24 @@
+module Liza
+  class TestSubjectPart < Part
+
+    insertion do
+      def self.subject_class
+        @subject_class ||=
+          if first_namespace == "Liza"
+            Liza.const_get last_namespace[0..-5]
+          else
+            Object.const_get name[0..-5]
+          end
+      end
+
+      def subject_class
+        self.class.subject_class
+      end
+
+      def subject
+        @subject ||= subject_class.new
+      end
+    end
+
+  end
+end