rio 0.3.1

data/test/1.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/ruby
+Dir.chdir File.dirname(__FILE__)
+$:.unshift '../lib'
+
+require 'rio'
+require 'test/unit'
+
+ARGV.each do |el|
+  puts "Running test '#{el}'"
+  load 'tc/'+el+'.rb'
+end
+$trace_states = false
+require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/tk/testrunner'

data/test/mswin32.rb

@@ -0,0 +1,28 @@
+require 'rio'
+require 'test/unit'
+require 'tc/create'
+require 'tc/methods'
+require 'tc/abs'
+require 'tc/closeoneof'
+require 'tc/copy'
+require 'tc/copydest'
+require 'tc/copylines'
+require 'tc/dirent'
+require 'tc/each'
+require 'tc/entary'
+require 'tc/eq'
+require 'tc/getrec'
+require 'tc/lines'
+require 'tc/misc'
+require 'tc/pa'
+require 'tc/paths'
+require 'tc/qae'
+require 'tc/nolines'
+require 'tc/records'
+require 'tc/expand_path'
+require 'tc/clearsel'
+require 'tc/csv'
+require 'tc/dir'
+
+
+require 'test/unit/ui/console/testrunner'

data/test/once.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/ruby
+require 'rio'
+require 'test/unit'
+require 'rio/tc/once'
+$trace_states = false
+require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/tk/testrunner'

data/test/runtests.rb

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

data/test/runtests_gem.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/ruby
+Dir.chdir File.dirname(__FILE__)
+#$:.unshift File.expand_path('../lib/')
+
+require 'rubygems'
+require_gem 'rio'
+
+
+#require 'rio'
+require 'test/unit'
+
+require 'tc/all'
+$trace_states = false
+require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/tk/testrunner'

data/test/tc/abs.rb

@@ -0,0 +1,349 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+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.chop,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 = RIO::RL.fs2url(::Dir.getwd)
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+      assert_equal('path:qp',hd.to_url)
+      assert_equal('file://'+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 = RIO::RL.fs2url(::Dir.getwd)
+      assert_equal(cwd+'/'+hdurl.chop,hd.abs.to_s)
+      assert_equal('path:qp/',hd.to_url)
+      assert_equal('file://'+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 = RIO::RL.fs2url(::Dir.getwd)
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+#      assert_equal('path:qp/',hd.to_url)
+#      assert_equal('file://'+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 = RIO::RL.fs2url(::Dir.getwd)
+      assert_equal(cwd+'/'+hdurl.chop,hd.abs.to_s)
+      assert_equal('path:qp/',hd.to_url)
+      assert_equal('file://'+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 = RIO::RL.fs2url(::Dir.getwd)
+      assert_equal(cwd+'/'+hdurl,hd.abs.to_s)
+      assert_equal('path:qp',hd.to_url)
+      assert_equal('file://'+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 = RIO::RL.fs2url(::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/'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,42 @@
+require 'test/unit'
+require 'tc/testcase'
+require 'tc/abs'
+require 'tc/closeoneof'
+require 'tc/clearsel'
+require 'tc/closeoncopy'
+require 'tc/copy-to'
+require 'tc/copy-from'
+require 'tc/copy'
+require 'tc/copyarray'
+require 'tc/copydir'
+require 'tc/copydirlines'
+require 'tc/copydest'
+require 'tc/copylines'
+require 'tc/create'
+require 'tc/csv'
+require 'tc/dir'
+require 'tc/dirent'
+require 'tc/each'
+require 'tc/each_break'
+require 'tc/entary'
+require 'tc/eq'
+require 'tc/expand_path'
+require 'tc/ext'
+require 'tc/getrec'
+require 'tc/lines'
+require 'tc/methods'
+require 'tc/misc'
+require 'tc/nolines'
+require 'tc/noqae'
+require 'tc/overload'
+require 'tc/pa'
+require 'tc/paths'
+require 'tc/qae'
+require 'tc/qae_riovar'
+require 'tc/records'
+require 'tc/rename'
+require 'tc/symlink'
+require 'tc/symlink0'
+require 'tc/symlink1'
+
+