lizarb 1.0.4 → 1.0.6

data/lib/net_system/subsystems/database/databases/mysql_db_test.rb

@@ -0,0 +1,21 @@
+class NetSystem::MysqlDbTest < NetSystem::DatabaseTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::MysqlDb
+  end
+
+  test :subject do
+    assert_equality subject.client.class, NetSystem::MysqlClient
+  end
+
+  test :now do
+    t = subject.now
+    assert! t.is_a? Time
+    assert_equality t.yday, Time.now.utc.yday
+  end if ENV["DBTEST"]
+
+  # test :call do
+  #   todo "write this"
+  # end
+
+end

data/lib/net_system/subsystems/database/databases/pgsql_db.rb

@@ -0,0 +1,8 @@
+class NetSystem::PgsqlDb < NetSystem::Database
+  set_client :pgsql
+
+  def now
+    Time.parse client.now[0]["now"]
+  end
+
+end

data/lib/net_system/subsystems/database/databases/pgsql_db_test.rb

@@ -0,0 +1,21 @@
+class NetSystem::PgsqlDbTest < NetSystem::DatabaseTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::PgsqlDb
+  end
+
+  test :subject do
+    assert_equality subject.client.class, NetSystem::PgsqlClient
+  end
+
+  test :now do
+    t = subject.now
+    assert! t.is_a? Time
+    assert_equality t.yday, Time.now.yday
+  end if ENV["DBTEST"]
+
+  # test :call do
+  #   todo "write this"
+  # end
+
+end

data/lib/net_system/{net/controllers/database → subsystems/database/databases}/redis_db_test.rb

@@ -12,7 +12,7 @@ class NetSystem::RedisDbTest < NetSystem::DatabaseTest
     t = subject.now
     assert! t.is_a? Time
     assert t.yday == Time.now.yday
-  end
+  end if ENV["DBTEST"]
 
   # test :call do
   #   todo "write this"

data/lib/net_system/{net/controllers/database → subsystems/database/databases}/sqlite_db_test.rb

@@ -12,7 +12,7 @@ class NetSystem::SqliteDbTest < NetSystem::DatabaseTest
     t = subject.now
     assert! t.is_a? Time
     assert t.yday == Time.now.yday
-  end
+  end if ENV["DBTEST"]
 
   # test :call do
   #   todo "write this"

data/lib/net_system/subsystems/filebase/commands/filebase_command.rb

@@ -0,0 +1,12 @@
+class NetSystem::FilebaseCommand < DevSystem::SimpleCommand
+
+  section :actions
+
+  # liza filebase
+  def call_default
+    log stick :b, system.color, "I just think Ruby is the Best for coding!"
+
+    log "Not implemented yet"
+  end
+
+end

data/lib/net_system/subsystems/filebase/commands/filebase_command_test.rb

@@ -0,0 +1,10 @@
+class NetSystem::FilebaseCommandTest < DevSystem::SimpleCommandTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::FilebaseCommand
+    assert_equality subject.class, NetSystem::FilebaseCommand
+  end
+
+end

data/lib/net_system/subsystems/filebase/filebase.rb

@@ -0,0 +1,12 @@
+class NetSystem::Filebase < Liza::Controller
+
+  section :subsystem
+
+  def self.call(env)
+    super
+    log stick :b, "TODO: Build a great DSL!"
+    log "env"
+    log env
+  end
+
+end

data/lib/net_system/subsystems/filebase/filebase_panel.rb

@@ -0,0 +1,23 @@
+class NetSystem::FilebasePanel < Liza::Panel
+
+  section :subsystem
+
+  # define_error(:not_found) do |args|
+  #   "filebase not found: #{args[0].inspect}"
+  # end
+
+  def call(other_env)
+    log "not implemented"
+  #   log "forging"
+  #   env = { other_env: }
+
+  #   log "finding"
+  #   k = Liza.const "#{other_env[:filebase]}_filebase"
+    
+  #   log "forwarding"
+  #   k.call env
+  # rescue Liza::ConstNotFound
+  #   raise_error :not_found, string
+  end
+
+end

data/lib/net_system/subsystems/filebase/filebase_panel_test.rb

@@ -0,0 +1,22 @@
+class NetSystem::FilebasePanelTest < Liza::PanelTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::FilebasePanel
+    assert_equality subject.class, NetSystem::FilebasePanel
+  end
+
+  test_sections(
+    :subsystem=>{
+      :constants=>[],
+      :class_methods=>[],
+      :instance_methods=>[:call]
+    }
+  )
+
+  test :settings do
+    assert_equality subject.log_level, 4
+  end
+
+end

data/lib/net_system/subsystems/filebase/filebase_test.rb

@@ -0,0 +1,22 @@
+class NetSystem::FilebaseTest < Liza::ControllerTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::Filebase
+    assert_equality subject.class, NetSystem::Filebase
+  end
+
+  test_sections(
+    :subsystem=>{
+      :constants=>[],
+      :class_methods=>[:call],
+      :instance_methods=>[]
+    }
+  )
+
+  test :settings do
+    assert_equality subject_class.log_level, 4
+  end
+
+end

data/lib/net_system/subsystems/record/commands/record_command.rb

@@ -0,0 +1,12 @@
+class NetSystem::RecordCommand < DevSystem::SimpleCommand
+  
+  # liza record
+
+  def call_default
+    log stick :b, system.color, "I just think Ruby is the Best for coding!"
+
+    log "Not implemented yet"
+  end
+
+  
+end

data/lib/net_system/subsystems/record/commands/record_command_test.rb

@@ -0,0 +1,10 @@
+class NetSystem::RecordCommandTest < DevSystem::SimpleCommandTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality NetSystem::RecordCommand, subject_class
+    assert_equality NetSystem::RecordCommand, subject.class
+  end
+  
+end

data/lib/net_system/subsystems/record/generators/record_generator.rb

@@ -0,0 +1,35 @@
+class NetSystem::RecordGenerator < DevSystem::ControllerGenerator
+
+  section :actions
+  
+  # liza g record name place=app
+
+  def call_default
+    set_default_super ""
+    set_default_require ""
+
+    @database = command.simple_string :database
+
+    create_controller do |unit, test|
+      unit.section name: :controller
+      test.section name: :test
+    end
+  end
+
+  section :helpers
+
+  # set_default_string :database, "sqlite"
+
+  set_input_string :database do |default|
+    options = Database.subunits.map do |database|
+      s = database.last_namespace.snakecase.sub("_db", "")
+      [
+        s,
+        s
+      ]
+    end.to_h
+
+    InputShell.pick_one "Which database?", options
+  end
+  
+end

data/lib/net_system/subsystems/record/generators/record_generator.rb.controller.rb.erb

@@ -0,0 +1,4 @@
+# view controller.rb.erb
+
+  db :<%= @database %>
+  set :table, :<%= controller_name %>s

data/lib/net_system/subsystems/record/generators/record_generator.rb.test.rb.erb

@@ -0,0 +1,2 @@
+# view test.rb.erb
+<%= render "subject" -%>

data/lib/net_system/subsystems/record/generators/record_generator_test.rb

@@ -0,0 +1,13 @@
+class NetSystem::RecordGeneratorTest < DevSystem::SimpleGeneratorTest
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::RecordGenerator
+    assert_equality subject.class, NetSystem::RecordGenerator
+  end
+
+  test_erbs_defined(
+    "controller.rb.erb",
+    "test.rb.erb"
+  )
+  
+end

data/lib/net_system/subsystems/record/record.rb

@@ -0,0 +1,19 @@
+class NetSystem::Record < Liza::Controller
+
+  def self.inherited sub
+    super
+
+    return if sub.name.nil?
+    return if sub.name.end_with? "Record"
+    raise "please rename #{sub.name} to #{sub.name}Record"
+  end
+
+  def self.db db = nil
+    if db
+      set :db, Liza.const("#{db}_db")
+    else
+      (get :db) || raise("please set a db to record #{self}")
+    end
+  end
+
+end

data/lib/net_system/subsystems/record/record_panel.rb

@@ -0,0 +1,3 @@
+class NetSystem::RecordPanel < Liza::Panel
+
+end

data/lib/net_system/subsystems/record/record_panel_test.rb

@@ -0,0 +1,7 @@
+class NetSystem::RecordPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::RecordPanel
+  end
+
+end

data/lib/net_system/subsystems/record/record_test.rb

@@ -0,0 +1,11 @@
+class NetSystem::RecordTest < Liza::ControllerTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::Record
+  end
+
+  # test :db do
+  #   todo "write this"
+  # end
+
+end

data/lib/net_system/subsystems/socket/commands/socket_command.rb

@@ -0,0 +1,12 @@
+class NetSystem::SocketCommand < DevSystem::SimpleCommand
+
+  section :actions
+
+  # liza socket
+  def call_default
+    log stick :b, system.color, "I just think Ruby is the Best for coding!"
+
+    log "Not implemented yet"
+  end
+
+end

data/lib/net_system/subsystems/socket/commands/socket_command_test.rb

@@ -0,0 +1,10 @@
+class NetSystem::SocketCommandTest < DevSystem::SimpleCommandTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::SocketCommand
+    assert_equality subject.class, NetSystem::SocketCommand
+  end
+
+end

data/lib/net_system/subsystems/socket/socket.rb

@@ -0,0 +1,12 @@
+class NetSystem::Socket < Liza::Controller
+
+  section :subsystem
+
+  def self.call(env)
+    super
+    log stick :b, "TODO: Build a great DSL!"
+    log "env"
+    log env
+  end
+
+end

data/lib/net_system/subsystems/socket/socket_panel.rb

@@ -0,0 +1,23 @@
+class NetSystem::SocketPanel < Liza::Panel
+
+  section :subsystem
+
+  # define_error(:not_found) do |args|
+  #   "socket not found: #{args[0].inspect}"
+  # end
+
+  def call(other_env)
+    log "not implemented"
+  #   log "forging"
+  #   env = { other_env: }
+
+  #   log "finding"
+  #   k = Liza.const "#{other_env[:socket]}_socket"
+    
+  #   log "forwarding"
+  #   k.call env
+  # rescue Liza::ConstNotFound
+  #   raise_error :not_found, string
+  end
+
+end

data/lib/net_system/subsystems/socket/socket_panel_test.rb

@@ -0,0 +1,22 @@
+class NetSystem::SocketPanelTest < Liza::PanelTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::SocketPanel
+    assert_equality subject.class, NetSystem::SocketPanel
+  end
+
+  test_sections(
+    :subsystem=>{
+      :constants=>[],
+      :class_methods=>[],
+      :instance_methods=>[:call]
+    }
+  )
+
+  test :settings do
+    assert_equality subject.log_level, 4
+  end
+
+end

data/lib/net_system/subsystems/socket/socket_test.rb

@@ -0,0 +1,22 @@
+class NetSystem::SocketTest < Liza::ControllerTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::Socket
+    assert_equality subject.class, NetSystem::Socket
+  end
+
+  test_sections(
+    :subsystem=>{
+      :constants=>[],
+      :class_methods=>[:call],
+      :instance_methods=>[]
+    }
+  )
+
+  test :settings do
+    assert_equality subject_class.log_level, 4
+  end
+
+end

data/lib/net_system.rb

@@ -1,3 +1,12 @@
 class NetSystem < Liza::System
-  set :log_color, :red
-end
+  class Error < Error; end
+
+  color :ruby
+  
+  panel :client
+  panel :database
+  panel :filebase
+  panel :record
+  panel :socket
+
+end

data/lib/prime_system/prime_box.rb

@@ -0,0 +1,9 @@
+class PrimeSystem::PrimeBox < Liza::Box
+
+  section :preconfiguration
+
+  preconfigure :epic do
+    # EpicPanel.instance gives you read-access to this instance
+  end
+
+end

data/lib/prime_system/prime_box_test.rb

@@ -0,0 +1,16 @@
+class PrimeSystem::PrimeBoxTest < Liza::BoxTest
+
+  section :systemic
+
+  test :subject_class do
+    assert_equality subject_class, PrimeSystem::PrimeBox
+  end
+
+  test_sections(
+  )
+
+  test :settings do
+    assert_equality subject_class.log_level, 4
+  end
+
+end

data/lib/prime_system/prime_system_test.rb

@@ -0,0 +1,9 @@
+class PrimeSystem::PrimeSystemTest < Liza::SystemTest
+
+  section :systemic
+
+  test :subject_class do
+    assert_equality subject_class, PrimeSystem::PrimeSystem
+  end
+
+end

data/lib/prime_system/subsystems/epic/commands/epic_command.rb

@@ -0,0 +1,12 @@
+class PrimeSystem::EpicCommand < DevSystem::SimpleCommand
+
+  section :actions
+
+  # liza epic
+  def call_default
+    log stick :b, system.color, "I just think Ruby is the Best for coding!"
+
+    log "Not implemented yet"
+  end
+
+end

data/lib/prime_system/subsystems/epic/commands/epic_command_test.rb

@@ -0,0 +1,10 @@
+class PrimeSystem::EpicCommandTest < DevSystem::SimpleCommandTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, PrimeSystem::EpicCommand
+    assert_equality subject.class, PrimeSystem::EpicCommand
+  end
+
+end

data/lib/prime_system/subsystems/epic/epic.rb

@@ -0,0 +1,12 @@
+class PrimeSystem::Epic < Liza::Controller
+
+  section :subsystem
+
+  def self.call(env)
+    super
+    log stick :b, "TODO: Build a great DSL!"
+    log "env"
+    log env
+  end
+
+end

data/lib/prime_system/subsystems/epic/epic_panel.rb

@@ -0,0 +1,23 @@
+class PrimeSystem::EpicPanel < Liza::Panel
+
+  section :subsystem
+
+  define_error(:not_found) do |args|
+    "epic not found: #{args[0].inspect}"
+  end
+
+  def call(other_env)
+    log "not implemented"
+  #   log "forging"
+  #   env = { other_env: }
+
+  #   log "finding"
+  #   k = Liza.const "#{other_env[:epic]}_epic"
+    
+  #   log "forwarding"
+  #   k.call env
+  # rescue Liza::ConstNotFound
+  #   raise_error :not_found, string
+  end
+
+end

data/lib/prime_system/subsystems/epic/epic_panel_test.rb

@@ -0,0 +1,22 @@
+class PrimeSystem::EpicPanelTest < Liza::PanelTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, PrimeSystem::EpicPanel
+    assert_equality subject.class, PrimeSystem::EpicPanel
+  end
+
+  test_sections(
+    :subsystem=>{
+      :constants=>[:NotFoundError],
+      :class_methods=>[],
+      :instance_methods=>[:call]
+    }
+  )
+
+  test :settings do
+    assert_equality subject.log_level, 4
+  end
+
+end

data/lib/prime_system/subsystems/epic/epic_test.rb

@@ -0,0 +1,22 @@
+class PrimeSystem::EpicTest < Liza::ControllerTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, PrimeSystem::Epic
+    assert_equality subject.class, PrimeSystem::Epic
+  end
+
+  test_sections(
+    :subsystem=>{
+      :constants=>[],
+      :class_methods=>[:call],
+      :instance_methods=>[]
+    }
+  )
+
+  test :settings do
+    assert_equality subject_class.log_level, 4
+  end
+
+end

data/lib/prime_system.rb

@@ -0,0 +1,13 @@
+class PrimeSystem < Liza::System
+
+  section :default
+
+  color :silver
+
+  section :info
+
+  #
+
+  panel :epic
+  
+end

data/lib/web_system/{dev → subsystems/rack/commands}/rack_command.rb

@@ -1,14 +1,15 @@
-class WebSystem::RackCommand < Liza::Command
+class WebSystem::RackCommand < DevSystem::SimpleCommand
 
-  def call args
+  def call_default
+    t = Time.now
     log "args = #{args.inspect}"
 
-    strategy = nil
+    server = nil
     host = nil
     port = nil
 
     if args.any? && !args[0].include?("=")
-      strategy = args.shift
+      server = args.shift
     end
 
     args.each do |arg|
@@ -16,9 +17,13 @@ class WebSystem::RackCommand < Liza::Command
       port = arg.split("=")[1] if arg.start_with? "p="
     end
 
-    log({strategy:, host:, port:})
+    env = {server:, host:, port:}
 
-    rack_panel.call strategy, host, port
+    log env
+
+    rack_panel.call env
+  ensure
+    log "#{ t.diff }s | server closed on port #{ port }"
   end
 
   def rack_panel

data/lib/web_system/subsystems/rack/commands/rack_command_test.rb

@@ -0,0 +1,7 @@
+class WebSystem::RackCommandTest < DevSystem::SimpleCommandTest
+
+  test :subject_class do
+    assert subject_class == WebSystem::RackCommand
+  end
+
+end

data/lib/web_system/subsystems/rack/middle_racks/first_middle_rack.rb

@@ -0,0 +1,8 @@
+class WebSystem::FirstMiddleRack < WebSystem::MiddleRack
+
+  def call env
+    puts unless $coding
+    super
+  end
+
+end

data/lib/web_system/subsystems/rack/middle_racks/first_middle_rack_test.rb

@@ -0,0 +1,7 @@
+class WebSystem::FirstMiddleRackTest < WebSystem::MiddleRackTest
+
+  test :subject_class do
+    assert subject_class == WebSystem::FirstMiddleRack
+  end
+
+end

data/lib/web_system/subsystems/rack/middle_racks/last_middle_rack.rb

@@ -0,0 +1,3 @@
+class WebSystem::LastMiddleRack < WebSystem::MiddleRack
+
+end