lizarb 1.0.4 → 1.0.5

data/lib/lab_system/requests/kroki_request.rb

@@ -0,0 +1,182 @@
+class LabSystem::KrokiRequest < WebSystem::SimpleRequest
+
+  def call_index
+    @kroki_clients = []
+
+    @kroki_clients << KrokiClient.new_plantuml(:ab, :svg)
+    @kroki_clients << KrokiClient.new_nomnoml(:ab, :svg)
+
+    @kroki_clients.map &:call
+  end
+  
+  #
+
+  def call_plantuml
+    @kroki_clients = []
+    
+    @kroki_clients << KrokiClient.new_plantuml(:ab, :svg)
+
+    @kroki_clients.map &:call
+  end
+  
+  #
+
+  def call_nomnoml
+    @kroki_clients = []
+
+    @kroki_clients << KrokiClient.new_nomnoml(:ab, :svg)
+
+    @kroki_clients.map &:call
+  end
+  
+  #
+  
+  def call_plantuml_liza
+    @kroki_clients = []
+
+    Lizarb.loaders.map &:eager_load
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = Unit.subclasses.sort { _1.name <=> _2.name }.reverse
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Liza::System]
+      @systems_in_objects = [DevSystem, NetSystem, WebSystem]
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Liza::System]
+      @systems_in_objects = [HappySystem, LabSystem]
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Liza::System]
+      @systems_in_objects = App.systems.values
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Box]
+      @boxes = [DevBox]
+      @subs = []
+      @objects = []
+      @systems = (@boxes+@subs+@objects).map(&:system).uniq
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Box]
+      @boxes = [DevBox, NetBox, WebBox]
+      @subs = []
+      @objects = []
+      @systems = (@boxes+@subs+@objects).map(&:system).uniq
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Panel, Controller]
+      @subs = [Command, Shell]
+      @objects = []
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = []
+      @objects = App.systems.values.map { _1.box.panels.values.map(&:division) }.flatten
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    # NetSystem
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = []
+      @objects = [Command, Database, Client, DatabaseCommand, *Database.descendants, *Client.descendants]
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    # WebSystem
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = [Command, WebSystem::Rack]
+      @objects = [RackCommand, MiddleRack, ServerRack, *MiddleRack.subclasses, *ServerRack.subclasses]
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = []
+      @objects = [Command, Request, RequestCommand, *Request.descendants]
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    @kroki_clients.map &:call
+  end
+
+end
+
+__END__
+
+# view index.html.erb
+<%= render :shared %>
+
+# view plantuml.html.erb
+<%= render :shared %>
+
+# view plantuml_liza.html.erb
+<%= render :shared %>
+
+# view nomnoml.html.erb
+<%= render :shared %>
+
+# view shared.html.erb
+<%= render :header %>
+
+<style>
+td {
+  border: 1px dashed black;
+  vertical-align: top;
+}
+td svg {
+  text-align: center;
+}
+td code {
+  text-align: left;
+}
+</style>
+
+<h3>plantuml</h3>
+
+<table>
+<tr>
+  <td>
+    template
+  </td>
+  <td>
+    code
+  </td>
+  <td>
+    SVG
+  </td>
+</tr>
+
+<% @kroki_clients.each do |kroki| %>
+<tr>
+  <td>
+    <%= kroki.action %>
+  </td>
+  <td style="min-width: 700px">
+    <code>
+    <%= kroki.code.gsub "\n", "<br/>" %>
+    </code>
+  </td>
+  <td>
+    <%= kroki.result %>
+  </td>
+</tr>
+<% end %>
+
+</table>
+
+# view header.html.erb
+
+<h1>KrokiClient</h1>
+<a href="/kroki">/kroki</a> |
+
+<a href="/kroki/plantuml">/kroki/plantuml</a> |
+<a href="/kroki/plantuml_liza">/kroki/plantuml_liza</a> |
+<a href="/kroki/nomnoml">/kroki/nomnoml</a>
+<hr/>

data/lib/lab_system/requests/kroki_request_test.rb

@@ -0,0 +1,11 @@
+class LabSystem::KrokiRequestTest < WebSystem::SimpleRequestTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::KrokiRequest
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/lab_system/shells/docker_shell.rb

@@ -0,0 +1,60 @@
+class LabSystem::DockerShell < DevSystem::Shell
+
+  #
+
+  def self.hello_world
+    KernelShell.call_backticks "docker run hello-world"
+
+    true
+  end
+
+  # 
+
+  def self.hello_alpine
+    KernelShell.call_backticks "docker run alpine echo 'hello world'"
+
+    true
+  end
+
+  # 
+
+  def self.version
+    output = KernelShell.call_backticks "docker version"
+    parse_version output
+  end
+
+  def self.parse_version output
+    h = {}
+    current_section = current_sub = nil
+    
+    output.each_line do |line|
+      line = line.strip
+      next if line.empty?
+
+      if line.start_with?("Client:")
+
+        name = line.split(":", 2).last.strip
+        current_section = h["Client"] = {"Name" => name}
+        current_sub = current_section
+
+      elsif line.start_with?("Server:")
+        name = line.split(":", 2).last.strip
+        current_section = h["Server"] = {"Name" => name}
+
+      elsif current_section
+
+        if line.end_with?(":")
+          key = line.chomp(":")
+          current_sub = current_section[key] = {}
+        elsif line.include?(":")
+          key, value = line.split(":", 2).map(&:strip)
+          current_sub[key] = value
+        end
+
+      end
+    end
+
+    h
+  end
+
+end

data/lib/lab_system/shells/docker_shell_test.rb

@@ -0,0 +1,61 @@
+class LabSystem::DockerShellTest < DevSystem::ShellTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::DockerShell
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+  test :parse_version do
+    output = render :docker_version, format: :txt
+    h = subject_class.parse_version output
+
+    assert_equality h.keys, ["Client", "Server"]
+    # I mostly wanted to start a conversation about which version of docker we should be support.
+    assert_equality h.dig("Client", "Name"), "Docker Engine - Community"
+    assert_equality h.dig("Server", "Name"), "Docker Engine - Community"
+
+    assert_equality h["Client"].keys, ["Name", "Version", "API version", "Go version", "Git commit", "Built", "OS/Arch", "Context"]
+    assert_equality h["Server"].keys, ["Name", "Engine", "containerd", "runc", "docker-init"]
+    
+    assert_equality h["Server"]["Engine"].keys,      ["Version", "API version", "Go version", "Git commit", "Built", "OS/Arch", "Experimental"]
+    assert_equality h["Server"]["containerd"].keys,  ["Version", "GitCommit"]
+    assert_equality h["Server"]["runc"].keys,        ["Version", "GitCommit"]
+    assert_equality h["Server"]["docker-init"].keys, ["Version", "GitCommit"]
+  end
+
+end
+
+__END__
+
+# view docker_version.txt.erb
+
+Client: Docker Engine - Community
+ Version:           24.0.6
+ API version:       1.43
+ Go version:        go1.20.7
+ Git commit:        ed223bc
+ Built:             Mon Sep  4 12:31:44 2023
+ OS/Arch:           linux/amd64
+ Context:           default
+
+Server: Docker Engine - Community
+ Engine:
+  Version:          24.0.6
+  API version:      1.43 (minimum version 1.12)
+  Go version:       go1.20.7
+  Git commit:       1a79695
+  Built:            Mon Sep  4 12:31:44 2023
+  OS/Arch:          linux/amd64
+  Experimental:     false
+ containerd:
+  Version:          1.6.24
+  GitCommit:        61f9fd88f79f081d64d6fa3bb1a0dc71ec870523
+ runc:
+  Version:          1.1.9
+  GitCommit:        v1.1.9-0-gccaecfc
+ docker-init:
+  Version:          0.19.0
+  GitCommit:        de40ad0

data/lib/lab_system/shells/kroki_docker_shell.rb

@@ -0,0 +1,20 @@
+class LabSystem::KrokiDockerShell < LabSystem::DockerShell
+
+  #
+
+  set :port, 9001
+
+  def self.url
+    "http://localhost:#{get :port}"
+  end
+
+  def self.start_blocking_server
+    log "You can visit #{url} for your kroki server"
+
+    port = get :port
+    KernelShell.call_backticks "docker run -p#{port}:8000 yuzutech/kroki"
+
+    true
+  end
+
+end

data/lib/lab_system/shells/kroki_docker_shell_test.rb

@@ -0,0 +1,11 @@
+class LabSystem::KrokiDockerShellTest < LabSystem::DockerShellTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::KrokiDockerShell
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/lab_system.rb

@@ -0,0 +1,8 @@
+class LabSystem < Liza::System
+  class Error < Liza::Error; end
+
+  #
+
+  color :gray
+
+end

data/lib/liza/base/controller.rb

@@ -1,27 +1,26 @@
 class Liza::Controller < Liza::Unit
-  part :controller_renderer
 
-  inherited_explicitly_sets_system
+  part :controller_subsystem
 
-  def self.on_connected box_klass, panel
-    set :box, box_klass
-    set :panel, panel
-  end
+  def self.on_connected
+    token = self.last_namespace.snakecase.to_sym
+    panel = system.const("#{token}_panel").new name
 
-  def self.box
-    get :box
+    subsystem! system.box, panel
+    division!
   end
 
-  def self.panel
-    get :panel
-  end
+  def self.inherited klass
+    super
 
-  def box
-    self.class.box
+    klass.on_connected if klass.superclass == Liza::Controller
   end
 
-  def panel
-    self.class.panel
+  # color
+
+  def self.color
+    return system.color if subsystem?
+    subsystem.color
   end
 
 end

data/lib/liza/base/controller_test.rb

@@ -3,8 +3,34 @@ class Liza::ControllerTest < Liza::UnitTest
     assert subject_class == Liza::Controller
   end
 
+  test_methods_defined do
+    on_self :box, \
+      :color,
+      :division!, :division?,
+      :inherited,
+      :on_connected,
+      :panel, :plural,
+      :puts,
+      :singular,
+      :subsystem, :subsystem!, :subsystem?,
+      :token
+    on_instance :box, :panel
+  end
+
+  test :erbs_defined do
+    erbs_defined = subject_class.erbs_defined.map(&:key)
+    expected = []
+    assert_equality erbs_defined, expected
+  end
+
+  test :erbs_available do
+    erbs_available = subject_class.erbs_available.map(&:key)
+    expected = []
+    assert_equality erbs_available, expected
+  end
+
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
+    assert_equality subject_class.log_level, 0
   end
+
 end

data/lib/liza/base/panel.rb

@@ -1,20 +1,62 @@
 class Liza::Panel < Liza::Unit
-  inherited_explicitly_sets_system
 
-  def self.on_connected box_klass
-    set :box, box_klass
-  end
+  #
+
+  part :panel_rescuer
+
+  #
+
+  set :box, Liza::Box
+  set :controller, Liza::Controller
+
+  #
 
   def self.box
-    get :box
+    system.box
   end
 
   def box
-    self.class.box
+    system.box
+  end
+
+  def self.controller
+    @controller ||= system.const token
+  end
+
+  def controller
+    self.class.controller
+  end
+
+  def self.division
+    controller.division
+  end
+
+  def division
+    controller.division
+  end
+
+  def self.token
+    @token ||= last_namespace.gsub(/Panel$/, '').snakecase.to_sym
+  end
+
+  def self.subsystem
+    controller
+  end
+
+  def subsystem
+    controller
+  end
+
+  # color
+
+  def self.color
+    system.color
   end
 
   #
 
+  attr_reader :key
+
   def initialize key
     @key = key
     @blocks = []

data/lib/liza/base/panel_test.rb

@@ -7,11 +7,150 @@ class Liza::PanelTest < Liza::UnitTest
     @subject ||= subject_class.new "name"
   end
 
+  test_methods_defined do
+    on_self :box,
+    :color,
+    :controller,
+    :puts,
+    :subsystem,
+    :token
+    on_instance \
+      :box,
+      :controller, :division,
+      :key, :push,
+      :rescue_from, :rescue_from_panel, :rescuers,
+      :short, :started,
+      :subsystem
+  end
+
+  #
+
+  def assert_raises_2 e_class, &block
+    kaller = caller
+    begin
+      block.call
+      assert false, kaller: kaller
+    rescue e_class => e
+      assert true, kaller: kaller
+    rescue Exception => e
+      assert false, kaller: kaller
+    end
+  end
+
+  def refute_raises_2 e_class, &block
+    kaller = caller
+    begin
+      block.call
+      assert true, kaller: kaller
+    rescue e_class => e
+      assert false, kaller: kaller
+    rescue Exception => e
+      assert false, kaller: kaller
+    end
+  end
+
+  #
+
+  test :rescue_from, :validations do
+    assert_raises_2 ArgumentError do
+      subject.rescue_from(Liza)
+    end
+    
+    assert_raises_2 ArgumentError do
+      subject.rescue_from(Liza::Error)
+    end
+    
+    refute_raises_2 ArgumentError do
+      subject.rescue_from(Liza::Error) {  }
+    end
+    
+    refute_raises_2 ArgumentError do
+      subject.rescue_from(Liza::Error, with: Controller)
+    end
+
+    assert_raises_2 ArgumentError do
+      subject.rescue_from(Liza::Error, with: Controller) {  }
+    end
+  end
+
+  test :rescue_from, :rescuers, :rescue_from_panel do
+    assert_equality subject.rescuers, []
+    
+    #
+
+    subject.rescue_from(:command_panel, :parse) {  }
+    actual = subject.rescuers.last
+    
+    #
+
+    assert_equality actual.class, Liza::PanelRescuerPart::Rescuer
+    assert_equality actual[:exception_class], CommandPanel::ParseError
+    assert_equality actual[:with], nil
+    assert_equality actual[:block].class, Proc
+
+    #
+
+    subject.rescue_from(:command_panel, :parse, with: NotFoundCommand)
+    actual = subject.rescuers.last
+    
+    #
+
+    assert_equality actual.class, Liza::PanelRescuerPart::Rescuer
+    assert_equality actual[:exception_class], CommandPanel::ParseError
+    assert_equality actual[:with], DevSystem::NotFoundCommand
+    assert_equality actual[:block], nil
+  end
+
+  test :rescue_from, :rescuers, :_rescue_from_panel_find do
+    assert_equality subject.rescuers, []
+
+    subject.rescue_from(CommandPanel::ParseError, with: NotFoundCommand)
+    original_rescuer = subject.rescuers.last
+
+    assert_equality original_rescuer[:exception_class], CommandPanel::ParseError
+
+    actual = subject._rescue_from_panel_find CommandPanel::ParseError.new
+
+    assert_equality actual.class, Liza::PanelRescuerPart::Rescuer
+    refute_equality actual, original_rescuer
+
+    assert_equality original_rescuer[:exception], nil
+    assert_equality actual[:exception].class, CommandPanel::ParseError
+  end
+
+  test :rescue_from_panel do
+    todo "test this"
+  end
+
+  test :_rescue_from_parse_symbol do
+    actual = subject._rescue_from_parse_symbol(:error)
+    assert_equality Liza::Error, actual
+
+    assert_raises_2 NameError do
+      subject._rescue_from_parse_symbol(:errorx)
+    end
+  end
+
+  test :_rescue_from_parse_symbols do
+    actual = subject._rescue_from_parse_symbols([:command_panel, :parse])
+    assert_equality CommandPanel::ParseError, actual
+
+    actual = subject._rescue_from_parse_symbols([:command_panel, :not_found])
+    assert_equality CommandPanel::NotFoundError, actual
+
+    assert_raises_2 NameError do
+      subject._rescue_from_parse_symbols([:command_panel, :not_foxund])
+    end
+  end
+
+  #
+
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
+    assert_equality subject_class.log_level, 0
   end
 
+  #
+
   test :short do
     assert_equality subject.short("m"), "m"
     assert_equality subject.short("i"), "i"