wishdev-rio 0.4.3.1

data/test/ftp/ftp2ftp.rb

@@ -0,0 +1,51 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'open-uri'
+require 'ftp/testdef'
+
+class TC_ftp2ftp < Test::RIO::TestCase
+  @@once = false
+  include Test::RIO::FTP::Const
+
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    FS_RWROOT.entries { |ent| ent.delete! }
+  end
+  def test_cp_ro2rw_file1
+    fname = 'f0'
+    src = FTP_ROROOT/fname
+    dst = FTP_RWROOT/fname
+    dst < src
+    assert_equal(src.chomp[],dst.chomp[])
+  end
+  def test_cp_ro2rw_file2
+    fname = 'f0'
+    src = FTP_ROROOT/fname
+    dst = FTP_RWROOT
+    dst < src
+    fdst = dst/fname
+    assert_equal(src.chomp[],fdst.chomp[])
+  end
+  def test_cp_ro2rw_dir
+    fname = 'd0'
+    src = FTP_ROROOT/fname
+    dst = FTP_RWROOT
+    dst < src
+    ans = rio(FTP_RWROOT,fname).to_a
+    exp = rio(FTP_ROROOT,fname).to_a.map{ |s| s.sub('ro','rw') }
+  
+    assert_equal(smap(exp),smap(ans))
+  end
+
+
+end

data/test/ftp/initftpfiles.rb

@@ -0,0 +1,14 @@
+#!/usr/local/bin/ruby
+Dir.chdir File.dirname(__FILE__)
+$devlib=File.expand_path('../../lib/')
+$:.unshift $devlib unless $:[0] == $devlib
+require 'rio'
+$testlib = rio($devlib)
+$testlib.filename = 'test'
+$:.unshift $testlib.to_s
+
+require 'ftp/testdef'
+Test::RIO::FTP::init_test_files()
+
+
+exit

data/test/ftp/testdef.rb

@@ -0,0 +1,55 @@
+require 'rio'
+
+module Test
+  module RIO
+    module FTP
+      module Const
+        FTPUSER = 'ftp'
+        
+        DRV = $mswin32 ? 'x:' : ''
+        FSROOT = rio("#{DRV}/srv/ftp")
+        #FSROOT = rio("../../srv/ftp")
+        #FTPHOST = '192.168.1.101'
+        FTPHOST = 'riotest.hopto.org'
+        #FTPHOST = 'localhost'
+        FTPROOT = rio("ftp://#{FTPHOST}/")
+
+        TESTDIR = rio('riotest')
+
+        RODIR = rio('ro')
+        RWDIR = rio('rw')
+        FTP_RWROOT = FTPROOT/TESTDIR/RWDIR
+        FTP_ROROOT = FTPROOT/TESTDIR/RODIR
+        FS_RWROOT = FSROOT/TESTDIR/RWDIR
+        FS_ROROOT = FSROOT/TESTDIR/RODIR
+        unless $mswin32
+          PASSWDFILE = '/etc/passwd'
+          UID,GID = rio(PASSWDFILE).lines[/^#{FTPUSER}/][0].split(':')[2..3].map{|strid| strid.to_i}
+        end
+      end
+      include Const
+      def init_test_files
+        fsdir = rio(FSROOT,TESTDIR).delete!.mkdir
+        rodir = rio(fsdir,RODIR).mkdir
+        rwdir = rio(fsdir,RWDIR).mkdir
+        f0 = rodir/'f0' < "File0\n"
+        d0 = rio(rodir,'d0').mkdir
+        f1 = rio(d0,'f1') < "File1\n"
+        d1 = rio(d0,'d1').mkdir
+        f2 = rio(d1,'f2') < "File2\n"
+        f0.chown(UID,GID).chmod(0555)
+        f1.chown(UID,GID).chmod(0555)
+        f2.chown(UID,GID).chmod(0555)
+        d1.chown(UID,GID).chmod(0555)
+        d0.chown(UID,GID).chmod(0555)
+        rodir.chown(UID,GID).chmod(0555)
+        rwdir.chown(UID,GID).chmod(0777)
+        fsdir.chown(UID,GID).chmod(0555)
+        
+        puts rio(FSROOT,TESTDIR).all[]
+      end
+      module_function :init_test_files
+    end
+  end
+end
+

data/test/gem_runtests.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/ruby
+Dir.chdir File.dirname(__FILE__)
+#$:.unshift File.expand_path('../lib/')
+
+require 'rubygems'
+require '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/http/all.rb

@@ -0,0 +1,4 @@
+require 'tc/testcase'
+
+require 'http/copy-from-http'
+require 'http/uri-meta'

data/test/http/copy-from-http.rb

@@ -0,0 +1,141 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+
+class TC_copy_from_http < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  RTHOST = ENV['RIO_TEST_HOST'] ||= 'localhost'
+  RTPORT = ENV['RIO_TEST_PORT'] || 80
+  RTHOSTPORT = "#{RTHOST}:#{RTPORT}"
+  RTDIR = 'riotest'
+  HWFILENAME = 'hw.html'
+  GZFILENAME = 'lines.txt.gz'
+  HWURL = "http://#{RTHOSTPORT}/#{RTDIR}/#{HWFILENAME}"
+  GZURL = "http://#{RTHOSTPORT}/#{RTDIR}/#{GZFILENAME}"
+  LOCALRTDIR = rio('../../srv/www/htdocs',RTDIR)
+  HWFILE = LOCALRTDIR/HWFILENAME
+  GZFILE = LOCALRTDIR/GZFILENAME
+
+
+  def cptest(src)
+    dst = rio('dst').delete!.mkpath
+    dst < src.clone
+    assert_rios_equal(src.clone,rio(dst,src.filename),"rio copy")
+  end
+
+  def test_gunzip_uri_rio
+    ans = rio(GZURL).gzip.contents
+    exp = rio(GZFILE).gzip.contents
+    
+    assert_equal(exp,ans)
+  end
+  def test_gunzip_copy_uri_rio
+    ario = rio('out.txt').delete! < rio(GZURL).gzip
+    ans = rio(ario).contents
+    exp = rio(GZFILE).gzip.contents
+    assert_equal(exp,ans)
+  end
+
+  def test_uri_rio_to_file
+    ario = rio('outf').delete!.touch
+    url = HWURL
+    urio = rio(url)
+    ario < urio
+    exp = urio.contents
+    assert_equal(exp,ario.contents)
+    assert_equal(rio(HWFILE).contents,rio('outf').contents)
+  end
+
+  def test_uri_rio_to_file2
+    ario = rio('outf2').delete!.touch
+    url = HWURL
+    urio = rio(url)
+    urio > ario
+    exp = urio.contents
+    assert_equal(exp,ario.contents)
+    assert_equal(rio(HWFILE).contents,rio('outf2').contents)
+  end
+  def test_uri_rio_to_filex
+    ario = rio('outx').delete!
+    url = HWURL
+    urio = rio(url)
+    ario < urio
+    exp = urio.contents
+    assert_equal(exp,ario.contents)
+    assert_equal(rio(HWFILE).contents,rio('outx').contents)
+  end
+  def test_uri_rio_to_filex2
+    ario = rio('outx2').delete!
+    url = HWURL
+    urio = rio(url)
+    urio > ario
+    exp = urio.contents
+    assert_equal(exp,ario.contents)
+    assert_equal(rio(HWFILE).contents,rio('outx2').contents)
+  end
+  def test_uri_rio_to_dir
+    ario = rio('ud').delete!.mkdir
+    url = HWURL
+    urio = rio(url)
+    ario < urio
+    drio = rio(ario,urio.filename)
+    assert(drio.file?)
+    assert_equal(urio.contents,drio.contents)
+    assert_equal(rio(HWFILE).contents,drio.contents)
+  end
+  def test_uri_rio_to_dir2
+    ario = rio('ud2').delete!.mkdir
+    url = HWURL
+    urio = rio(url)
+    urio > ario
+    drio = rio(ario,urio.filename)
+    assert(drio.file?)
+    assert_equal(urio.contents,drio.contents)
+    assert_equal(rio(HWFILE).contents,drio.contents)
+  end
+  def test_uri_string_to_dir
+    ario = rio('uds').delete!.mkdir
+    url = HWURL
+    urio = rio(url)
+    #$trace_states = true
+    ario < url
+    $trace_states = false
+    drio = rio(ario,urio.filename)
+    assert(drio.file?)
+    assert(urio.contents,drio.contents)
+  end
+  def test_url_string_to_file
+    ario = rio('out').delete!.touch
+    url = HWURL
+    ario < url
+    exp = url
+    assert_equal(exp,ario.contents)
+  end
+  def test_url_array_to_file
+    ario = rio('out').delete!.touch
+    url = HWURL
+    ario < [url]
+    exp = url
+    assert_equal(exp,ario.contents)
+  end
+  def test_url_string_to_nonex
+    ario = rio('outz').delete!
+    url = HWURL
+    ario < url
+    exp = url
+    assert_equal(exp,ario.contents)
+  end
+end

data/test/http/uri-meta.rb

@@ -0,0 +1,72 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+
+class TC_uri_meta < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  RTHOST = ENV['RIO_TEST_HOST'] ||= 'localhost'
+  RTPORT = ENV['RIO_TEST_PORT'] || 80
+  RTHOSTPORT = "#{RTHOST}:#{RTPORT}"
+  RTDIR = 'riotest'
+  HWFILENAME = 'hw.html'
+  GZFILENAME = 'lines.txt.gz'
+  DRFILENAME = 'dir'
+  HWURL = "http://#{RTHOSTPORT}/#{RTDIR}/#{HWFILENAME}"
+  GZURL = "http://#{RTHOSTPORT}/#{RTDIR}/#{GZFILENAME}"
+  DRURL = "http://#{RTHOSTPORT}/#{RTDIR}/#{DRFILENAME}"
+  LOCALRTDIR = rio('../../srv/www/htdocs',RTDIR)
+  HWFILE = LOCALRTDIR/HWFILENAME
+  GZFILE = LOCALRTDIR/GZFILENAME
+  URLS = [HWURL,GZURL,DRURL]
+
+  def check_meta(r)
+    f = open(r.to_url)
+    [:content_type,:charset,:base_uri,:content_encoding,:last_modified].each do |sym|
+      exp = f.__send__(sym)
+      ans = r.__send__(sym)
+      assert_equal(exp,ans)
+    end
+  end
+  
+  def test_meta_new()
+    URLS.each do |url|
+      check_meta(rio(url))
+    end
+  end
+
+  def test_meta_open()
+    URLS.each do |url|
+      check_meta(rio(url).open('r'))
+    end
+  end
+
+  def test_meta_read()
+    URLS.each do |url|
+      r = rio(url)
+      contents = r.contents
+      check_meta(r)
+    end
+  end
+
+  def test_meta_read_some()
+    URLS.each do |url|
+      r = rio(url)
+      str = r.gets
+      check_meta(r)
+    end
+  end
+
+end

data/test/lib/temp_server.rb

@@ -0,0 +1,46 @@
+require 'webrick'
+require 'rio'
+
+
+class TempServer
+  def initialize(server_config = {})
+    @logdir = rio('log').delete!.mkdir
+    @config = { :DocumentRoot => rio('srv/www/htdocs').abs, 
+      :Logger => WEBrick::Log.new(@logdir/'server.log'), 
+      :AccessLog => [[ @logdir/'access.log', WEBrick::AccessLog::COMBINED_LOG_FORMAT ]],
+      :Port => ENV['RIO_TEST_PORT'] || '8088',
+    }
+    @config.merge!(server_config)
+    ENV['RIO_TEST_PORT'] = @config[:Port]
+    @server = create_server(@config)
+  end
+  def self.run(*args)
+    new.run(*args)
+  end
+  def create_server(config = {})
+    server = WEBrick::HTTPServer.new(config)
+    yield server if block_given?
+    ['INT', 'TERM'].each {|signal| 
+      trap(signal) {server.shutdown}
+    }
+    server
+  end
+  def run_progs(progs)
+    progs.each do |prog|
+      system("ruby #{prog}")
+    end
+  end
+  def run(*programs)
+    Thread.new(@server) { |srv|
+      srv.start
+    }
+    Thread.new(programs) { |progs|
+      #Thread.pass
+      run_progs(progs)
+    }.join()
+    
+    Thread.new(@server) { |srv|
+      srv.shutdown
+    }
+  end
+end

data/test/runalltests.rb

@@ -0,0 +1,17 @@
+#!/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 'tc/all'
+require 'ftp/all'
+$trace_states = false
+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

@@ -0,0 +1,14 @@
+!/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'

data/test/runhttp.rb

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