rio 0.4.2 → 0.5.1

data/test/ftp/testdef.rb

@@ -1,5 +1,10 @@
 require 'rio'
 
+module RIO
+  module FTP
+  end
+end
+
 module Test
   module RIO
     module FTP
@@ -10,8 +15,8 @@ module Test
         FSROOT = rio("#{DRV}/srv/ftp")
         #FSROOT = rio("../../srv/ftp")
         #FTPHOST = '192.168.1.101'
-        FTPHOST = 'riotest.hopto.org'
-        #FTPHOST = 'localhost'
+        #FTPHOST = 'riotest.hopto.org'
+        FTPHOST = 'localhost'
         FTPROOT = rio("ftp://#{FTPHOST}/")
 
         TESTDIR = rio('riotest')

data/test/ftp/tests.rb

@@ -0,0 +1,24 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'ftp/tc/anon_read'
+require 'ftp/tc/anon_copy_data'
+require 'ftp/tc/anon_misc'
+require 'ftp/tc/anon_special'
+require 'ftp/tc/anon_write'
+require 'ftp/tc/ftp2ftp'
+require 'ftp/tc/ftp_fs'
+
+require 'riotest/unit_test.rb'
+require 'riotest/util'
+
+RioTest::ModSuite.new(:FTP).run if $0 == __FILE__
+
+#wdir = File.expand_path('qp/ftp')
+#rio(wdir).delete!.mkpath.chdir do
+#  RioTest.define_utmod(:FTP)
+#end

data/test/gem_runtests.rb

@@ -11,5 +11,5 @@ require 'test/unit'
 
 require 'tc/all'
 $trace_states = false
-require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/console/testrunner'
 #require 'test/unit/ui/tk/testrunner'

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

@@ -39,7 +39,6 @@ class TC_copy_from_http < Test::RIO::TestCase
   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

data/test/http/def.rb

@@ -0,0 +1,20 @@
+
+module RIO::HTTP
+  module TestConst
+    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(rio(__FILE__).dirname,'../srv/www/htdocs',RTDIR)
+    HWFILE = LOCALRTDIR/HWFILENAME
+    GZFILE = LOCALRTDIR/GZFILENAME
+    URLS = [HWURL,GZURL,DRURL]
+  end
+end
+

data/test/http/tc/copy_from_http.rb

@@ -0,0 +1,128 @@
+require 'rio'
+require "test/unit"
+require 'http/def'
+
+module RIO::HTTP::UnitTest
+  module CopyFromHTTP
+    module Tests
+      include RIO::HTTP::TestConst
+
+
+      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
+        #p "copy_from_http: pwd=#{Dir.pwd}"
+        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
+        puts HWFILE.abs
+        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
+    
+  end
+end
+

data/test/http/tc/empty.rb

@@ -0,0 +1,14 @@
+require 'rio'
+require "test/unit"
+
+
+module RIO::HTTP::UnitTest
+  module EMTPY
+    module Tests
+
+
+    end
+    
+  end
+end
+

data/test/http/tc/uri_meta.rb

@@ -0,0 +1,52 @@
+require 'rio'
+require "test/unit"
+require 'http/def'
+
+module RIO::HTTP::UnitTest
+  module URIMeta
+    module Tests
+      include RIO::HTTP::TestConst
+
+      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
+    
+  end
+end
+

data/test/http/tests.rb

@@ -0,0 +1,19 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+  $:.unshift File.expand_path('../test/')
+end
+
+require 'rio'
+module RIO
+  module HTTP
+  end
+end
+
+require 'http/tc/uri_meta.rb'
+require 'http/tc/copy_from_http.rb'
+
+require 'riotest/unit_test'
+
+RioTest::ModSuite.new(:HTTP).run if $0 == __FILE__

data/test/lib/assertions.rb

@@ -0,0 +1,7 @@
+module RIOTest
+  module Assertions
+    def assert!(a,msg="negative assertion")
+      assert((!(a)),msg)
+    end
+  end
+end

data/test/lib/run_tests.rb

@@ -0,0 +1,26 @@
+require 'rio'
+
+HOSTNAME = `hostname`.chomp
+#p HOSTNAME
+SHHOST = 'frenzy'
+HOSTROOT = HOSTNAME == SHHOST ? "" : '//'+SHHOST
+
+QDIR = HOSTROOT + '/share/q/'
+TDIR = QDIR + 'test/'
+#p "TDIR=#{TDIR}"
+
+module RunTests
+  def run_tests(test_dir,test_top = TDIR,&block)
+    rio(test_top).mkdir.chdir do
+      rio(test_dir).delete!.mkdir.chdir do
+        yield
+      end
+    end
+  end
+  module_function :run_tests
+end
+
+def run_tests(*args,&block)
+  RunTests.run_tests(*args,&block)
+end
+

data/test/lib/temp_server.rb

@@ -1,13 +1,15 @@
 require 'webrick'
 require 'rio'
-
+require 'rbconfig'
 
 class TempServer
+RUBY = File.join(RbConfig::CONFIG['bindir'], 
+                 RbConfig::CONFIG['ruby_install_name']).sub(/.*\s.*/m, '"\&"')
   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 ]],
+      :Logger => WEBrick::Log.new((@logdir/'server.log').to_s), 
+      :AccessLog => [[ (@logdir/'access.log').to_s, WEBrick::AccessLog::COMBINED_LOG_FORMAT ]],
       :Port => ENV['RIO_TEST_PORT'] || '8088',
     }
     @config.merge!(server_config)
@@ -27,7 +29,8 @@ class TempServer
   end
   def run_progs(progs)
     progs.each do |prog|
-      system("ruby #{prog}")
+
+      system("#{RUBY} #{prog}")
     end
   end
   def run(*programs)

data/test/methods/test_suite.rb

@@ -0,0 +1,108 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/rio/')
+end
+require 'test/unit/testsuite'
+require 'test/unit/ui/console/testrunner'
+
+require 'tc/abs2'
+require 'tc/yaml'
+require 'tc/truncate'
+require 'tc/line_record_row'
+#require 'tc/path_parts'
+#require 'tc/abs'
+require 'tc/abs2'
+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' unless $mswin32 || $jruby
+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/csv_gzip'
+#require 'tc/csv_headers'
+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 || $jruby
+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 || $jruby
+require 'tc/symlink0' unless $mswin32 || $jruby
+require 'tc/symlink1' unless $mswin32 || $jruby
+#require 'tc/temp'
+#require 'tc/tempdir'
+#require 'tc/tempfile'
+
+module RIO
+  module TC
+    class TestSuite
+      def self.suite
+        suite = Test::Unit::TestSuite.new("RIO::TC::TestSuite")
+        suite << TC_RIO_abs2.suite
+        suite << TC_yaml.suite
+        suite << TC_truncate.suite
+        suite << TC_line_record_row.suite
+        return suite
+      end
+    end
+  end
+end
+
+
+Test::Unit::UI::Console::TestRunner.run(RIO::TC::TestSuite)  if $0 == __FILE__
+
+
+