lizarb 1.0.3 → 1.0.5

data/lib/net_system/sub/database/clients/mongo_client.rb

@@ -0,0 +1,33 @@
+class NetSystem::MongoClient < NetSystem::Client
+
+  # https://www.mongodb.com/
+  # https://github.com/mongodb/mongo-ruby-driver
+  def initialize hash={}
+    require "mongo"
+    t = Time.now
+    hash = NetBox[:client].get(:mongo_hash) if hash.empty?
+    uri = "mongodb://#{hash[:host]}:#{hash[:port]}/#{hash[:database]}"
+    @conn = Mongo::Client.new(uri)
+  ensure
+    log "#{t.diff}s | Connecting to #{hash}"
+  end
+
+  attr_reader :conn
+
+  def call args
+    t = Time.now
+    raise NotImplementedError
+  ensure
+    log "#{t.diff}s | #{cmd_name} | #{args}"
+  end
+
+  def now
+    t0 = Time.now
+    server_status = @conn.database.command(serverStatus: 1)
+    t = server_status.first['localTime']
+    Time.at t.to_i
+  ensure
+    log "#{t0.diff}s | now | []"
+  end
+
+end

data/lib/net_system/sub/database/clients/mongo_client_test.rb

@@ -0,0 +1,20 @@
+class NetSystem::MongoClientTest < NetSystem::ClientTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::MongoClient
+  end
+
+  test  do
+    assert_equality subject.conn.class, Mongo::Client
+  end
+
+  # test :call do
+  #   #
+  # end
+
+  test :now do
+    result = subject.now
+    assert_equality result.class, Time
+  end if ENV["DBTEST"]
+
+end

data/lib/net_system/sub/database/clients/mysql_client.rb

@@ -0,0 +1,29 @@
+class NetSystem::MysqlClient < NetSystem::Client
+
+  # https://www.mysql.com/
+  # https://github.com/brianmario/mysql2
+  def initialize hash={}
+    require "mysql2"
+    t = Time.now
+    hash = NetBox[:client].get(:mysql_hash) if hash.empty?
+    @conn = Mysql2::Client.new(hash)
+  ensure
+    log "#{t.diff}s | Connecting to #{hash}"
+  end
+
+  attr_reader :conn
+
+  def call sql, *args
+    t = Time.now
+    result = @conn.query sql, *args
+
+    result
+  ensure
+    log "#{t.diff}s | #{sql} | #{args}"
+  end
+
+  def now
+    call "SELECT UTC_TIMESTAMP()"
+  end
+
+end

data/lib/net_system/sub/database/clients/mysql_client_test.rb

@@ -0,0 +1,23 @@
+class NetSystem::MysqlClientTest < NetSystem::ClientTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::MysqlClient
+  end
+
+  test :subject do
+    assert_equality subject.conn.class, Mysql2::Client
+  end
+
+  test :call do
+    result = subject.call "SELECT NOW();"
+    assert_equality result.class, Mysql2::Result
+    assert_equality result.first.keys, ["NOW()"]
+  end
+
+  test :now do
+    result = subject.now
+    assert_equality result.class, Mysql2::Result
+    assert_equality result.first.keys, ["UTC_TIMESTAMP()"]
+  end if ENV["DBTEST"]
+
+end

data/lib/net_system/sub/database/clients/pgsql_client.rb

@@ -0,0 +1,29 @@
+class NetSystem::PgsqlClient < NetSystem::Client
+
+  # https://www.postgresql.org/
+  # https://github.com/ged/ruby-pg
+  def initialize hash={}
+    require "pg"
+    t = Time.now
+    hash = NetBox[:client].get(:pgsql_hash) if hash.empty?
+    @conn = PG::Connection.new(hash)
+  ensure
+    log "#{t.diff}s | Connecting to #{hash}"
+  end
+
+  attr_reader :conn
+
+  def call sql, *args
+    t = Time.now
+    result = @conn.exec sql, args
+
+    result
+  ensure
+    log "#{t.diff}s | #{sql} | #{args}"
+  end
+
+  def now
+    call "SELECT NOW();"
+  end
+
+end

data/lib/net_system/sub/database/clients/pgsql_client_test.rb

@@ -0,0 +1,25 @@
+class NetSystem::PgsqlClientTest < NetSystem::ClientTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::PgsqlClient
+  end
+
+  test :subject do
+    assert_equality subject.conn.class, PG::Connection
+  end
+
+  test :call do
+    result = subject.call "SELECT version();"
+    assert_equality result.class,    PG::Result
+    assert_equality result[0].class, Hash
+    assert_equality result[0].keys,  ["version"]
+  end if ENV["DBTEST"]
+
+  test :now do
+    result = subject.now
+    assert_equality result.class,    PG::Result
+    assert_equality result[0].class, Hash
+    assert_equality result[0].keys,  ["now"]
+  end if ENV["DBTEST"]
+
+end

data/lib/net_system/{net/controllers/client → sub/database/clients}/redis_client.rb

@@ -3,9 +3,12 @@ class NetSystem::RedisClient < NetSystem::Client
   # https://redis.io/
   # https://github.com/redis/redis-rb
   def initialize *args
+    require "redis"
+    t = Time.now
     args = [url: NetBox[:client].get(:redis_url)] if args.empty?
-    log "Connecting to #{args}"
-    @conn = Redis.new *args
+    @conn = Redis.new(*args)
+  ensure
+    log "#{t.diff}s | Connecting to #{args}"
   end
 
   attr_reader :conn

data/lib/net_system/{net/controllers/client → sub/database/clients}/redis_client_test.rb

@@ -16,12 +16,12 @@ class NetSystem::RedisClientTest < NetSystem::ClientTest
     result = subject.call :keys
     assert result.class == Array
     assert result.count == 0
-  end
+  end if ENV["DBTEST"]
 
   test :now do
     result = subject.now
     assert result.class == Array
     assert result.map(&:class) == [Integer, Integer]
-  end
+  end if ENV["DBTEST"]
 
 end

data/lib/net_system/{net/controllers/client → sub/database/clients}/sqlite_client.rb

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

data/lib/net_system/{net/controllers/client → sub/database/clients}/sqlite_client_test.rb

@@ -15,13 +15,13 @@ class NetSystem::SqliteClientTest < NetSystem::ClientTest
   test :call do
     result = subject.call "SELECT name, sql FROM sqlite_master WHERE type = 'table';"
     assert result == [["name", "sql"]]
-  end
+  end if ENV["DBTEST"]
 
   test :now do
     result = subject.now
     assert result.class == Array
     assert result[0] == ["strftime('%Y-%m-%dT%H:%M:%S.%f', 'now', 'localtime')"]
     assert result[1][0].class == String
-  end
+  end if ENV["DBTEST"]
 
 end

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

@@ -0,0 +1,32 @@
+class NetSystem::DatabaseCommand < DevSystem::Command
+
+  def self.call args
+    log "args = #{args.inspect}"
+
+    ruby_time   = Time.now
+    redis_time  = NetBox[:database].redis.new.now
+    mongo_time  = NetBox[:database].mongo.new.now
+    sqlite_time = NetBox[:database].sqlite.new.now
+    mysql_time  = NetBox[:database].mysql.new.now
+    pgsql_time  = NetBox[:database].pgsql.new.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}".bold
+    log "Time for Redis:   #{_red redis_time}".bold
+    log "Time for Mongo:   #{_red mongo_time}".bold
+    log "Time for Sqlite:  #{_red sqlite_time}".bold
+    log "Time for Mysql:   #{_red mysql_time}".bold
+    log "Time for Pgsql:   #{_red pgsql_time}".bold
+
+
+  end
+
+  def self._red s
+    s.to_s.light_red
+  end
+
+end

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

@@ -0,0 +1,11 @@
+class NetSystem::DatabaseCommandTest < DevSystem::CommandTest
+
+  test :subject_class do
+    assert subject_class == NetSystem::DatabaseCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

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

@@ -5,8 +5,7 @@ class NetSystem::DatabasePanelTest < Liza::PanelTest
   end
 
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :red
+    assert_equality subject_class.log_level, 0
   end
 
   # test :call do

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

@@ -5,8 +5,7 @@ class NetSystem::DatabaseTest < Liza::ControllerTest
   end
 
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :red
+    assert_equality subject_class.log_level, 0
   end
 
 end

data/lib/net_system/sub/database/databases/mongo_db.rb

@@ -0,0 +1,8 @@
+class NetSystem::MongoDb < NetSystem::Database
+  set_client :mongo
+
+  def now
+    client.now
+  end
+
+end

data/lib/net_system/sub/database/databases/mongo_db_test.rb

@@ -0,0 +1,21 @@
+class NetSystem::MongoDbTest < NetSystem::DatabaseTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::MongoDb
+  end
+
+  test :subject do
+    assert_equality subject.client.class, NetSystem::MongoClient
+  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/sub/database/databases/mysql_db.rb

@@ -0,0 +1,8 @@
+class NetSystem::MysqlDb < NetSystem::Database
+  set_client :mysql
+
+  def now
+    client.now.first.values.first
+  end
+
+end

data/lib/net_system/sub/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/sub/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/sub/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 → sub/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 → sub/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/sub/record/generators/record_generator.rb

@@ -0,0 +1,33 @@
+class NetSystem::RecordGenerator < DevSystem::SimpleGenerator
+
+  # liza g record name place=app
+
+  def call_default
+    @controller_class = Record
+
+    name!
+    place!
+
+    @args = command.simple_args[1..-1]
+
+    create_controller @name, @controller_class, @place, @path do |unit, test|
+      unit.section :controller_section_1, caption: ""
+      test.section :controller_test_section_1, caption: ""
+    end
+  end
+  
+end
+
+__END__
+
+# view controller_section_1.rb.erb
+
+  db :sqlite
+  set :table, :<%= @name %>s
+
+# view controller_test_section_1.rb.erb
+
+  test :subject_class, :subject do
+    assert_equality <%= @class_name %>, subject_class
+    assert_equality <%= @class_name %>, subject.class
+  end

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

@@ -0,0 +1,11 @@
+class NetSystem::RecordGeneratorTest < DevSystem::SimpleGeneratorTest
+
+  test :subject_class do
+    assert subject_class == NetSystem::RecordGenerator
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

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

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

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

@@ -0,0 +1,11 @@
+class NetSystem::RecordPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::RecordPanel
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/net_system/{net/controllers → sub/record}/record_test.rb

@@ -5,8 +5,7 @@ class NetSystem::RecordTest < Liza::ControllerTest
   end
 
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :red
+    assert_equality subject_class.log_level, 0
   end
 
 end

data/lib/net_system.rb

@@ -1,3 +1,10 @@
 class NetSystem < Liza::System
-  set :log_color, :red
+  class Error < Error; end
+
+  color :ruby
+  
+  sub :client
+  sub :database
+  sub :record
+
 end

data/lib/web_system/sub/rack/commands/rack_command.rb

@@ -0,0 +1,30 @@
+class WebSystem::RackCommand < DevSystem::Command
+
+  def call args
+    log "args = #{args.inspect}"
+
+    server = nil
+    host = nil
+    port = nil
+
+    if args.any? && !args[0].include?("=")
+      server = args.shift
+    end
+
+    args.each do |arg|
+      host = arg.split("=")[1] if arg.start_with? "h="
+      port = arg.split("=")[1] if arg.start_with? "p="
+    end
+
+    env = {server:, host:, port:}
+
+    log env
+
+    rack_panel.call env
+  end
+
+  def rack_panel
+    @rack_panel ||= WebBox[:rack]
+  end
+
+end

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

@@ -0,0 +1,11 @@
+class WebSystem::RackCommandTest < DevSystem::CommandTest
+
+  test :subject_class do
+    assert subject_class == WebSystem::RackCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/web_system/sub/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/sub/rack/middle_racks/first_middle_rack_test.rb

@@ -0,0 +1,11 @@
+class WebSystem::FirstMiddleRackTest < WebSystem::MiddleRackTest
+
+  test :subject_class do
+    assert subject_class == WebSystem::FirstMiddleRack
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

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

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

data/lib/web_system/sub/rack/middle_racks/last_middle_rack_test.rb

@@ -0,0 +1,11 @@
+class WebSystem::LastMiddleRackTest < WebSystem::MiddleRackTest
+
+  test :subject_class do
+    assert subject_class == WebSystem::LastMiddleRack
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/web_system/sub/rack/middle_racks/middle_rack.rb

@@ -0,0 +1,18 @@
+class WebSystem::MiddleRack < WebSystem::Rack
+
+  #
+
+  division!
+
+  #
+  
+  def initialize app
+    @app = app
+  end
+
+  def call(env)
+    log "env.keys.count = #{env.keys.count}"
+    @app.call(env)
+  end
+
+end

data/lib/web_system/sub/rack/middle_racks/middle_rack_test.rb

@@ -0,0 +1,11 @@
+class WebSystem::MiddleRackTest < WebSystem::RackTest
+
+  test :subject_class do
+    assert subject_class == WebSystem::MiddleRack
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/web_system/sub/rack/middle_racks/zeitwerk_middle_rack.rb

@@ -0,0 +1,11 @@
+class WebSystem::ZeitwerkMiddleRack < WebSystem::MiddleRack
+
+  def call(env)
+    puts
+    Lizarb.reload do
+      log "reloading"
+      return @app.call(env)
+    end
+  end
+
+end

data/lib/web_system/sub/rack/middle_racks/zeitwerk_middle_rack_test.rb

@@ -0,0 +1,11 @@
+class WebSystem::ZeitwerkMiddleRackTest < WebSystem::MiddleRackTest
+
+  test :subject_class do
+    assert subject_class == WebSystem::ZeitwerkMiddleRack
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end