lizarb 1.0.4 → 1.0.6

data/lib/dev_system/subsystems/log/log_panel_test.rb

@@ -0,0 +1,152 @@
+class DevSystem::LogPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert_equality subject_class, DevSystem::LogPanel
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance \
+      :call,
+      :find,
+      :handler, :handler_keys, :handlers,
+      :method_name_for,
+      :parse,
+      :sidebar_size
+  end
+
+  test :call, :unit_log_level, :higher do
+    handler_env = nil
+
+    assert_equality subject.handlers, {}
+    subject.handlers[:test] = -> env { handler_env = env }
+
+    input_env = {
+      object_class: Object,
+      caller: caller,
+      unit_log_level: 4,
+      message_log_level: 5
+    }
+    subject.call input_env
+
+    # it has not passed the filter
+    assert_equality handler_env, nil
+  end
+
+  test :call, :unit_log_level do
+    handler_env = nil
+
+    assert_equality subject.handlers, {}
+    subject.handlers[:test] = -> env { handler_env = env }
+
+    input_env = {
+      object_class: Object,
+      caller: caller,
+      unit_log_level: 4,
+      message_log_level: 4
+    }
+    subject.call input_env
+
+    # it has passed the filter
+    assert_equality handler_env.object_id, input_env.object_id
+  end
+
+  test :call, :unit_log_level, :lower do
+    handler_env = nil
+
+    assert_equality subject.handlers, {}
+    subject.handlers[:test] = -> env { handler_env = env }
+
+    input_env = {
+      object_class: Object,
+      caller: caller,
+      unit_log_level: 4,
+      message_log_level: 3
+    }
+    subject.call input_env
+
+    # it has passed the filter
+    assert_equality handler_env.object_id, input_env.object_id
+  end
+
+  test :handler do
+    todo "write this"
+  end
+
+  test :handlers do
+    todo "write this"
+  end
+
+  test :method_name_for do
+    view = :kaller_ruby_3_3
+    view = :kaller_ruby_3_4 if Lizarb.ruby_version >= "3.4"
+    string = render view, format: :txt
+    kaller = string.split "\n"
+
+    actual = kaller.map do |line|
+      subject.method_name_for caller: [line]
+    rescue => e
+      "#{e.class}: #{e.message}"
+    end
+
+    expected = [
+      "eval",
+      "call_eval",
+      "public_send",
+      "call",
+      "call",
+      "forward",
+      "call",
+      "forward",
+      "call",
+      "<top (required)>",
+      "load",
+      "<top (required)>",
+      "load",
+      "<main>",
+    ]
+
+    assert_equality expected, actual
+  end
+
+  test :sidebar_size do
+    todo "write this"
+  end
+
+end
+
+__END__
+
+# NOTE: views were generated with `liza s:e puts caller`
+
+# view kaller_ruby_3_3.txt.erb
+/home/rubyist/lizarb/lib/dev_system/subsystems/shell/commands/shell_command.rb:106:in `eval'
+/home/rubyist/lizarb/lib/dev_system/subsystems/shell/commands/shell_command.rb:106:in `call_eval'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/commands/base_command.rb:21:in `public_send'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/commands/base_command.rb:21:in `call'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/commands/base_command.rb:8:in `call'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/parts/command_shortcut_part.rb:54:in `forward'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/command_panel.rb:14:in `call'
+/home/rubyist/lizarb/lib/liza/systemic_units/box.rb:66:in `block in forward'
+/home/rubyist/lizarb/lib/app.rb:25:in `call'
+/home/rubyist/lizarb/exe/lizarb:6:in `<top (required)>'
+/home/rubyist/.asdf/installs/ruby/3.3.5/lib/ruby/gems/3.3.0/gems/lizarb-1.0.5/exe/liza:5:in `load'
+/home/rubyist/.asdf/installs/ruby/3.3.5/lib/ruby/gems/3.3.0/gems/lizarb-1.0.5/exe/liza:5:in `<top (required)>'
+/home/rubyist/.asdf/installs/ruby/3.3.5/bin/liza:25:in `load'
+/home/rubyist/.asdf/installs/ruby/3.3.5/bin/liza:25:in `<main>'
+
+# view kaller_ruby_3_4.txt.erb
+/home/rubyist/lizarb/lib/dev_system/subsystems/shell/commands/shell_command.rb:106:in 'Kernel#eval'
+/home/rubyist/lizarb/lib/dev_system/subsystems/shell/commands/shell_command.rb:106:in 'DevSystem::ShellCommand#call_eval'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/commands/base_command.rb:21:in 'Kernel#public_send'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/commands/base_command.rb:21:in 'DevSystem::BaseCommand#call'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/commands/base_command.rb:8:in 'DevSystem::BaseCommand.call'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/parts/command_shortcut_part.rb:54:in 'DevSystem::CommandPanel#forward'
+/home/rubyist/lizarb/lib/dev_system/subsystems/command/command_panel.rb:14:in 'DevSystem::CommandPanel#call'
+/home/rubyist/lizarb/lib/liza/systemic_units/box.rb:66:in 'block in DevSystem::DevBox.forward'
+/home/rubyist/lizarb/lib/app.rb:25:in 'App.call'
+/home/rubyist/lizarb/exe/lizarb:6:in '<top (required)>'
+/home/rubyist/.asdf/installs/ruby/3.4.1/lib/ruby/gems/3.4.0/gems/lizarb-1.0.5/exe/liza:5:in 'Kernel#load'
+/home/rubyist/.asdf/installs/ruby/3.4.1/lib/ruby/gems/3.4.0/gems/lizarb-1.0.5/exe/liza:5:in '<top (required)>'
+/home/rubyist/.asdf/installs/ruby/3.4.1/bin/liza:25:in 'Kernel#load'
+/home/rubyist/.asdf/installs/ruby/3.4.1/bin/liza:25:in '<main>'

data/lib/dev_system/subsystems/log/log_test.rb

@@ -0,0 +1,19 @@
+class DevSystem::LogTest < Liza::ControllerTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::Log
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance
+  end
+
+  def call_subject_with(prefix, object, expected)
+    env = {object: object, prefix: prefix}
+    subject_class.call(env)
+    assert_equality expected, env[:object_parsed]
+    env
+  end
+
+end

data/lib/dev_system/subsystems/log/logs/array_log.rb

@@ -0,0 +1,20 @@
+class DevSystem::ArrayLog < DevSystem::Log
+  
+  def self.call(env)
+    super
+    array = env[:object]
+    env[:object_parsed] = 
+      if array.any? { _1.is_a? StickLog }
+        array.join ""
+      else
+        prefix = env[:prefix]
+        ret = ["Array of size #{array.size}"]
+        ret += array.map(&:inspect).map.with_index do |v,i|
+          "#{prefix}#{i.to_s.rjust_zeroes 3} = #{v}"
+        end
+        ret
+      end
+    true
+  end
+  
+end

data/lib/dev_system/subsystems/log/logs/array_log_test.rb

@@ -0,0 +1,49 @@
+class DevSystem::ArrayLogTest < DevSystem::LogTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::ArrayLog, subject_class
+    assert_equality DevSystem::ArrayLog, subject.class
+  end
+
+  test :call do
+    prefix = "  "
+
+    array = [1, 2, 3]
+    expected = [
+      "Array of size 3",
+      "  000 = 1",
+      "  001 = 2",
+      "  002 = 3"
+    ]
+    call_subject_with prefix, array, expected
+
+    array = ["1", "2", "3"]
+    expected = [
+      "Array of size 3",
+      '  000 = "1"',
+      '  001 = "2"',
+      '  002 = "3"'
+    ]
+    call_subject_with prefix, array, expected
+
+    array = [:a, :b, :c]
+    expected = [
+      "Array of size 3",
+      "  000 = :a",
+      "  001 = :b",
+      "  002 = :c"
+    ]
+    call_subject_with prefix, array, expected
+
+    array = [
+      (stick :red, "aaaa"),
+      " ",
+      (stick :green, "bbbb"),
+    ]
+    expected = "\e[38;2;204;0;0maaaa\e[0m \e[38;2;0;204;0mbbbb\e[0m"
+    call_subject_with prefix, array, expected
+  end
+
+end

data/lib/dev_system/subsystems/log/logs/hash_log.rb

@@ -0,0 +1,17 @@
+class DevSystem::HashLog < DevSystem::Log
+  
+  def self.call(env)
+    super
+    hash = env[:object]
+    prefix = env[:prefix]
+    size = hash.keys.map(&:to_s).map(&:size).max
+
+    ret = ["Hash of size #{hash.size}"]
+    ret += hash.map do |k,v|
+      "#{prefix}#{k.to_s.ljust size} = #{v.inspect}"
+    end
+    env[:object_parsed] = ret
+    true
+  end
+
+end

data/lib/dev_system/subsystems/log/logs/hash_log_test.rb

@@ -0,0 +1,40 @@
+class DevSystem::HashLogTest < DevSystem::LogTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::HashLog, subject_class
+    assert_equality DevSystem::HashLog, subject.class
+  end
+
+  test :call do
+    prefix = "  "
+    hash = { a: 1, b: 2, c: 3 }
+    expected = [
+      "Hash of size 3",
+      "  a = 1",
+      "  b = 2",
+      "  c = 3"
+    ]
+    call_subject_with prefix, hash, expected
+
+    hash = { a: "1", b: "2", c: "3" }
+    expected = [
+      "Hash of size 3",
+      '  a = "1"',
+      '  b = "2"',
+      '  c = "3"'
+    ]
+    call_subject_with prefix, hash, expected
+
+    hash = { a: :a, b: :b, c: :c }
+    expected = [
+      "Hash of size 3",
+      "  a = :a",
+      "  b = :b",
+      "  c = :c"
+    ]
+    call_subject_with prefix, hash, expected
+  end
+  
+end

data/lib/dev_system/subsystems/log/logs/stick_log.rb

@@ -0,0 +1,80 @@
+class DevSystem::StickLog < DevSystem::Log
+  class Error < Error; end
+  class MissingText < Error; end
+  class UnknownArg < Error; end
+
+  FORE = [255, 255, 255]
+  FORE = :black
+  STYLES = {
+    bold: :b,
+    italic: :i,
+    underlined: :u,
+  }
+
+  #
+
+  def self.bundle *args
+    index = args.index { _1.is_a? Array and _1[0].is_a? String } or raise "missing array"
+    common_args, arrays = args[0..index-1], args[index..-1]
+    space = new(" ", *common_args).to_s
+    
+    arrays.map { |array|
+      new(*[*common_args, *array])
+    }.join space
+  end
+
+  #
+
+  attr_reader :text, :fore, :back, :bold, :italic, :underlined
+
+  def initialize *args
+    bold = nil
+    italic = nil
+    underlined = nil
+    fore = nil
+    back = nil
+    text = nil
+
+    args.each do |arg|
+      next text = arg if arg.is_a? String and text.nil?
+      
+      if arg.is_a? Symbol
+        x = STYLES[arg] || arg
+        next bold       = true if x == :b
+        next italic     = true if x == :i
+        next underlined = true if x == :u
+      end
+
+      next fore = arg unless fore
+      next back = arg unless back
+      raise UnknownArg, "unknown arg #{arg.inspect}"
+    end
+
+    raise MissingText, "missing a string as text", caller[3..] unless text
+    fore ||= FORE
+
+    fore = PalletShell.find(fore) if fore and not fore.is_a? ColorShell
+    back = PalletShell.find(back) if back and not back.is_a? ColorShell
+
+    # TODO: benchmark alternatives in regards to Object Shapes
+    @bold = bold
+    @italic = italic
+    @underlined = underlined
+    @fore = fore&.to_rgb
+    @back = back&.to_rgb
+    @text = text.to_s
+  end
+
+  def to_s
+    s = ""
+    s += "\e[1m" if @bold
+    s += "\e[3m" if @italic
+    s += "\e[4m" if @underlined
+    s += "\e[38;2;#{@fore[0]};#{@fore[1]};#{@fore[2]}m" if @fore
+    s += "\e[48;2;#{@back[0]};#{@back[1]};#{@back[2]}m" if @back
+    s += @text
+    s += "\e[0m"
+    s
+  end
+  
+end

data/lib/dev_system/subsystems/log/logs/stick_log_log.rb

@@ -0,0 +1,6 @@
+class DevSystem::StickLogLog < DevSystem::Log
+  def self.call(env)
+    env[:object_parsed] = env[:object].to_s
+    true
+  end
+end

data/lib/dev_system/subsystems/log/logs/stick_log_log_test.rb

@@ -0,0 +1,26 @@
+class DevSystem::StickLogLogTest < DevSystem::LogTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::StickLogLog, subject_class
+  end
+
+  test :call do
+    prefix = "  "
+    object = "ABC"
+    expected = "ABC"
+    call_subject_with prefix, object, expected
+
+    object = Object
+    expected = "Object"
+    call_subject_with prefix, object, expected
+    
+    object = Object.new
+    expected = "#<Object:0x"
+    env = {object: object, prefix: prefix}
+    subject_class.call(env)
+    assert env[:object_parsed].start_with? expected
+  end
+
+end

data/lib/dev_system/subsystems/log/logs/stick_log_test.rb

@@ -0,0 +1,88 @@
+class DevSystem::StickLogTest < DevSystem::LogTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::StickLog, subject_class
+  end
+
+  #
+
+  test :subject_class, :bundle do
+    string = \
+      subject_class.
+        bundle :red, :white, :b,
+          ["I"],
+          ["LOVE", :u],
+          ["RUBY", :u, :i]
+
+    assert_equality string, "\e[1m\e[38;2;204;0;0m\e[48;2;248;248;248mI\e[0m\e[1m\e[38;2;204;0;0m\e[48;2;248;248;248m \e[0m\e[1m\e[4m\e[38;2;204;0;0m\e[48;2;248;248;248mLOVE\e[0m\e[1m\e[38;2;204;0;0m\e[48;2;248;248;248m \e[0m\e[1m\e[3m\e[4m\e[38;2;204;0;0m\e[48;2;248;248;248mRUBY\e[0m"
+  end
+
+  #
+
+  test :subject_class, :new do
+    s = subject_class.new "I LOVE RUBY"
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 255, 255]
+    assert_equality s.back, nil
+    assert_equality s.to_s, "\e[38;2;255;255;255mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :bold, :italic, :underlined
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 255, 255]
+    assert_equality s.back, nil
+    assert_equality s.bold, true
+    assert_equality s.italic, true
+    assert_equality s.underlined, true
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;255;255mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 255, 255]
+    assert_equality s.back, nil
+    assert_equality s.bold, true
+    assert_equality s.italic, true
+    assert_equality s.underlined, true
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;255;255mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, :red
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [204, 0, 0]
+    assert_equality s.back, nil
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;204;0;0mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, :red, :white
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [204, 0, 0]
+    assert_equality s.back, [248, 248, 248]
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;204;0;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+    
+    # s = subject_class.new "I LOVE RUBY", :b, :i, :u, 0xff9900, :white
+    # assert_equality s.class, subject_class
+    # assert_equality s.text, "I LOVE RUBY"
+    # assert_equality s.fore, [255, 153, 0]
+    # assert_equality s.back, [248, 248, 248]
+    # assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;153;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, "#ff9900", :white
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 153, 0]
+    assert_equality s.back, [248, 248, 248]
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;153;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+    
+    # s = subject_class.new "I LOVE RUBY", :b, :i, :u, "ff9900", :white
+    # assert_equality s.class, subject_class
+    # assert_equality s.text, "I LOVE RUBY"
+    # assert_equality s.fore, [255, 153, 0]
+    # assert_equality s.back, [248, 248, 248]
+    # assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;153;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+  end
+
+end