lizarb 1.0.5 → 1.0.6

data/lib/media_system/media_box.rb

@@ -0,0 +1,3 @@
+class MediaSystem::MediaBox < Liza::Box
+  
+end

data/lib/media_system/media_box_test.rb

@@ -0,0 +1,10 @@
+class MediaSystem::MediaBoxTest < Liza::BoxTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality MediaSystem::MediaBox, subject_class
+    assert_equality MediaSystem::MediaBox, subject.class
+  end
+  
+end

data/lib/media_system/media_system_test.rb

@@ -0,0 +1,3 @@
+class MediaSystem::MediaSystemTest < Liza::SystemTest
+
+end

data/lib/media_system.rb

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

data/lib/micro_system/micro_system_test.rb

@@ -0,0 +1,3 @@
+class MicroSystem::MicroSystemTest < Liza::SystemTest
+
+end

data/lib/micro_system.rb

@@ -3,6 +3,6 @@ class MicroSystem < Liza::System
 
   #
 
-  color :red
+  color :dark_coral
 
 end

data/lib/net_system/net_box.rb

@@ -1,21 +1,50 @@
 class NetSystem::NetBox < Liza::Box
 
-  # Preconfigure your client panel
+  preconfigure :client do
+    # ClientPanel.instance gives you read-access to this instance
+  end
+
+  preconfigure :database do
+    # DatabasePanel.instance gives you read-access to this instance
+  end
   
-  configure :client do
-    #
+  preconfigure :filebase do
+    # FilebasePanel.instance gives you read-access to this instance
+  end
+
+  preconfigure :record do
+    # RecordPanel.instance gives you read-access
+  end
+
+  preconfigure :socket do
+    # SocketPanel.instance gives you read-access to this instance
   end
 
-  # Preconfigure your database panel
+end
+
+__END__
+
+# view default.rb.erb
+class NetBox < NetSystem::NetBox
+
+  configure :client do
+    # ClientPanel.instance gives you read-access to this instance
+  end
 
   configure :database do
-    #
+    # DatabasePanel.instance gives you read-access to this instance
   end
 
-  # Preconfigure your record panel
+  configure :filebase do
+    # FilebasePanel.instance gives you read-access to this instance
+  end
 
   configure :record do
-    #
+    # RecordPanel.instance gives you read-access to this instance
   end
-  
-end
+
+  configure :socket do
+    # SocketPanel.instance gives you read-access to this instance
+  end
+
+end

data/lib/net_system/net_box_test.rb

@@ -4,10 +4,6 @@ class NetSystem::NetBoxTest < Liza::BoxTest
     assert subject_class == NetSystem::NetBox
   end
 
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
   test :panels do
     assert subject_class[:client].is_a? NetSystem::ClientPanel
     assert subject_class[:database].is_a? NetSystem::DatabasePanel

data/lib/net_system/net_system_test.rb

@@ -0,0 +1,3 @@
+class NetSystem::NetSystemTest < Liza::SystemTest
+
+end

data/lib/net_system/{sub → subsystems}/client/client_panel_test.rb

@@ -4,10 +4,6 @@ class NetSystem::ClientPanelTest < Liza::PanelTest
     assert subject_class == NetSystem::ClientPanel
   end
 
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
   # test :call do
   #   todo "write this"
   # end

data/lib/net_system/{sub → subsystems}/client/client_test.rb

@@ -4,8 +4,4 @@ class NetSystem::ClientTest < Liza::ControllerTest
     assert subject_class == NetSystem::Client
   end
 
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
 end

data/lib/net_system/subsystems/client/commands/client_command.rb

@@ -0,0 +1,12 @@
+class NetSystem::ClientCommand < DevSystem::SimpleCommand
+  
+  # liza client
+
+  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/client/commands/client_command_test.rb

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

data/lib/net_system/subsystems/client/generators/client_generator.rb

@@ -0,0 +1,22 @@
+class NetSystem::ClientGenerator < DevSystem::ControllerGenerator
+  
+  section :actions
+  
+  # liza g client name place=app
+
+  def call_default
+    set_default_super ""
+    
+    create_controller do |unit, test|
+      unit.section name: :controller
+      test.section name: :test
+    end
+  end
+  
+  # liza g client:examples
+  
+  def call_examples
+    copy_examples Client
+  end
+  
+end

data/lib/net_system/subsystems/client/generators/client_generator.rb.controller.rb.erb

@@ -0,0 +1,41 @@
+# view controller.rb.erb
+
+  def self.ruby_news
+    new.call "https://www.ruby-lang.org/en/feeds/news.rss"
+  end
+
+  def self.ruby_weekly
+    new.call "https://cprss.s3.amazonaws.com/rubyweekly.com.xml"
+  end
+
+  #
+
+  def call url
+    t = Time.now
+    body = http_get url
+    hash = xml_to_hash body
+    log "rss channel title: #{ hash.dig :rss, :channel, :title }"
+    hash
+  ensure
+    log "#{t.diff}s to request #{url}"
+    hash
+  end
+
+  #
+
+  def http_get url
+    require "net/http"
+    request_uri = URI(url)
+    log "GET #{request_uri}"
+    Net::HTTP.get(request_uri)
+  end
+
+  def xml_to_hash string
+    # https://github.com/savonrb/nori
+    gem "nori"
+    gem "rexml"
+    require "nori"
+    require "rexml"
+    log "parsing using Nori and REXML"
+    Nori.new(:parser => :rexml).parse string
+  end

data/lib/net_system/subsystems/client/generators/client_generator.rb.test.rb.erb

@@ -0,0 +1,16 @@
+# view test.rb.erb
+<%= render "subject" -%>
+
+  test :subject_class, :ruby_news do
+    hash = subject_class.ruby_news
+    a = hash.dig("rss", "channel", "title")
+    b = "Ruby News"
+    assert_equality a, b
+  end
+
+  test :subject_class, :ruby_weekly do
+    hash = subject_class.ruby_weekly
+    a = hash.dig("rss", "channel", "title")
+    b = "Ruby Weekly"
+    assert_equality a, b
+  end

data/lib/net_system/subsystems/client/generators/client_generator_test.rb

@@ -0,0 +1,15 @@
+class NetSystem::ClientGeneratorTest < DevSystem::SimpleGeneratorTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality subject_class, NetSystem::ClientGenerator
+    assert_equality subject.class, NetSystem::ClientGenerator
+  end
+  
+  test_erbs_defined(
+    "controller.rb.erb",
+    "test.rb.erb"
+  )
+  
+end

data/lib/net_system/{sub → subsystems}/database/clients/mongo_client.rb

@@ -1,12 +1,26 @@
 class NetSystem::MongoClient < NetSystem::Client
+  require "mongo"
 
   # https://www.mongodb.com/
   # https://github.com/mongodb/mongo-ruby-driver
   def initialize hash={}
-    require "mongo"
+    self.class.call({})
     t = Time.now
     hash = NetBox[:client].get(:mongo_hash) if hash.empty?
-    uri = "mongodb://#{hash[:host]}:#{hash[:port]}/#{hash[:database]}"
+    host = hash[:host]
+    port = hash[:port]
+    username = hash[:username]
+    password = hash[:password]
+    protocol = hash[:protocol] || "mongodb"
+    database = hash[:database]
+
+    uri =
+      if password.to_s.size.positive?
+        "#{protocol}://#{username}:#{password}@#{host}:#{port}/#{database}"
+      else
+        "#{protocol}://#{host}:#{port}/#{database}"
+      end
+
     @conn = Mongo::Client.new(uri)
   ensure
     log "#{t.diff}s | Connecting to #{hash}"

data/lib/net_system/{sub → subsystems}/database/clients/mysql_client.rb

@@ -1,11 +1,16 @@
 class NetSystem::MysqlClient < NetSystem::Client
+  require "mysql2"
 
   # https://www.mysql.com/
   # https://github.com/brianmario/mysql2
   def initialize hash={}
-    require "mysql2"
+    self.class.call({})
     t = Time.now
     hash = NetBox[:client].get(:mysql_hash) if hash.empty?
+
+    # "localhost" would force a socket connection
+    hash[:host] = "127.0.0.1" if hash[:host] == "localhost"
+
     @conn = Mysql2::Client.new(hash)
   ensure
     log "#{t.diff}s | Connecting to #{hash}"

data/lib/net_system/{sub → subsystems}/database/clients/mysql_client_test.rb

@@ -12,7 +12,7 @@ class NetSystem::MysqlClientTest < NetSystem::ClientTest
     result = subject.call "SELECT NOW();"
     assert_equality result.class, Mysql2::Result
     assert_equality result.first.keys, ["NOW()"]
-  end
+  end if ENV["DBTEST"]
 
   test :now do
     result = subject.now

data/lib/net_system/{sub → subsystems}/database/clients/pgsql_client.rb

@@ -1,9 +1,10 @@
 class NetSystem::PgsqlClient < NetSystem::Client
+  require "pg"
 
   # https://www.postgresql.org/
   # https://github.com/ged/ruby-pg
   def initialize hash={}
-    require "pg"
+    self.class.call({})
     t = Time.now
     hash = NetBox[:client].get(:pgsql_hash) if hash.empty?
     @conn = PG::Connection.new(hash)

data/lib/net_system/subsystems/database/clients/redis_client.rb

@@ -0,0 +1,46 @@
+class NetSystem::RedisClient < NetSystem::Client
+  require "redis"
+
+  # https://redis.io/
+  # https://github.com/redis/redis-rb
+  def initialize *args
+    self.class.call({})
+    t = Time.now
+    if args.empty?
+      h = NetBox[:client].get(:redis_hash)
+      host = h[:host]
+      port = h[:port]
+      password = h[:password]
+      protocol = h[:protocol] || "redis"
+      database = h[:database]
+
+      redis_url =
+        if password.to_s.size.positive?
+          "#{protocol}://:#{password}@#{host}:#{port}/#{database}"
+        else
+          "#{protocol}://#{host}:#{port}/#{database}"
+        end
+
+      args = [url: redis_url]
+    end
+    @conn = Redis.new(*args)
+  ensure
+    log "#{t.diff}s | Connecting to #{args}"
+  end
+
+  attr_reader :conn
+
+  def call cmd_name, *args
+    t = Time.now
+    result = @conn.send cmd_name, *args
+
+    result
+  ensure
+    log "#{t.diff}s | #{cmd_name} | #{args}"
+  end
+
+  def now
+    call :time
+  end
+
+end

data/lib/net_system/{sub → subsystems}/database/clients/sqlite_client.rb

@@ -1,11 +1,15 @@
 class NetSystem::SqliteClient < NetSystem::Client
+  require "sqlite3"
 
   # https://www.sqlite.org/
   # https://github.com/sparklemotion/sqlite3-ruby
   def initialize *args
-    require "sqlite3"
+    self.class.call({})
     t = Time.now
-    args = [NetBox[:client].get(:sqlite_path)] if args.empty?
+    if args.empty?
+      h = NetBox[:client].get(:sqlite_hash)
+      args = [h[:path]]
+    end
     @conn = SQLite3::Database.new(*args)
   ensure
     log "#{t.diff}s | Connecting to #{args}"

data/lib/net_system/subsystems/database/commands/database_command.rb

@@ -0,0 +1,23 @@
+class NetSystem::DatabaseCommand < DevSystem::SimpleCommand
+
+  def call_default
+    ruby_time   = Time.now
+    redis_time  = RedisDb.current.now
+    mongo_time  = MongoDb.current.now
+    sqlite_time = SqliteDb.current.now
+    mysql_time  = MysqlDb.current.now
+    pgsql_time  = PgsqlDb.current.now
+
+    log "Time for Ruby:    #{_red ruby_time}"
+    log "Time for Redis:   #{_red redis_time}"
+    log "Time for Mongo:   #{_red mongo_time}"
+    log "Time for Sqlite:  #{_red sqlite_time}"
+    log "Time for Mysql:   #{_red mysql_time}"
+    log "Time for Pgsql:   #{_red pgsql_time}"
+  end
+
+  def _red s
+    stick NetSystem.color, s.to_s
+  end
+
+end

data/lib/net_system/subsystems/database/commands/database_command_test.rb

@@ -0,0 +1,7 @@
+class NetSystem::DatabaseCommandTest < DevSystem::SimpleCommandTest
+
+  test :subject_class do
+    assert subject_class == NetSystem::DatabaseCommand
+  end
+
+end

data/lib/net_system/subsystems/database/database_panel.rb

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

data/lib/net_system/{sub → subsystems}/database/database_panel_test.rb

@@ -1,11 +1,8 @@
 class NetSystem::DatabasePanelTest < Liza::PanelTest
 
   test :subject_class do
-    assert subject_class == NetSystem::DatabasePanel
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
+    assert_equality subject_class, NetSystem::DatabasePanel
+    refute_equality subject, NetBox[:database]
   end
 
   # test :call do

data/lib/net_system/{sub → subsystems}/database/database_test.rb

@@ -4,8 +4,4 @@ class NetSystem::DatabaseTest < Liza::ControllerTest
     assert subject_class == NetSystem::Database
   end
 
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
 end

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