rio 0.3.8 → 0.3.9

data/test/tc/all.rb

@@ -1,14 +1,17 @@
 require 'test/unit'
 require 'tc/testcase'
 
-#require 'tc/yaml'
-
+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'
@@ -19,6 +22,7 @@ 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'
@@ -43,7 +47,7 @@ require 'tc/io_read'
 require 'tc/iometh'
 require 'tc/likeio'
 require 'tc/lines'
-require 'tc/methods'
+require 'tc/clone'
 require 'tc/misc'
 require 'tc/nolines'
 require 'tc/noqae'
@@ -52,7 +56,6 @@ require 'tc/overload'
 require 'tc/pa'
 require 'tc/paths'
 require 'tc/pid'
-require 'tc/pid'
 require 'tc/piper' unless $mswin32
 require 'tc/qae'
 require 'tc/qae_riovar'
@@ -65,6 +68,8 @@ 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

data/test/tc/base.rb

@@ -25,7 +25,7 @@ class TC_base < Test::RIO::TestCase
     assert_equal('/tmp/zippy',r.abs.path)
   end
   def test_longer_base
-    r = rio('zippy',{:base => '/tmp'})
+    r = rio('zippy',{:base => '/tmp/'})
     assert_equal('/tmp/zippy',r.abs.path)
   end
 end

data/test/tc/base2.rb

@@ -0,0 +1,87 @@
+#!/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_base2 < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @base_urls = {
+      'abshttp' => 'http://localhost/riotest/dir/index.html',
+      'rootdir' => '/rootdir/dir/',
+      'reldir'   => 'reldir/dir/',
+    }
+    @links = {
+      'abshttp' => 'http://localhost/riotest/hw.html',
+      'relfile' => '../hw.html',
+      'absfile' => '/riotest/hw.html',
+    }
+  end
+
+  def test_abshttp_absfile
+    bk = 'abshttp'
+    lk = 'absfile'
+    b = @base_urls[bk]
+    l = @links[lk]
+    exp = [l,l,l,@links['abshttp'],l,b,@links['abshttp']]
+    run_case(bk,lk,exp)
+  end
+  def run_case(bk,lk,exp)
+    bs = @base_urls[bk]
+    ls = @links[lk]
+
+    [bs,URI(bs)].each do |b|
+      [ls,URI(ls),rio(ls)].each do |l|
+        u = rio(ls)
+        msg = mkmsg(bk,lk,b,l)
+        assert_equal(exp[0].to_s,u.to_s,msg)
+        assert_equal(exp[1].to_s,u.base.to_s,msg)
+        assert_equal(exp[2].to_s,u.abs.to_s,msg)
+        #p "run_case: b=#{b} abs=#{u.abs(b)}"
+        assert_equal(exp[3].to_s,u.abs(b).to_s,msg)
+      end
+    end
+
+
+    [bs,URI(bs)].each do |b|
+      [ls,URI(ls),rio(ls)].each do |l|
+        #p "b=#{b.inspect} l=#{l.inspect}"
+        u = rio(l,{:base => b})
+        msg = mkmsg(bk,lk,b,l)
+        assert_equal(exp[4].to_s,u.to_s,msg)
+        assert_equal(exp[5].to_s,u.base.to_s,msg)
+        assert_equal(exp[6].to_s,u.abs.to_s,msg)
+      end
+    end
+  end
+  def test_abshttp_relfile
+    bk = 'abshttp'
+    lk = 'relfile'
+    b = @base_urls[bk]
+    l = @links[lk]
+    wd = ::Dir.getwd+'/'
+    abs = ::Pathname.new(wd + l).cleanpath
+    exp = [l,wd,abs,@links['abshttp'],l,b,@links['abshttp']]
+    run_case(bk,lk,exp)
+  end
+  def test_abshttp_abshttp
+    bk = 'abshttp'
+    lk = 'abshttp'
+    b = @base_urls[bk]
+    l = @links[lk]
+    exp = [l,l,l,l,l,b,l]
+    run_case(bk,lk,exp)
+  end
+  def mkmsg(basekey,linkkey,base,link)
+    "Base[#{basekey}](#{base.class}) Link[#{linkkey}](#{link.class})"
+  end
+end

data/test/tc/{methods.rb → clone.rb}

@@ -4,13 +4,31 @@ if $0 == __FILE__
   $:.unshift File.expand_path('../lib/')
 end
 require 'rio'
-require 'test/unit'
-require 'test/unit/testsuite'
+require 'tc/testcase'
 
-class TC_RIO_methods < Test::Unit::TestCase
-  def assert!(a,msg="negative assertion")
-    assert((!(a)),msg)
+class TC_clone < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
   end
+  def setup
+    super
+    self.class.once unless @@once
+    @lines = (0..8).map { |n| "Line#{n}" }
+    @chlines = @lines.map{|el| el.chomp}
+    ::File.open('lines1','w') do |f|
+      @lines.each do |li|
+        f.puts(li)
+      end
+    end
+    ::File.open('lines2','w') do |f|
+      @lines.each do |li|
+        f.puts(li)
+      end
+    end
+    @lines = rio('lines1').to_a
+  end
+
 
   def check_clone(ios)
     oexp = []
@@ -66,34 +84,15 @@ class TC_RIO_methods < Test::Unit::TestCase
     ios.close
     assert(ios.closed?,"now original closed")
   end
-  def setup
-    #$trace_states = true
-    @cwd = rio(::Dir.getwd)
-    @dir = rio('qp/methods')
-#    $trace_states = true
-    @dir.mkpath.chdir
-    @lines = (0..5).map { |n| "Line#{n}" }
-    @chlines = @lines.map{|el| el.chomp}
-    ::File.open('lines','w') do |f|
-      @lines.each do |li|
-        f.puts(li)
-      end
-    end
-    @lines = rio('lines').to_a
-  end
-  def teardown
-    @cwd.chdir
-    $trace_states = false
-  end
 
-  def test_clone_like_IO
-    ios = ::File.open('lines')
+  def test_clone_closes_like_IO
+    ios = ::File.open('lines1')
     ioc,oexp,cexp = check_clone(ios)
     check_clone_close(ios,ioc)
     ioc.close unless ioc.closed?
     ios.close unless ios.closed?
 
-    ario = rio('lines').nocloseoneof
+    ario = rio('lines1').nocloseoneof
     crio,oans,cans = check_clone(ario)
     assert_equal(oexp,oans)
     assert_equal(cexp,cans)
@@ -101,12 +100,12 @@ class TC_RIO_methods < Test::Unit::TestCase
 
   end
 
-  def test_dup_not_like_IO
+  def test_dup_doesnt_close_like_IO
 
-    ios = ::File.open('lines')
+    ios = ::File.open('lines1')
     ioc,oexp,cexp = check_dup(ios)
     check_clone_close(ios,ioc)
-    ario = rio('lines').nocloseoneof
+    ario = rio('lines1').nocloseoneof
     crio,oans,cans = check_dup(ario)
     assert_equal(@lines,oans)
     assert_equal(@lines,cans)
@@ -114,8 +113,7 @@ class TC_RIO_methods < Test::Unit::TestCase
 
   end
 
-
-  def ztest_clone_own_context
+  def test_clone_own_context
 
     assert(rio.closeoncopy?,"closeoncopy is on")
     assert!(rio.nocloseoncopy.closeoncopy?,"nocloseoncopy is off")
@@ -128,19 +126,54 @@ class TC_RIO_methods < Test::Unit::TestCase
     assert!(cl.chomp?,"cloned chomp is off")
     assert(chomper.chomp?,"original chomp is still on")
 
-    chomper.join!('lines')
+    chomper.join!('lines1')
     ans = chomper.to_a
     assert_equal(@chlines,ans)
 
-    cl.join!('lines')
+    cl.join!('lines1')
     ans = cl.to_a
     assert_equal(@lines,ans)
 
   end
-  def ztest_clone_read_ruby
+  def test_read_moves_pos_like_IO
+    #$trace_states = true
+    fnio = ::File.open('lines1')
+    frio = rio('lines2')
+    assert_equal(fnio.pos,frio.pos)
+
+    nrec = fnio.gets
+    rrec = frio.gets
+    assert_equal(nrec,rrec)
+    assert_equal(fnio.pos,frio.pos)
+
+    cfnio = fnio.clone
+    cfrio = frio.clone
+    assert_equal(cfnio.pos,cfrio.pos)
+    assert_equal(fnio.pos,frio.pos)
+    nrec = cfnio.gets
+    rrec = cfrio.gets
+    assert_equal(nrec,rrec)
+    assert_equal(cfnio.pos,cfrio.pos)
+    assert_equal(fnio.pos,frio.pos)
+
+    nrec = cfnio.gets
+    rrec = cfrio.gets
+
+    assert_equal(nrec,rrec)
+    assert_equal(cfnio.pos,cfrio.pos)
+    assert_equal(fnio.pos,frio.pos)
+
+    nrec = fnio.gets
+    rrec = frio.gets
+    assert_equal(nrec,rrec)
+    #assert_equal(fnio.pos,frio.pos)
+
+  end
+
+  def test_clone_read_ruby
 
     #$trace_states = true
-    afile = ::File.open('lines')
+    afile = ::File.open('lines1')
     arec = afile.gets
     assert_equal(@lines[0],arec)
     cfile = afile.dup
@@ -150,12 +183,10 @@ class TC_RIO_methods < Test::Unit::TestCase
     afile.close
   end
   def test_clone_read
-    return unless $supports_symlink
-    #$trace_states = true
-    ario = rio('lines')
+    #return unless $supports_symlink
+    ario = rio('lines1')
     arec = ario.getrec
     assert_equal(@lines[0],arec)
-    #$trace_states = true
     crio = ario.clone.chomp
     #p "POS: ario(#{ario.pos}) crio(#{crio.pos})"
     crec = crio.getrec
@@ -164,23 +195,14 @@ class TC_RIO_methods < Test::Unit::TestCase
     assert_equal(@chlines[1],crec)
 
     arec = ario.getrec
-    #$trace_states = false
-    assert_equal(@lines[1],arec)
     cremaining = crio.to_a
 
     assert_equal(@chlines[2...@lines.size],cremaining)
     #p "#{crio.eof?} #{crio.closed?}"
+    #$trace_states = true
     assert(crio.eof?,"clone eof?") unless crio.closed?
     assert(crio.closed?,"clone closed?")
 
-    assert!(ario.eof?,"orignal eof?") unless ario.closed?
-    assert!(ario.closed?,"original closed?")
-
-    aremaining = ario.readlines
-    assert_equal(@lines[2...@lines.size],aremaining)
-    assert(ario.eof?,"orignal eof?") unless ario.closed?
-    assert(ario.closed?,"original closed?")
-
   end
 
 end

data/test/tc/closeoncopy.rb

@@ -13,6 +13,9 @@ class TC_closeoncopy < Test::RIO::TestCase
     @@once = true
 
     make_lines_file(3,'f0')
+    rio('d0').delete!.mkdir.chdir {
+      make_lines_file(3,'f1')
+    }
   end
   def setup
     super
@@ -85,7 +88,15 @@ class TC_closeoncopy < Test::RIO::TestCase
     ato(rio(@f0),rio('copyto').open('a'))
     ato(rio(@f0),orio)
   end
-
-
+  def test_cx_set
+    rio('d0').files { |f|
+      assert(f.closeoncopy?)
+    }
+  end
+  def test_cx_bequeath
+    rio('d0').nocloseoncopy.files { |f|
+      assert!(f.closeoncopy?)
+    }
+  end
 end
 __END__

data/test/tc/copy-dir-samevar.rb

@@ -0,0 +1,91 @@
+#!/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_dir_samevar < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+    rio('d0').rmtree.mkpath
+    rio('d0/d1').rmtree.mkpath
+    make_lines_file(1,'d0/f0.txt')
+    make_lines_file(2,'d0/f1.txt')
+    make_lines_file(5,'d0/d1/f2.txt')
+    make_lines_file(6,'d0/d1/f3.txt')
+    rio('d2').rmtree.mkpath
+    make_lines_file(3,'d2/f4.txt')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @d0 = rio('d0')
+    @d1 = rio('d0/d1')
+    @f0 = rio('d0/f0.txt')
+    @f1 = rio('d0/f1.txt')
+    @f2 = rio('d0/d1/f2.txt')
+    @f3 = rio('d0/d1/f3.txt')
+    @d2 = rio('d2')
+    @f4 = rio('d2/f4.txt')
+    rio('exp').delete!.mkdir < rio(@d0)
+    rio('exp2').delete!.mkdir < rio(@d2)
+  end
+  def test_copy_files
+    rio(@d0).files { |f|
+      f < f.contents
+    }
+    assert_rios_equal(rio('exp',@f0),rio(@f0))
+    assert_rios_equal(rio('exp',@f1),rio(@f1))
+  end
+  def test_copy_files_contents_gsub
+    rio(@d0).files { |f|
+      f < f.contents.gsub(/^L1/,'Line1')
+    }
+    assert_rios_equal(rio('exp',@f0),rio(@f0))
+    exp = rio('exp',@f1).chomp.lines[].map{|l| l.sub(/^L1/,'Line1')}
+    assert_equal(exp,rio(@f1).chomp[])
+  end
+  def test_copy_files_array
+    rio(@d0).files { |f|
+      f < f.lines[]
+    }
+    assert_rios_equal(rio('exp',@f0),rio(@f0))
+    assert_rios_equal(rio('exp',@f1),rio(@f1))
+  end
+  def test_copy_files_array_sel
+    rio(@d0).files { |f|
+      f < f.lines[/^L0/]
+    }
+    assert_rios_equal(rio('exp',@f0),rio(@f0))
+    exp = rio('exp',@f1).lines[0]
+    assert_equal(exp,rio(@f1).lines[])
+  end
+  def test_copy_all_files_array
+    rio(@d0).all.files { |f|
+      f < f.lines[]
+    }
+    assert_rios_equal(rio('exp',@f0),rio(@f0))
+    assert_rios_equal(rio('exp',@f1),rio(@f1))
+  end
+  def test_copy_all_files
+    rio(@d0).all.files { |f|
+      f < f.contents
+    }
+    assert_rios_equal(rio('exp',@f0),rio(@f0))
+    assert_rios_equal(rio('exp',@f1),rio(@f1))
+    assert_rios_equal(rio('exp',@f2),rio(@f2))
+    assert_rios_equal(rio('exp',@f3),rio(@f3))
+  end
+  def cptest(src)
+    dst = rio('dst').delete!.mkpath
+    dst < src.clone
+    assert_rios_equal(src.clone,rio(dst,src.filename),"rio copy")
+  end
+
+end