lizarb 1.0.0 → 1.0.2

data/lib/liza/base_parts/controller_renderer_part.rb

@@ -0,0 +1,140 @@
+class Liza::ControllerRendererPart < Liza::Part
+
+  class Error < Liza::Error; end
+  class RendererNotFound < Error; end
+  class EmptyRenderStack < Error; end
+
+  EMPTY_RENDER_STACK_MESSAGE = <<~STRING
+You called render without ERB keys,
+but the render stack is empty.
+Did you forget to add ERB keys?
+  STRING
+
+  insertion do
+    # EXTENSION
+
+    def self.renderer
+      Liza::ControllerRendererPart::Extension
+    end
+
+    def renderer
+      @renderer ||= self.class.renderer.new self
+    end
+
+    # CLASS
+
+    def self.controller_ancestors
+      ancestors.take_while { |k| k != Liza::Controller }
+    end
+
+    def self.render_paths
+      @render_paths ||= controller_ancestors.map &:source_location_radical
+    end
+
+    def render_paths
+      self.class.render_paths
+    end
+
+    def self.renderers
+      @renderers ||=
+        LERB.load(source_location_radical)
+            .map { |lerb| [lerb.key, lerb] }
+            .to_h
+    end
+
+    # INSTANCE
+
+    def render *keys
+      if keys.any?
+        _log_render_in keys
+        renderer.render keys, binding, self
+      elsif renderer.stack.any?
+        renderer.stack.pop
+      else
+        raise EmptyRenderStack, EMPTY_RENDER_STACK_MESSAGE, caller
+      end
+    end
+
+    def _log_render_in keys
+      if renderer.stack.any?
+        log "render ↓ #{keys.join ", "}"
+      else
+        log "render #{"→ " * keys.size}#{keys.join ", "}"
+      end
+    end
+  end
+
+  extension do
+    # CLASS
+
+    def self.log(...)
+      solder.log(...)
+    end
+
+    # INSTANCE
+
+    def log(...)
+      self.class.log(...)
+    end
+
+    def erb_lists
+      @erb_lists ||= []
+    end
+
+    def stack
+      @stack ||= []
+    end
+
+    def render keys, the_binding, receiver
+      erbs = find_erbs_for(keys).to_a
+
+      erbs.reverse.each do |key, erb|
+        t = Time.now
+        s = erb.result the_binding, receiver
+        _log_render_out key, s.length, t.diff
+        s = wrap_comment_tags s, erb if App.mode == :code && erb.tags?
+        stack.push s.strip
+      end
+
+      stack.pop
+    end
+
+    def find_erbs_for keys
+      ret = {}
+      keys.each do |key|
+        key = "#{key}.erb"
+
+        controller = solder.class.controller_ancestors.
+          find { |controller| controller.renderers.has_key? key }
+
+        if controller
+          ret[key] = controller.renderers[key]
+        else
+          raise_renderer_not_found key
+        end
+      end
+
+      ret
+    end
+
+    def raise_renderer_not_found key
+      render_paths = solder.render_paths.map { |s| "  #{s}/#{"#{key}".red}" }.join
+      raise RendererNotFound,  %|Failed to find ERB #{key}
+Failed to find ERB #{"#{key}".red} in #{solder.class}.render_paths
+#{render_paths}|
+    end
+
+    def _log_render_out key, length, t
+      if stack.any?
+        log "render #{"↑ #{key}".ljust_blanks 20} with #{length.to_s.rjust_blanks 4} characters in #{t}s"
+      else
+        log "render #{"← #{key}".ljust_blanks 20} with #{length.to_s.rjust_blanks 4} characters in #{t}s"
+      end
+    end
+
+    def wrap_comment_tags s, erb
+      "<!-- #{erb.filename.split("/").last}:#{erb.lineno} -->\n#{s}\n<!-- #{erb.filename.split("/").last} -->"
+    end
+
+  end
+end

data/lib/liza/base_parts/controller_renderer_part_test.rb

@@ -0,0 +1,16 @@
+class Liza::ControllerRendererPartTest < Liza::Test
+
+  test :subject_class do
+    assert subject_class == Liza::ControllerRendererPart
+  end
+
+  test :settings do
+    assert subject_class.get(:log_level) == :normal
+    assert subject_class.get(:log_color) == :white
+    assert subject_class.log_level == :normal
+    assert subject_class.log_color == :white
+
+    assert subject_class.settings == {}
+  end
+
+end

data/lib/liza/meta/part_extension.rb

@@ -1,7 +1,12 @@
 module Liza
   class PartExtension
     def self.solder
-      @solder ||= Liza.const first_namespace
+      @solder ||=
+        if first_namespace == "Liza"
+          Liza.const_get last_namespace[0..-12]
+        else
+          Object.const_get name[0..-12]
+        end
     end
 
     def initialize solder

data/lib/liza/ruby_test.rb

@@ -0,0 +1,9 @@
+module Liza
+  class RubyTest < Test
+
+    def self.subject_class
+      @subject_class ||= Object.const_get last_namespace[0..-5]
+    end
+
+  end
+end

data/lib/liza/ruby_tests/module_test.rb

@@ -0,0 +1,21 @@
+class Liza::ModuleTest < Liza::RubyTest
+  
+  test :subject_class do
+    assert subject_class == Module
+  end
+
+  test :source_location do
+    assert Object.source_location == []
+
+    assert Liza::Command.source_location[1] == 2
+    assert AppCommand.source_location[1] == 1
+  end
+
+  test :source_location_radical do
+    assert Object.source_location_radical == nil
+
+    assert Liza::Command.source_location_radical.end_with? "/lib/dev_system/dev/controllers/command"
+    assert AppCommand.source_location_radical.end_with? "/app/dev/commands/app_command"
+  end
+
+end

data/lib/liza/ruby_tests/string_test.rb

@@ -0,0 +1,59 @@
+class Liza::StringTest < Liza::RubyTest
+  
+  test :subject_class do
+    assert subject_class == String
+  end
+
+  test :initializers do
+    s0 = String.new
+    s1 = ''
+    s2 = ""
+    
+    assert s0.class == String
+    assert s1.class == String
+    assert s2.class == String
+  end
+  
+  test :lpartition do
+    todo "write examples"
+  end
+  
+  test :rpartition do
+    todo "write examples"
+  end
+  
+  test :camelcase do
+    assert ""     == "".camelcase
+    assert "A"    == "a".camelcase
+    assert "Ab"   == "ab".camelcase
+    assert "AbC"  == "ab_c".camelcase
+    assert "AbCd" == "ab_cd".camelcase
+    assert "Ab"   == "ab_".camelcase
+    assert "Cd"   == "_cd".camelcase
+  end
+  
+  test :snakecase do
+    assert ""      == "".snakecase
+    assert "a"     == "A".snakecase
+    assert "ab"    == "Ab".snakecase
+    assert "ab_c"  == "AbC".snakecase
+    assert "ab_cd" == "AbCd".snakecase
+  end
+
+  test :rjust_blanks do
+    todo "write examples"
+  end
+
+  test :rjust_zeroes do
+    todo "write examples"
+  end
+
+  test :ljust_blanks do
+    todo "write examples"
+  end
+
+  test :ljust_zeroes do
+    todo "write examples"
+  end
+  
+end

data/lib/liza/test/test.rb

@@ -2,9 +2,11 @@ module Liza
   class Test < Unit
 
     part :test_assertions
+    part :test_assertions_advanced
     part :test_dsl
-    part :test_context
+    part :test_log
     part :test_subject
+    part :test_tree
 
   end
 end

data/lib/liza/test/test_test.rb

@@ -26,6 +26,74 @@ module Liza
       end
     end
 
+    group :assertions do
+      test :assert do
+        assert 0
+        assert 1
+        assert :a
+        assert "a"
+        assert ""
+        assert []
+        assert [1]
+        assert({})
+        assert({a: 1})
+        assert true
+        refute false
+        refute nil
+      end
+
+      test :assert_equality do
+        assert_equality 0, 0
+        assert_equality 1, 1
+        assert_equality :a, :a
+        assert_equality "a", "a"
+        assert_equality "", ""
+        assert_equality [], []
+        assert_equality [1], [1]
+        assert_equality({}, {})
+        assert_equality({a: 1}, {a: 1})
+        assert_equality true, true
+        refute_equality false, true
+        refute_equality nil, true
+      end
+      
+      test :assert_raises do
+        assert_raises StandardError do
+          raise RuntimeError
+        end
+
+        assert_raises RuntimeError do
+          raise RuntimeError
+        end
+
+        refute_raises RuntimeError do
+          raise StandardError
+        end
+      end
+    end
+    
+    group :instance_variables do
+      test :instance_variables do
+        assert_equality instance_variables, [:@test_words, :@before_stack, :@after_stack, :@test_block]
+      end
+
+      test :test_block do
+        assert_equality @test_block.source_location[1], __LINE__ - 1
+      end
+    end
+
+    group :tree do
+      test :test_tree do
+        assert_equality self.class.test_tree.class, Liza::TestTreePart::Extension
+        assert_equality self.class.test_tree, self.class.test_tree.parent
+        
+        assert_equality 2, self.class.test_tree.tests.count
+        assert_equality 5, self.class.test_tree.children.count
+
+        assert_equality self.class.test_tree.tests.map(&:first).flatten, [:settings, :instance_groups]
+      end
+    end
+
     test :instance_groups do
       assert assertions == 0
 
@@ -48,32 +116,57 @@ module Liza
       assert assertions == 4
     end
 
-    group do
+    group :class_groups do
       before do
-        @a = true
-        assert @a
+        @string = "START"
+        assert_equality @string, "START"
       end
 
-      group do
+      test :class_groups, :outer_a do
+        @string.concat "-123"
+        assert_equality @string, "START-123"
+        #
+        @expectation_outer = "START-123-FINISH"
+      end
+
+      test :class_groups, :outer_b do
+        @string.concat "-321"
+        assert_equality @string, "START-321"
+        #
+        @expectation_outer = "START-321-FINISH"
+      end
+
+      group :class_groups_inner do
         before do
-          refute @b
-          @b = true
+          @string.concat "-BEGIN"
+          assert_equality @string, "START-BEGIN"
         end
 
-        test :Test, :inner do
-          assert @a
-          assert @b
+        test :class_groups, :inner_a do
+          @string.concat "-aaa"
+          assert_equality @string, "START-BEGIN-aaa"
+          #
+          @expectation_inner = "START-BEGIN-aaa-END"
+          @expectation_outer = "START-BEGIN-aaa-END-FINISH"
         end
-      end
 
-      test :Test, :outer do
-        assert @a
-        refute @b
+        test :class_groups, :inner_b do
+          @string.concat "-bbb"
+          assert_equality @string, "START-BEGIN-bbb"
+          #
+          @expectation_inner = "START-BEGIN-bbb-END"
+          @expectation_outer = "START-BEGIN-bbb-END-FINISH"
+        end
+
+        after do
+          @string.concat "-END"
+          assert_equality @string, @expectation_inner
+        end
       end
 
       after do
-        assert @a
-        refute @b
+        @string << "-FINISH"
+        assert_equality @string, @expectation_outer
       end
     end
 

data/lib/liza/test_parts/test_assertions_advanced_part.rb

@@ -0,0 +1,127 @@
+module Liza
+  class TestAssertionsAdvancedPart < Part
+    insertion do
+      
+      def assert_equality a, b, msg = nil, kaller: nil
+        ret = a == b
+
+        if ret
+          self.class._assertion_passed
+          @last_result = :passed
+        else
+          self.class._assertion_failed msg
+          @last_result = :failed
+        end
+
+        kaller ||= caller
+        log_test_assertion __method__, kaller if _groups.empty?
+
+        if log_test_assertion_message?
+          msg ||= "#{__method__} #{a}, #{b} (== equality)"
+          log_test_assertion_message ret, msg
+        end
+
+        ret
+      end
+
+      def refute_equality a, b, msg = nil, kaller: nil
+        ret = a == b
+
+        if ret
+          self.class._assertion_failed msg
+          @last_result = :failed
+        else
+          self.class._assertion_passed
+          @last_result = :passed
+        end
+
+        kaller ||= caller
+        log_test_assertion __method__, kaller if _groups.empty?
+
+        if log_test_assertion_message?
+          msg ||= "#{__method__} #{a}, #{b} (== equality)"
+          log_test_assertion_message !ret, msg
+        end
+
+        ret
+      end
+
+      def assert_equality! a, b, msg = nil
+        critical assert_equality a, b, msg, kaller: caller
+      end
+
+      def refute_equality! a, b, msg = nil
+        critical refute_equality a, b, msg, kaller: caller
+      end
+
+      def assert_raises exception_klass, msg = nil, kaller: nil, &block
+        raise ArgumentError, "No block given" unless block_given?
+
+        ret = false
+        begin
+          yield
+        rescue => e
+          ret = exception_klass === e
+          error = e
+        end
+
+        if ret
+          self.class._assertion_passed
+          @last_result = :passed
+        else
+          self.class._assertion_failed msg
+          @last_result = :failed
+        end
+
+        kaller ||= caller
+        log_test_assertion __method__, kaller if _groups.empty?
+
+        if log_test_assertion_message?
+          msg ||= "#{__method__} (#{exception_klass}) #{error.inspect}"
+          log_test_assertion_message ret, msg
+        end
+
+        ret
+      end
+
+      def refute_raises exception_klass, msg = nil, kaller: nil, &block
+        raise ArgumentError, "No block given" unless block_given?
+
+        ret = false
+        begin
+          yield
+        rescue => e
+          ret = !exception_klass === e
+          error = e
+        end
+
+        if ret
+          self.class._assertion_failed msg
+          @last_result = :failed
+        else
+          self.class._assertion_passed
+          @last_result = :passed
+        end
+
+        kaller ||= caller
+        log_test_assertion __method__, kaller if _groups.empty?
+
+        if log_test_assertion_message?
+          msg ||= "#{__method__} (#{exception_klass}) #{error.inspect}"
+          log_test_assertion_message !ret, msg
+        end
+
+        ret
+      end
+
+      def assert_raises! e, msg = nil
+        critical assert_raises e, msg, kaller: caller
+      end
+
+      def refute_raises! e, msg = nil
+        critical refute_raises e, msg, kaller: caller
+      end
+
+    end
+  end
+end

data/lib/liza/test_parts/test_assertions_part.rb

@@ -5,10 +5,10 @@ module Liza
 
       def self.totals
         @totals ||= {
+                      errors: [],
                       todos: [],
-                      passes: [],
                       fails: [],
-                      errors: [],
+                      passes: [],
                     }
       end
 
@@ -46,7 +46,7 @@ module Liza
         self.class._assertion_todo msg
         @last_result = :todo
 
-        _assertion_log __method__, caller if _groups.empty?
+        log_test_assertion __method__, caller if _groups.empty?
       end
 
       def _groups
@@ -61,7 +61,7 @@ module Liza
         _groups.pop
 
         kaller ||= caller
-        _assertion_log __method__, kaller if _groups.empty?
+        log_test_assertion __method__, kaller if _groups.empty?
       end
 
       def assert b, msg = "it should have been true", kaller: nil
@@ -74,7 +74,7 @@ module Liza
         end
 
         kaller ||= caller
-        _assertion_log __method__, kaller if _groups.empty?
+        log_test_assertion __method__, kaller if _groups.empty?
 
         b
       end
@@ -89,7 +89,7 @@ module Liza
         end
 
         kaller ||= caller
-        _assertion_log __method__, kaller if _groups.empty?
+        log_test_assertion __method__, kaller if _groups.empty?
 
         b
       end
@@ -105,6 +105,7 @@ module Liza
       def critical passed
         throw :critical, :critical if not passed
       end
+
     end
   end
 end