lizarb 1.0.4 → 1.0.5

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

@@ -5,8 +5,7 @@ class NetSystem::ClientTest < 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/client/generators/client_generator.rb

@@ -0,0 +1,88 @@
+class NetSystem::ClientGenerator < DevSystem::SimpleGenerator
+  
+  # liza g client name place=app
+
+  def call_default
+    @controller_class = Client
+
+    name!
+    place!
+
+    create_controller @name, @controller_class, @place, @path do |unit, test|
+      unit.section :controller_section_1
+      test.section :controller_test_section_1
+    end
+  end
+  
+  # liza g client:examples
+  
+  def call_examples
+    copy_examples Client
+  end
+  
+end
+
+__END__
+
+# view controller_section_1.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
+
+# 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
+
+  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/sub/client/generators/client_generator_test.rb

@@ -0,0 +1,10 @@
+class NetSystem::ClientGeneratorTest < DevSystem::SimpleGeneratorTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality NetSystem::ClientGenerator, subject_class
+    assert_equality NetSystem::ClientGenerator, subject.class
+  end
+  
+end

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)
+  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)
+  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/{dev → sub/rack/commands}/rack_command.rb

@@ -1,14 +1,14 @@
-class WebSystem::RackCommand < Liza::Command
+class WebSystem::RackCommand < DevSystem::Command
 
   def call args
     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 +16,11 @@ 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
   end
 
   def rack_panel

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