rio 0.4.2 → 0.5.1

data/test/platform.rb

@@ -0,0 +1,5 @@
+$mswin32 = (RUBY_PLATFORM =~ /mswin32/)
+$mingw32 = (RUBY_PLATFORM =~ /mingw32/)
+$jruby = (RUBY_PLATFORM =~ /java/)
+$cygwin = (RUBY_PLATFORM =~ /cygwin/)
+

data/test/qpdir.rb

@@ -0,0 +1,2 @@
+
+$QPDIR = "/tmp/QP/"

data/test/rio/scheme.rb

@@ -0,0 +1,49 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  $:.unshift File.expand_path(File.dirname(__FILE__))
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+require 'rio'
+require 'test/unit'
+require 'test/unit/ui/console/testrunner'
+require 'tc/pathparts.rb'
+
+module RIO
+  module TestCase
+    TEST_TOP = '/loc/work/q/test'
+  end
+end
+
+module RIO
+  module TestCase
+    module UnitTest
+      def run_tests(test_dir,test_top = TEST_TOP,&block)
+        rio(test_top).mkdir.chdir do
+          rio(test_dir).delete!.mkdir.chdir do
+            yield
+          end
+        end
+      end
+    end
+  end
+end
+
+
+class TC_scheme < Test::Unit::TestCase
+  include RIO::TC::Scheme
+end
+class TC_host < Test::Unit::TestCase
+  include RIO::TC::Host
+end
+
+class TS_PathPartsTests
+  def self.suite
+    suite = Test::Unit::TestSuite.new("PathParts Tests")
+    suite << TC_scheme.suite
+    suite << TC_host.suite
+    return suite
+  end
+end
+Test::Unit::UI::Console::TestRunner.run(TS_PathPartsTests)
+

data/test/rio/tc/pathparts.rb

@@ -0,0 +1,61 @@
+
+module RIO
+  module TC
+    module Scheme
+      def test_scheme_localhost_slash
+        hdurl = 'http://localhost/'
+        hd = rio(hdurl)
+        assert_equal('http',hd.scheme)    
+      end
+      def test_slash
+        hdurl = '/'
+        hd = rio(hdurl)
+        assert_nil(hd.scheme)    
+      end
+      def test_adir
+        hdurl = '/adir'
+        hd = rio(hdurl)
+        assert_nil(hd.scheme)    
+      end
+      def test_netpath_w_path
+        hdurl = '//ahost/'
+        hd = rio(hdurl)
+        assert_equal('file',hd.scheme)    
+      end
+      def test_netpath_no_path
+        hdurl = '//ahost'
+        hd = rio(hdurl)
+        assert_equal('file',hd.scheme)    
+      end
+    end
+  end
+
+end
+module RIO
+  module TC
+    module Host
+      def test_localhost
+        hdurl = 'http://localhost/'
+        hd = rio(hdurl)
+        assert_equal('localhost',hd.host)    
+      end
+      def test_nohost
+        hdurl = '/'
+        hd = rio(hdurl)
+        assert_nil(hd.host)    
+      end
+      def test_netpath_w_path
+        hdurl = '//ahost/'
+        hd = rio(hdurl)
+        assert_equal('ahost',hd.host)    
+      end
+      def test_netpath_no_path
+        hdurl = '//ahost'
+        hd = rio(hdurl)
+        assert_equal('ahost',hd.host)    
+      end
+    end
+  end
+
+end
+

data/test/riotest/test_suite.rb

@@ -0,0 +1,33 @@
+#!/usr/local/bin/ruby
+require 'test/unit/testsuite'
+require 'test/unit/ui/console/testrunner'
+
+module RioTest
+  class TestSuite
+    def self.build_suite(unit_test_mod)
+      suite = Test::Unit::TestSuite.new(self.to_s)
+      cons = unit_test_mod.constants
+      p cons
+      unit_test_mod.constants.each do |modstr|
+        suite << unit_test_mod.module_eval(modstr).module_eval('TestCase').suite
+      end
+      return suite
+    end
+  end
+  def test_suite_mod(mod,file)
+    mod.module_eval do 
+      ts = Class.new(RioTest::TestSuite)
+      ts.class_eval do
+        def self.suite
+          build_suite(UnitTest)
+        end
+      end
+      mod.const_set(:TestSuite,ts)
+      ts
+    end
+    #Test::Unit::UI::Console::TestRunner.run(mod.module_eval(:TestSuite))  if $0 == file
+  end
+  module_function :test_suite_mod
+end
+
+

data/test/riotest/unit_test.rb

@@ -0,0 +1,118 @@
+require 'test/unit/testsuite'
+require 'test/unit/ui/console/testrunner'
+require 'qpdir'
+
+module RioTest
+  class ModSuite
+    attr_reader :utmod_name,:root_mod
+    def initialize(utmod_name,root_mod = RIO)
+      @utmod_name = utmod_name
+      @root_mod = root_mod
+      @suite = nil
+    end
+    def test_dir
+      $QPDIR + root_mod.to_s.downcase + '_' + utmod_name.to_s.downcase
+    end
+    def run
+      wd = Dir.pwd
+      rio(test_dir).delete!.mkpath.chdir
+      # p "ModSuite.run pwd=#{Dir.pwd}"
+      ste = self.suite
+      Test::Unit::UI::Console::TestRunner.run(ste)
+      Dir.chdir(wd)
+    end
+    def topmod
+      root_mod.module_eval(utmod_name.to_s)
+    end
+    def utmod
+      unless topmod.const_defined?(:UnitTest)
+        topmod.const_set(:UnitTest,Module.new)
+      end
+      topmod.module_eval(:UnitTest.to_s)
+    end
+    def mods
+      utmod.constants
+    end
+    def modlist
+      clsdef = %{
+        class TestCase < Test::Unit::TestCase
+          include Tests
+        end
+      }
+      mlist = []
+      mods.each do |modstr|
+        m = utmod.module_eval(modstr.to_s).module_eval(clsdef.to_s)
+        #Test::Unit::UI::Console::TestRunner.run(mod.module_eval(:TestSuite))  if $0 == file
+        #Test::Unit::UI::Console::TestRunner.run(m)
+        mlist << m
+      end
+      mlist
+    end
+
+    def self.suite(utmod_name,root_mod = RIO)
+      ms = new(utmod_name,root_mod)
+      ms.create_modsuite
+    end
+
+    def create_modsuite
+      suite = Test::Unit::TestSuite.new(topmod.to_s)
+      modlist.each do |m|
+        suite << m.suite
+      end
+      suite
+    end
+    def <<(ste)
+      self.suite << ste
+    end
+    def add(utmod_name,root_mod = RIO)
+      self.suite << RioTest::ModSuite.new(utmod_name,root_mod).suite
+    end
+
+
+    def suite
+      @suite ||= create_modsuite
+    end
+
+  end
+
+
+
+  
+  def define_utmod(utmod_name,root_mod = RIO)
+
+    topmod = root_mod.module_eval(utmod_name)
+    utmod = topmod.module_eval('UnitTest')
+    
+    mods = utmod.constants
+    p mods
+    
+    clsdef = %{
+      class TestCase < Test::Unit::TestCase
+        include Tests
+      end
+    }
+    modlist = []
+    mods.each do |modstr|
+      m = utmod.module_eval(modstr).module_eval(clsdef)
+      #Test::Unit::UI::Console::TestRunner.run(mod.module_eval(:TestSuite))  if $0 == file
+      #Test::Unit::UI::Console::TestRunner.run(m)
+      modlist << m
+    end
+    modlist
+  end
+  module_function :define_utmod
+
+  def create_modsuite(utmod_name,root_mod = RIO)
+    topmod = root_mod.module_eval(utmod_name)
+    suite = Test::Unit::TestSuite.new(topmod.to_s)
+    modlist = RioTest.define_utmod(utmod_name,root_mod)
+    modlist.each do |m|
+      suite << m.suite
+    end
+    suite
+  end
+  module_function :create_modsuite
+  
+  
+end
+

data/test/riotest/util.rb

@@ -0,0 +1,23 @@
+
+module RioTest
+  module Util
+    def smap(a)
+      a.map(&:to_s)
+    end
+
+    def build_mod_testcase_class(sym)
+      self.module_eval %{
+        module #{sym}
+          class TestCase < Test::Unit::TestCase
+            include Tests
+          end  
+        end
+      }
+    end
+    module_function :build_mod_testcase_class
+  end
+end
+
+
+
+

data/test/runalltests.rb

@@ -11,7 +11,7 @@ require 'test/unit'
 require 'tc/all'
 require 'ftp/all'
 $trace_states = false
-require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/console/testrunner'
 require 'lib/temp_server.rb'
 TempServer.run('runhttptests.rb')
 #require 'test/unit/ui/tk/testrunner'

data/test/runftptests.rb

@@ -1,14 +1,9 @@
-!/usr/local/bin/ruby
+#!/usr/local/bin/ruby
 Dir.chdir File.dirname(__FILE__)
 $devlib=File.expand_path('../lib/')
 $:.unshift $devlib unless $:[0] == $devlib
 
 $mswin32 = (RUBY_PLATFORM =~ /mswin32/)
 
-require 'rio'
-require 'test/unit'
 
-require 'ftp/all'
-$trace_states = false
-require 'test/unit/ui/console/testrunner'
-#require 'test/unit/ui/tk/testrunner'
+require 'ftp/tests'

data/test/runhttp.rb

@@ -1,11 +1,13 @@
 #!/usr/local/bin/ruby
 Dir.chdir File.dirname(__FILE__)
 $:.unshift File.expand_path('../lib/')
+$:.unshift File.expand_path('../test/')
 
 require 'rio'
 require 'lib/temp_server'
+require 'pp'
 
-
-TempServer.run('runhttptests.rb')
+runtestpath = File.expand_path('runhttptests.rb')
+TempServer.run(runtestpath)
 
 #threads.each { |aThread|  aThread.join }

data/test/runhttptests.rb

@@ -1,14 +1,15 @@
-#!/usr/bin/ruby
 Dir.chdir File.dirname(__FILE__)
 $devlib=File.expand_path('../lib/')
 $:.unshift $devlib unless $:[0] == $devlib
+$testlib=File.expand_path('../test/')
+$:.unshift $testlib unless $:[0] == $testlib
 
 $mswin32 = (RUBY_PLATFORM =~ /mswin32/)
 
 require 'rio'
 require 'test/unit'
 
-require 'http/all'
-$trace_states = false
-require 'test/unit/ui/console/testrunner'
-#require 'test/unit/ui/tk/testrunner'
+require 'http/tests'
+
+
+RioTest::ModSuite.new(:HTTP).run if $0 == __FILE__

data/test/runtests.rb

@@ -1,52 +1,81 @@
-#!/usr/local/bin/ruby
+#!/usr/bin/ruby -KU
+# encoding: UTF-8
 Dir.chdir File.dirname(__FILE__)
 $devlib=File.expand_path('../lib/')
 $:.unshift $devlib unless $:[0] == $devlib
+$testlib=File.expand_path('../test/')
+$:.unshift $testlib unless $:[0] == $testlib
 
-$mswin32 = (RUBY_PLATFORM =~ /mswin32/)
+
+
+require 'platform'
 
 require 'rio'
+p "[#{RUBY_PLATFORM}] - Ruby(#{RUBY_VERSION}) - Rio(#{RIO::VERSION})"
 
 $trace_states = false
 require 'optparse'
+require 'riotest/unit_test'
+
 
-options = {}
-OptionParser.new do |opts|
-  opts.banner = "Usage: #{$0} [options]"
+def get_options
+  options = {}
+  OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [options]"
+    
+    opts.on("-f", "--ftp", "Run FTP Tests") do |v|
+      options[:ftp] = v
+    end
+    opts.on("-h", "--http", "Run HTTP Tests") do |v|
+      options[:http] = v
+    end
+    opts.on("-s", "--std", "Run Standard Tests") do |v|
+      options[:std] = v
+    end
+    opts.on("-a", "--all", "Run All Tests") do |v|
+      options[:std] = v
+      options[:ftp] = v
+      options[:http] = v
+    end
+  end.parse!
   
-  opts.on("-f", "--ftp", "Run FTP Tests") do |v|
-    options[:ftp] = v
-  end
-  opts.on("-h", "--http", "Run HTTP Tests") do |v|
-    options[:http] = v
-  end
-  opts.on("-s", "--std", "Run Standard Tests") do |v|
-    options[:std] = v
-  end
-  opts.on("-a", "--all", "Run All Tests") do |v|
-    options[:std] = v
-    options[:ftp] = v
-    options[:http] = v
+  options[:std] = true if options.empty?
+  options
+end
+def find_tests(ms)
+  self.class.constants.each do |cnst|
+    cons = self.class.class_eval(cnst.to_s)
+    if cons.kind_of?(Class) and cons.ancestors.include?(Test::Unit::TestCase)
+      ms << cons.suite
+    end
   end
-end.parse!
-
-options[:std] = true if options.empty?
-
-options.keys.each do |opt|
-  case opt
-  when :std
-    require 'tc/all'
-    require 'test/unit/ui/console/testrunner'
-  when :http
-    require 'lib/temp_server.rb'
-    TempServer.new.run('runhttptests.rb')
-  when :ftp
-    require 'test/unit'
-    require 'ftp/all'
-    require 'test/unit/ui/console/testrunner'
+  ms
+end
+def run(options)
+  ms = RioTest::ModSuite.new("RIO")
+  
+  options.keys.each do |opt|
+    case opt
+    when :std
+      require 'tc/all'
+      require 'alturi/tests'
+      require 'uriref/tests'
+      find_tests(ms)
+      ms.add(:URI,Alt)
+      ms.add(:URIRef)
+    when :http
+      require 'http/tests'
+      ms.add(:HTTP)
+      #require 'lib/temp_server.rb'
+      #TempServer.new.run('runhttptests.rb')
+    when :ftp
+      require 'ftp/tests'
+      ms.add(:FTP)
+    end
   end
+  ms.run
 end
 
-#require 'test/unit/ui/tk/testrunner'
-#require 'test/unit/ui/fox/testrunner'
-#Test::Unit::UI::Tk::TestRunner.run(TC_MyTest)
+options = get_options
+run(options)
+