lizarb 1.0.1 → 1.0.3

data/lib/liza/base/box_test.rb

@@ -1,12 +1,10 @@
-module Liza
-  class BoxTest < UnitTest
-    test :subject_class do
-      assert subject_class == Liza::Box
-    end
+class Liza::BoxTest < Liza::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
+  test :settings do
+    assert subject_class.log_level == :normal
+    assert subject_class.log_color == :white
   end
 end

data/lib/liza/base/controller.rb

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

data/lib/liza/base/controller_test.rb

@@ -1,12 +1,10 @@
-module Liza
-  class ControllerTest < UnitTest
-    test :subject_class do
-      assert subject_class == Liza::Controller
-    end
+class Liza::ControllerTest < Liza::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
+  test :settings do
+    assert subject_class.log_level == :normal
+    assert subject_class.log_color == :white
   end
 end

data/lib/liza/base/panel.rb

@@ -1,38 +1,54 @@
-module Liza
-  class Panel < Unit
-    inherited_explicitly_sets_system
+class Liza::Panel < Liza::Unit
+  inherited_explicitly_sets_system
 
-    def self.on_connected box_klass
-      set :box, box_klass
-    end
+  def self.on_connected box_klass
+    set :box, box_klass
+  end
 
-    def self.box
-      get :box
-    end
+  def self.box
+    get :box
+  end
 
-    def box
-      self.class.box
-    end
+  def box
+    self.class.box
+  end
 
-    def initialize name
-      @name = name
-    end
+  def initialize key
+    @key = key
+    @blocks = []
+    @unstarted = true
+  end
 
-    def log string
-      source = box.to_s
+  def push block
+    @unstarted = true
+    @blocks.push block
+  end
 
-      x = source.size
+  def started
+    return self unless defined? @unstarted
+    remove_instance_variable :@unstarted
 
-      source = source.bold.colorize log_color
+    @blocks.each { |bl| instance_eval &bl }
+    @blocks.clear
 
-      y = source.size
+    self
+  end
+  
+  def log log_level = :normal, string
+    raise "invalid log_level `#{log_level}`" unless LOG_LEVELS.keys.include? log_level
+    return unless log_level? log_level
 
-      source = "#{source}.#{@name}".ljust(LOG_JUST+y-x)
+    source = box.to_s
 
-      string = "#{source} #{string}"
+    x = source.size
+    source = source.bold.colorize log_color
 
-      super string
-    end
+    y = source.size
+    source = "#{source}[:#{@key}]".ljust(LOG_JUST+y-x)
 
+    string = "#{source} #{string}"
+    
+    DevBox[:log].call string
   end
+
 end

data/lib/liza/base/panel_test.rb

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

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.rb

@@ -1,19 +1,17 @@
-module Liza
-  class Part < Unit
-    def self.insertion &block
-      if block_given?
-        @insertion = block
-      else
-        @insertion
-      end
+class Liza::Part < Liza::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
+  def self.extension &block
+    if block_given?
+      @extension = block
+    else
+      @extension
     end
   end
 end

data/lib/liza/meta/part_extension.rb

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

data/lib/liza/meta/part_test.rb

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

data/lib/liza/meta/system.rb

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

data/lib/liza/meta/system_test.rb

@@ -1,13 +1,11 @@
-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
+class Liza::SystemTest < Liza::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

data/lib/liza/ruby_test.rb

@@ -0,0 +1,7 @@
+class Liza::RubyTest < Liza::Test
+
+  def self.subject_class
+    @subject_class ||= Object.const_get last_namespace[0..-5]
+  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] == 1
+    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

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