lizarb 1.0.4 → 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_box.rb

@@ -0,0 +1,5 @@
+class MicroSystem::MicroBox < Liza::Box
+
+  #
+  
+end

data/lib/micro_system/micro_box_test.rb

@@ -0,0 +1,8 @@
+class MicroSystem::MicroBoxTest < Liza::BoxTest
+  
+  test :subject_class, :subject do
+    assert_equality MicroSystem::MicroBox, subject_class
+    assert_equality MicroSystem::MicroBox, subject.class
+  end
+
+end

data/lib/micro_system/micro_system_test.rb

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

data/lib/micro_system.rb

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

data/lib/net_system/net_box.rb

@@ -0,0 +1,50 @@
+class NetSystem::NetBox < Liza::Box
+
+  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
+  
+  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
+
+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
+
+  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
+
+  configure :socket do
+    # SocketPanel.instance gives you read-access to this instance
+  end
+
+end

data/lib/net_system/{net/net_box_test.rb → net_box_test.rb}

@@ -4,11 +4,6 @@ class NetSystem::NetBoxTest < Liza::BoxTest
     assert subject_class == NetSystem::NetBox
   end
 
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :red
-  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/{net/panels → subsystems/client}/client_panel_test.rb

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

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

@@ -4,9 +4,4 @@ class NetSystem::ClientTest < Liza::ControllerTest
     assert subject_class == NetSystem::Client
   end
 
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :red
-  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/subsystems/database/clients/mongo_client.rb

@@ -0,0 +1,47 @@
+class NetSystem::MongoClient < NetSystem::Client
+  require "mongo"
+
+  # https://www.mongodb.com/
+  # https://github.com/mongodb/mongo-ruby-driver
+  def initialize hash={}
+    self.class.call({})
+    t = Time.now
+    hash = NetBox[:client].get(:mongo_hash) if hash.empty?
+    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}"
+  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/subsystems/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/subsystems/database/clients/mysql_client.rb

@@ -0,0 +1,34 @@
+class NetSystem::MysqlClient < NetSystem::Client
+  require "mysql2"
+
+  # https://www.mysql.com/
+  # https://github.com/brianmario/mysql2
+  def initialize hash={}
+    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}"
+  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/subsystems/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 if ENV["DBTEST"]
+
+  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/subsystems/database/clients/pgsql_client.rb

@@ -0,0 +1,30 @@
+class NetSystem::PgsqlClient < NetSystem::Client
+  require "pg"
+
+  # https://www.postgresql.org/
+  # https://github.com/ged/ruby-pg
+  def initialize hash={}
+    self.class.call({})
+    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/subsystems/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/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/{net/controllers/client → subsystems/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 → subsystems/database/clients}/sqlite_client.rb

@@ -1,11 +1,18 @@
 class NetSystem::SqliteClient < NetSystem::Client
+  require "sqlite3"
 
   # https://www.sqlite.org/
   # https://github.com/sparklemotion/sqlite3-ruby
   def initialize *args
-    args = [NetBox[:client].get(:sqlite_path)] if args.empty?
-    log "Connecting to #{args}"
+    self.class.call({})
+    t = Time.now
+    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}"
   end
 
   attr_reader :conn

data/lib/net_system/{net/controllers/client → subsystems/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/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/subsystems/database/database_panel_test.rb

@@ -0,0 +1,12 @@
+class NetSystem::DatabasePanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert_equality subject_class, NetSystem::DatabasePanel
+    refute_equality subject, NetBox[:database]
+  end
+
+  # test :call do
+  #   todo "write this"
+  # end
+
+end

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

@@ -4,9 +4,4 @@ class NetSystem::DatabaseTest < Liza::ControllerTest
     assert subject_class == NetSystem::Database
   end
 
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :red
-  end
-
 end

data/lib/net_system/subsystems/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/subsystems/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/subsystems/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