wishdev-rio 0.4.3.1

data/test/runhttptests.rb

@@ -0,0 +1,14 @@
+#!/usr/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 'http/all'
+$trace_states = false
+require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/tk/testrunner'

data/test/runtests.rb

@@ -0,0 +1,52 @@
+#!/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'
+
+$trace_states = false
+require 'optparse'
+
+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!
+
+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'
+  end
+end
+
+#require 'test/unit/ui/tk/testrunner'
+#require 'test/unit/ui/fox/testrunner'
+#Test::Unit::UI::Tk::TestRunner.run(TC_MyTest)

data/test/tc/abs.rb

@@ -0,0 +1,355 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+require 'rio'
+require 'test/unit'
+require 'test/unit/testsuite'
+
+class TC_RIO_abs < Test::Unit::TestCase
+  def test_abs
+    rio('qp/test_abs').rmtree.mkpath.chdir {
+      
+      
+      require 'uri'
+      
+      hdurl = 'http://localhost/'
+      hduri = ::URI.parse(hdurl)
+      hd = rio(hduri)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('http',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.abs.to_url)
+
+      hdurl = 'http://localhost/'
+      hd = rio(hdurl)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('http',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.abs.to_url)
+
+      hdurl = 'http://localhost'
+      hduri = ::URI.parse(hdurl)
+      hd = rio(hduri)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('http',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl+'/',hd.abs.to_url)
+
+      hdurl = 'http://localhost'
+      hd = rio(hdurl)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('http',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl+'/',hd.abs.to_url)
+
+      hdurl = 'http://localhost/rio/hw.html'
+      hd = rio(hdurl)
+      assert_equal('/rio/hw.html',hd.path)
+      assert_equal('/rio/hw.html',hd.fspath)
+      assert_equal('http',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.abs.to_url)
+
+      hdurl = 'file://localhost/'
+      hduri = ::URI.parse(hdurl)
+      hd = rio(hduri)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.to_url)
+      assert_equal(hdurl,hd.abs.to_url)
+
+      hdurl = 'file://localhost/'
+
+      hd = rio(hdurl)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.to_url)
+      assert_equal(hdurl,hd.abs.to_url)
+
+      hdurl = 'file://localhost'
+      hduri = ::URI.parse(hdurl)
+      hd = rio(hduri)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl+'/',hd.to_url)
+      assert_equal(hdurl+'/',hd.abs.to_url)
+
+      hdurl = 'file://localhost'
+      hd = rio(hdurl)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('localhost',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl+'/',hd.to_url)
+      assert_equal(hdurl+'/',hd.abs.to_url)
+
+      hdurl = 'file:///'
+      hduri = ::URI.parse(hdurl)
+      hd = rio(hduri)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.to_url)
+      assert_equal(hdurl,hd.abs.to_url)
+
+      hdurl = 'file:///'
+      hd = rio(hdurl)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.to_url)
+      assert_equal(hdurl,hd.abs.to_url)
+
+      hdurl = '/'
+      hd = rio(hdurl)
+      assert_equal('/',hd.path)
+      assert_equal('/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.abs.to_s)
+      assert_equal('file:///',hd.to_url)
+      assert_equal('file:///',hd.abs.to_url)
+      require 'tmpdir'
+
+      hdurl = '/tmp'
+      hdurl = '/WINDOWS' unless FileTest.directory?(hdurl)
+      hd = rio(hdurl)
+#      assert_equal(hdurl+'/',hd.path)
+      assert_equal(hdurl,hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.abs.to_s)
+ #     assert_equal('file://'+hdurl+'/',hd.to_url)
+ #     assert_equal('file://'+hdurl+'/',hd.abs.to_url)
+
+      hdurl = '/tmp/'
+      hd = rio(hdurl)
+      assert_equal('/tmp/',hd.path)
+      assert_equal('/tmp/',hd.fspath)
+      assert_equal('file',hd.scheme)    
+      assert_equal('',hd.host)
+      assert_equal(true,hd.abs?)
+      assert_equal(true,hd.absolute?)
+      assert_equal(hdurl,hd.abs.to_s)
+      assert_equal('file:///tmp/',hd.to_url)
+      assert_equal('file:///tmp/',hd.abs.to_url)
+
+      # case qp dir does not exist
+      rio('qp').delete!
+      hdurl = 'qp'
+      hd = rio(hdurl)
+      assert_equal('qp',hd.path)
+      assert_equal('qp',hd.fspath)
+      assert_equal('path',hd.scheme)    
+      assert_nil(hd.host)
+      assert_equal(false,hd.abs?)
+      assert_equal(false,hd.absolute?)
+      cwd = ::Dir.getwd
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+      assert_equal('path:qp',hd.to_url)
+
+      assert_equal('file://'+RIO::RL.fs2url(cwd)+'/'+hdurl,hd.abs.to_url)
+
+      hdurl = 'qp/'
+      hd = rio(hdurl)
+      assert_equal('qp/',hd.path)
+      assert_equal('qp/',hd.fspath)
+      assert_equal('path',hd.scheme)    
+      assert_nil(hd.host)
+      assert_equal(false,hd.abs?)
+      assert_equal(false,hd.absolute?)
+      cwd = ::Dir.getwd
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+      assert_equal('path:qp/',hd.to_url)
+      assert_equal('file://'+RIO::RL.fs2url(cwd)+'/'+hdurl,hd.abs.to_url)
+
+      # case qp dir exists
+      rio('qp').mkdir
+
+      hdurl = 'qp'
+      hd = rio(hdurl)
+#      assert_equal('qp/',hd.path)
+      assert_equal('qp',hd.fspath)
+      assert_equal('path',hd.scheme)    
+      assert_nil(hd.host)
+      assert_equal(false,hd.abs?)
+      assert_equal(false,hd.absolute?)
+      cwd = ::Dir.getwd
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+      assert_equal('path:qp',hd.to_url)
+      assert_equal('file://'+RIO::RL.fs2url(cwd)+'/'+hdurl,hd.abs.to_url)
+
+      hdurl = 'qp/'
+      hd = rio(hdurl)
+      assert_equal('qp/',hd.path)
+      assert_equal('qp/',hd.fspath)
+      assert_equal('path',hd.scheme)    
+      assert_nil(hd.host)
+      assert_equal(false,hd.abs?)
+      assert_equal(false,hd.absolute?)
+      cwd = ::Dir.getwd
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+      assert_equal('path:qp/',hd.to_url)
+      assert_equal('file://'+RIO::RL.fs2url(cwd)+'/'+hdurl,hd.abs.to_url)
+
+      # case qp file exists
+      rio('qp').rmtree.touch
+
+      hdurl = 'qp'
+      hd = rio(hdurl)
+      assert_equal('qp',hd.path)
+      assert_equal('qp',hd.fspath)
+      assert_equal('path',hd.scheme)    
+      assert_nil(hd.host)
+      assert_equal(false,hd.abs?)
+      assert_equal(false,hd.absolute?)
+      cwd = ::Dir.getwd
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+      assert_equal('path:qp',hd.to_url)
+      assert_equal('file://'+RIO::RL.fs2url(cwd)+'/'+hdurl,hd.abs.to_url)
+
+      io = RIO.root
+      assert_kind_of(RIO::Rio,io)
+      assert_equal('/',io.to_s)
+
+
+      z = RIO.rio(RIO.root,%w/tmp zippy/)
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+
+      io = RIO.cwd
+      assert_kind_of(RIO::Rio,io)
+      cwd = ::Dir.getwd
+      assert_equal(cwd,io.path)
+
+      io = RIO.cwd
+      assert_kind_of(RIO::Rio,io)
+      cwd = ::Dir.getwd
+      assert_equal(cwd,io.to_s)
+
+      io = RIO.root/'tmp'
+      assert_kind_of(RIO::Rio,io)
+      assert_equal('/tmp',io.to_s)
+
+      tmp = RIO.root('tmp')
+      assert_kind_of(RIO::Rio,tmp)
+      assert_equal('/tmp',tmp.to_s)
+      
+      z = tmp.join('zippy')
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      z = tmp/'zippy'
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      z = RIO.rio('/tmp/zippy')
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+      
+      z = RIO.rio(tmp,'zippy')
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      z = RIO.rio(RIO.root,%w/tmp zippy/)
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      z = RIO.rio(tmp)/'zippy'
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      z = rio('/tmp/zippy')
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+      
+      z = rio(tmp,'zippy')
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      z = rio(RIO.root,%w/tmp zippy/)
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      z = rio(tmp).join('zippy')
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy',z.to_s)
+
+      require 'rio/uri/file'
+      z = rio(URI('zippy/f.html'))
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('zippy/f.html',z.to_s)
+
+      z = rio(URI("file:///tmp/zippy/f.html"))
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy/f.html',z.to_s)
+
+      z = rio("file:///tmp/zippy/f.html")
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy/f.html',z.to_s)
+
+      z = rio("file:///tmp/","zippy/f.html")
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy/f.html',z.to_s)
+
+      u = URI('zippy/f.html')
+
+      z = rio("file:///tmp/",u)
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy/f.html',z.to_s)
+
+      z = rio("file:///tmp/",RIO::RL::Builder.build(u))
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy/f.html',z.to_s)
+
+      z = rio("file:///tmp/",rio(u))
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy/f.html',z.to_s)
+
+      z = rio("/tmp",rio(u))
+      assert_kind_of(RIO::Rio,z)
+      assert_equal('/tmp/zippy/f.html',z.to_s)
+    }
+  end
+end

data/test/tc/all.rb

@@ -0,0 +1,80 @@
+require 'test/unit'
+require 'tc/testcase'
+
+require 'tc/yaml'
+require 'tc/truncate'
+require 'tc/line_record_row'
+require 'tc/path_parts'
+require 'tc/abs'
+require 'tc/tonl'
+require 'tc/files_select'
+require 'tc/emptyriodir'
+require 'tc/entsel'
+require 'tc/base'
+require 'tc/base2'
+require 'tc/clearsel'
+require 'tc/closeoncopy'
+require 'tc/closeoneof'
+require 'tc/cmdpipe'
+require 'tc/copy'
+require 'tc/copy-from'
+require 'tc/copy-to'
+require 'tc/copyarray'
+require 'tc/copydest'
+require 'tc/copydir'
+require 'tc/copy-dir-samevar'
+require 'tc/copydirlines'
+require 'tc/copylines'
+require 'tc/create'
+require 'tc/csv'
+require 'tc/csv2'
+require 'tc/csv_columns'
+require 'tc/dir'
+require 'tc/dir_iter'
+require 'tc/dirent'
+require 'tc/each'
+require 'tc/each_break'
+require 'tc/empty'
+require 'tc/entary'
+require 'tc/eq'
+require 'tc/expand_path'
+require 'tc/ext'
+require 'tc/get'
+require 'tc/gzip'
+require 'tc/getrec'
+require 'tc/io_each_byte'
+require 'tc/io_read'
+require 'tc/iometh'
+require 'tc/likeio'
+require 'tc/lines'
+require 'tc/clone'
+require 'tc/misc'
+require 'tc/nolines'
+require 'tc/noqae'
+require 'tc/null' unless $mswin32
+require 'tc/overload'
+require 'tc/pa'
+require 'tc/paths'
+require 'tc/pid'
+require 'tc/piper' unless $mswin32
+require 'tc/qae'
+require 'tc/qae_riovar'
+require 'tc/readline'
+require 'tc/records'
+require 'tc/rename'
+require 'tc/riorl'
+require 'tc/route'
+require 'tc/selnosel'
+require 'tc/skip'
+require 'tc/skiplines'
+require 'tc/split'
+require 'tc/splitpath'
+require 'tc/splitlines'
+require 'tc/symlink' unless $mswin32
+require 'tc/symlink0' unless $mswin32
+require 'tc/symlink1' unless $mswin32
+require 'tc/temp'
+require 'tc/tempdir'
+require 'tc/tempfile'
+
+