rio 0.4.2 → 0.5.1

data/test/tc/tonl.rb

@@ -28,7 +28,6 @@ class TC_tonl < Test::RIO::TestCase
     out = rio.strio
     rio(CRNLFILE) > out
     lines = rio(CRNLFILE).to_a
-    assert_equal(13,lines[0].length)
     rio(NLFILE) < rio(CRNLFILE).chomp.map{ |l| "#{l}\n" }
     lines = rio(NLFILE).to_a
     assert_equal(12,lines[0].length)

data/test/tc/truncate.rb

@@ -20,20 +20,118 @@ class TC_truncate < Test::RIO::TestCase
 
   end
 
-  def test_basic
+  def setup_files(tag)
     str = "1234567890"
-    f = rio("out")
-    f.print!(str)
-    assert_equal(str,f.contents)
-    assert_equal(str.size,f.size)
-    n = 5
-    f.truncate(n)
-    assert_equal(str[0,n],f.contents)
-    assert_equal(n,f.size)
-    n = 2
-    assert_equal(str[0,n],f.read(n))
-    assert_equal(n,f.truncate.size)
-    assert_equal(str[0,n],f.contents)
+    fnbase = "out." + tag
+    fnruby = fnbase + '.ruby'
+    rio(fnruby).print!(str)
+    fnrio = fnbase + '.rio'
+    rio(fnrio).print!(str)
+    [str,fnruby,fnrio]
   end
 
+  def do_changesize(str,fnruby,fnrio,inc)
+    n = str.size + inc
+    File.truncate(fnruby,n)
+    rio(fnrio).truncate(n)
+    assert_equal(File.size(fnruby),rio(fnrio).size)
+    assert_equal(n,rio(fnrio).size)
+
+    fruby_contents = nil
+    f = File.open(fnruby,'r') do |io|
+      fruby_contents = io.read
+    end
+    assert_equal(fruby_contents, rio(fnrio).contents)
+  end
+
+  def test_setup
+    str,fnruby,fnrio = setup_files('setup')
+
+    assert_equal(File.size(fnruby),rio(fnrio).size)
+
+    fruby_contents = nil
+    f = File.open(fnruby,'r') do |io|
+      fruby_contents = io.read
+    end
+    assert_equal(fruby_contents, rio(fnrio).contents)
+  end
+
+  def test_nochange
+    str,fnruby,fnrio = setup_files('nochange')
+
+    File.truncate(fnruby,str.size)
+    rio(fnrio).truncate(str.size)
+    assert_equal(File.size(fnruby),rio(fnrio).size)
+  end
+
+  def test_clear1
+    str,fnrio1,fnrio2 = setup_files('clear1a')
+
+    assert_equal(rio(fnrio1).truncate(0).size,rio(fnrio2).clear.size)
+    str,fnrio1,fnrio2 = setup_files('clear1b')
+    assert_equal(rio(fnrio1).truncate(0).contents,rio(fnrio2).clear.contents)
+  end
+
+  def test_clear2
+    str,fnrio1,fnrio2 = setup_files('clear2a')
+
+    assert_equal(rio(fnrio1).truncate.size,rio(fnrio2).clear.size)
+    str,fnrio1,fnrio2 = setup_files('cleara')
+    assert_equal(rio(fnrio1).truncate.contents,rio(fnrio2).clear.contents)
+  end
+
+  def test_clear3
+    str,fnrio1,fnrio2 = setup_files('clear3a')
+
+    assert_equal(0,rio(fnrio2).clear.size)
+
+    str,fnrio1,fnrio2 = setup_files('clear3b')
+    assert_equal("",rio(fnrio2).clear.contents)
+  end
+
+  def test_shorten
+    str,fnruby,fnrio = setup_files('shorten')
+    do_changesize(str,fnruby,fnrio,-1)
+  end
+
+  def test_lengthen
+    str,fnruby,fnrio = setup_files('lengthen')
+    do_changesize(str,fnruby,fnrio,1)
+  end
+
+  def test_shorten_to_zero
+    str,fnruby,fnrio = setup_files('shorten_to_zero')
+    do_changesize(str,fnruby,fnrio,-str.size)
+  end
+
+  def test_shorten_to_less_than_zero
+    str,fnruby,fnrio = setup_files('shorten_to_less_than_zero')
+    n = -1
+    assert_raise Errno::EINVAL do
+      File.truncate(fnruby,n)
+    end
+    assert_equal(str.size,File.size(fnruby))
+
+    rio(fnrio).truncate(n)
+    assert_equal(0,rio(fnrio).size)
+    assert_equal("",rio(fnrio).contents)
+    #do_changesize(str,fnruby,fnrio,-(str.size+1))
+  end
+
+  def test_nonexistent
+    str,fnruby,fnrio = setup_files('nonexistent')
+    ::File.unlink(fnruby)
+    assert!(rio(fnruby).exist?)
+    assert_raise Errno::ENOENT do
+      File.truncate(fnruby,0)
+    end
+    ::File.unlink(fnrio)
+    assert!(rio(fnrio).exist?)
+    rio(fnrio).truncate(0)
+    assert_equal(0,rio(fnrio).size)
+    assert_equal("",rio(fnrio).contents)
+  end
+
+
+
 end

data/test/tc/yaml.rb

@@ -47,7 +47,7 @@ class TC_yaml < Test::RIO::TestCase
     rio(?",ostring = "").yaml < yout
     assert_equal(rio(TRIO).contents,ostring)
   end
-  def test_yaml2csv
+  def skiptest_yaml2csv
     data = [["h0","h1","h2"],["d0","d1","d2"]]
     csvfile = 'y2c.csv'
     ymlfile = 'y2c.yml'

data/test/test_suite.rb

@@ -0,0 +1,31 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)
+  $:.unshift File.expand_path('../lib/')
+end
+$mswin32 = (RUBY_PLATFORM =~ /mswin32/)
+$jruby = (RUBY_PLATFORM =~ /java/)
+
+require 'rio/version'
+p "[#{RUBY_PLATFORM}] - Ruby(#{RUBY_VERSION}) - Rio(#{RIO::VERSION})"
+
+require 'test/unit/testsuite'
+require 'test/unit/ui/console/testrunner'
+
+require 'alturi/test_suite'
+require 'uriref/test_suite'
+
+class RIO::TestSuite
+    def self.suite
+        suite = Test::Unit::TestSuite.new("RIO::TestSuite")
+        #suite << RIO::URIRef::TestSuite.suite
+        suite << Alt::URI::TestSuite.suite
+        #suite << RIO::TC::TestSuite.suite
+        return suite
+    end
+end
+
+
+Test::Unit::UI::Console::TestRunner.run(RIO::TestSuite) if $0 == __FILE__
+
+

data/test/tests.rb

@@ -0,0 +1,35 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+
+#require 'test/unit'
+require 'riotest/unit_test.rb'
+
+require 'ftp/tests'
+require 'http/tests'
+require 'alturi/tests'
+require 'uriref/tests'
+
+require 'tc/all.rb'
+
+ms = RioTest::ModSuite.new("RIO")
+ms.add(:FTP)
+ms.add(:HTTP)
+ms.add(:URI,Alt)
+ms.add(:URIRef)
+
+def find_tests(ms)
+  self.class.constants.each do |cnst|
+    cons = self.class.class_eval(cnst)
+    if cons.kind_of?(Class) and cons.ancestors.include?(Test::Unit::TestCase)
+      ms << cons.suite
+    end
+  end
+  ms
+end
+find_tests(ms)
+ms.run

data/test/tsuite.rb

@@ -0,0 +1,19 @@
+Dir.chdir File.dirname(__FILE__)
+$devlib=File.expand_path('../lib/')
+$:.unshift $devlib unless $:[0] == $devlib
+require 'test/unit/testsuite'
+require 'test/unit/ui/console/testrunner'
+require 'tc/closeoneof'
+$trace_states = true
+
+class Tsuite
+    def self.suite
+        suite = Test::Unit::TestSuite.new("TSuite")
+        suite << TC_RIO_lines.suite
+        return suite
+    end
+end
+
+#Test::Unit::UI::Tk::TestRunner.run(Tsuite)
+Test::Unit::UI::Console::TestRunner.run(Tsuite)
+

data/test/uriref/tc/basic.rb

@@ -0,0 +1,171 @@
+require 'rio'
+require 'rio/uriref'
+
+module RIO::URIRef::UnitTest
+  module Basic
+    module Tests
+
+
+  def test_initialize
+    alturi = Alt::URI::File.new
+    u = RIO::URIRef.new(alturi)
+    assert_equal(alturi,u.ref)
+    assert_nil(u.base)
+  end
+
+
+  def test_starts_with_slash_slash_path_str_to_uri
+    pth = "//ahost/a/b/c"
+    u = RIO::URIRef.path_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal(pth,u.netpath)
+    assert_equal("ahost",u.host)
+    assert_equal("/a/b/c",u.path)
+  end
+
+  def test_starts_with_slash_path_str_to_uri
+    pth = "/a/b/c"
+    u = RIO::URIRef.path_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal(pth,u.path)
+  end
+
+  def test_starts_with_drive_path_str_to_uri
+    pth = "C:/a/b/c"
+    u = RIO::URIRef.path_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal(pth,u.path)
+  end
+
+  def test_starts_with_scheme_path_str_to_uri
+    pth = "sc:/a/b/c"
+    u = RIO::URIRef.path_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal('sc',u.scheme)
+  end
+
+  def test_starts_with_other_path_str_to_uri
+    pth = "a/b/c"
+    u = RIO::URIRef.path_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal(pth,u.path)
+  end
+
+
+
+
+
+  def test_starts_with_slash_slash_base_str_to_uri
+    pth = "//ahost/a/b/c"
+    u = RIO::URIRef.base_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal(pth,u.netpath)
+    assert_equal('file',u.scheme)
+    assert_equal("ahost",u.host)
+    assert_equal("/a/b/c",u.path)
+  end
+
+  def test_starts_with_slash_base_str_to_uri
+    pth = "/a/b/c"
+    u = RIO::URIRef.base_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal('file',u.scheme)
+    assert_equal('',u.authority)
+    assert_equal(pth,u.path)
+  end
+
+  def test_starts_with_drive_base_str_to_uri
+    pth = "C:/a/b/c"
+    u = RIO::URIRef.base_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal('file',u.scheme)
+    assert_equal('',u.authority)
+    assert_equal(pth,u.path)
+  end
+
+  def test_starts_with_scheme_base_str_to_uri
+    pth = "sc:/a/b/c"
+    u = RIO::URIRef.base_str_to_uri(pth)
+    assert_kind_of(Alt::URI::Base,u)
+    assert_equal('sc',u.scheme)
+  end
+
+  def test_starts_with_other_base_str_to_uri
+    pth = "a/b/c"
+    assert_raise(ArgumentError) {
+      u = RIO::URIRef.base_str_to_uri(pth)
+    }
+  end
+
+  def test_b_nil_abs
+    alturi = Alt::URI::File.new
+    ustr = 'b/c'
+    bstr = 'file://host/a/d'
+    u = RIO::URIRef.build(ustr,:base => bstr)
+    abs = u.abs
+    assert_kind_of(RIO::URIRef,abs)
+    assert_equal('file://host/a/b/c',abs.to_s)
+    assert_equal(bstr,abs.base.to_s)
+  end
+
+  def test_b_not_nil_abs
+    alturi = Alt::URI::File.new
+    ustr = 'b/c'
+    bstr = 'file://host/a/d'
+    u = RIO::URIRef.build(ustr,:base => bstr)
+    sbase = 'http://ahost.com/x/y'
+    abs = u.abs(sbase)
+    assert_kind_of(RIO::URIRef,abs)
+    assert_equal('http://ahost.com/x/b/c',abs.to_s)
+    assert_equal(sbase,abs.base.to_s)
+  end
+
+
+
+
+
+  def test_b_nil_rel
+    alturi = Alt::URI::File.new
+    astr = 'file://host/a/b/c'
+    rstr = 'b/c'
+    bstr = 'file://host/a/d'
+    u = RIO::URIRef.build(rstr,:base => bstr)
+    rel = u.rel
+    assert_kind_of(RIO::URIRef,rel)
+    assert_equal(rstr,rel.to_s)
+    assert_equal(bstr,rel.base.to_s)
+  end
+
+  def test_b_not_nil_rel
+    alturi = Alt::URI::File.new
+    rstr = 'b/c'
+    bstr = 'file://host/a/d'
+    u = RIO::URIRef.build(rstr,:base => bstr)
+    sbase = 'http://ahost.com/x/y'
+    abs = u.abs
+    rel = u.rel(sbase)
+    assert_kind_of(RIO::URIRef,rel)
+    assert_equal(rstr,rel.to_s)
+    assert_equal(sbase,rel.base.to_s)
+  end
+
+  def test_abs_rel
+    astr = 'file://ahost/b/c/d'
+    bstr = 'file://ahost/b/e/f'
+    u = RIO::URIRef.build(astr,:base => bstr)
+    rel = u.rel
+    assert_equal("../c/d",rel.to_s)
+    u = RIO::URIRef.build(bstr,:base => astr)
+    rel = u.rel
+    assert_equal("../e/f",rel.to_s)
+  end
+
+
+
+
+
+    end
+    
+  end
+end
+

data/test/uriref/tc/build.rb

@@ -0,0 +1,30 @@
+require 'rio'
+require 'rio/uriref'
+
+module RIO::URIRef::UnitTest
+  module Build
+    module Tests
+
+  def test_alturi_uriref_build
+    alturi = Alt::URI::File.new
+    u = RIO::URIRef.build(alturi)
+    assert_kind_of(Alt::URI::Base,u.ref)
+    assert_same(alturi,u.ref)
+    assert_equal(alturi,u.ref)
+  end
+
+  def test_uriref_uriref_build
+    alturi = Alt::URI::File.new
+    ui = RIO::URIRef.build(alturi)
+    u = RIO::URIRef.build(ui)
+    assert_kind_of(Alt::URI::Base,u.ref)
+    assert_same(alturi,u.ref)
+    assert_equal(alturi,u.ref)
+  end
+
+
+    end
+    
+  end
+end
+

data/test/uriref/tc/empty.rb

@@ -0,0 +1,13 @@
+require 'rio'
+require 'rio/uriref'
+
+module RIO::URIRef::UnitTest
+  module EMTPY
+    module Tests
+
+
+    end
+    
+  end
+end
+