rio 0.3.1

data/test/tc/records.rb

@@ -0,0 +1,69 @@
+#!/usr/local/bin/ruby
+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_records < Test::Unit::TestCase
+  require 'extensions/symbol'
+  def assert!(a,msg="negative assertion")
+    assert((!(a)),msg)
+  end
+  def smap(a) a.map( &:to_s ) end
+  def tdir() rio(%w/qp records/) end
+  def mkafile(*args)
+    file = rio(*args)
+    file < (0..1).map { |i| "L#{i}:#{file.to_s}\n" }
+    file
+  end
+  def mkalinesfile(n_lines,*args)
+    file = rio(*args)
+    file < (0...n_lines).map { |i| "L#{i}:#{file.to_s}\n" }
+    file
+  end
+  def setup
+    #$trace_states = true
+    @cwd = ::Dir.getwd
+    tdir.mkpath.chdir
+  end
+  def teardown
+    ::Dir.chdir @cwd
+  end
+
+  def test_procs
+    rio('lineno').delete!.mkpath.chdir
+
+    file = mkalinesfile(8,'f1')
+    lines = file[]
+    (2..4).each do |n|
+      lines[n] = '#' + lines[n]
+    end
+    (0..3).each do |n|
+      lines[n].sub!(/f1/,'f2')
+    end
+    file < lines
+    exp = lines[0..0] + lines[2..4]
+
+    # iterate over the first line and comment lines
+    ans = file.lines[0,/^\s*#/]
+    assert_equal(exp,ans)
+                       
+    ans = file.lines[proc { |rec,rnum,rio| rnum == 0 || rec =~ /^\s*#/ }]
+    assert_equal(exp,ans)
+
+    exp = lines[0..0] + lines[2...8]
+    ans = file.lines[0,/^\s*#/,proc { |rec,rnum,ario| rec =~ /#{ario.filename}/ }]
+    assert_equal(exp,ans)
+    
+#    $trace_states = true
+
+
+
+    file.close
+    rio('..').chdir
+  end
+end

data/test/tc/rename.rb

@@ -0,0 +1,224 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'test/unit'
+require 'test/unit/testsuite'
+require 'extensions/symbol'
+require 'tc/testcase'
+class TC_rename < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('a').rmtree.mkpath
+    rio('b').rmtree.mkpath
+    make_lines_file(3,'a/f0')
+    make_lines_file(2,'a/f1')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @l = []; @f = []; @d = []
+    @d[0] = rio('a')
+    @d[1] = rio('b')
+    @f[0] = rio('a/f0')
+    @f[1] = rio('a/f1')
+    @l[0] = @f[0].readlines
+    @l[1] = @f[1].readlines
+    @d[1] < @d[0]
+    @d[1] < @d[0].files[]
+  end
+  def test_rename_filename
+    indir = rio('tdir').delete!.mkpath < rio(@d[1]).to_a
+    oldf = indir.files[].map { |f| f.to_s }
+    expf = oldf.map { |f| f.sub(/f/,'q') + '.txt' }
+
+    indir.rename.files do |ent|
+      nname = ent.filename.to_s.sub(/f/,'q') + '.txt'
+      ent.filename = nname
+    end
+    assert_array_equal(expf,rio('tdir').files[])
+
+  end
+  def test_rename_filename_sub
+    indir = rio('tdir').delete!.mkpath < rio(@d[1]).to_a
+    oldf = indir.files[].map { |f| f.to_s }
+    expf = oldf.map { |f| f.sub(/f/,'q') + '.txt' }
+
+    indir.rename.files do |ent|
+      ent.filename = ent.filename.sub(/f/,'q') + '.txt'
+    end
+    assert_array_equal(expf,rio('tdir').files[])
+
+  end
+  def test_rename_basename
+    indir = rio('tdir').delete!.mkpath < rio(@d[1]).to_a
+    oldf = indir.files[].map { |f| f.to_s }
+    expf = oldf.map { |f| f.sub(/f/,'q') }
+
+    indir.rename.files do |ent|
+      ent.basename = ent.basename.to_s.sub(/f/,'q')
+    end
+    assert_array_equal(expf,indir.files[])
+
+  end
+  def test_rename
+    lines,ario = self.class.make_lines_file(1,'afile')
+    assert(ario.file?)
+    
+    brio = rio('bfile').delete!
+    assert!(brio.exist?)
+    ario.rename('bfile')
+    assert!(ario.exist?)
+    assert(brio.file?)
+    assert_equal(lines,brio[])
+    
+  end
+  def test_rename!
+    lines,ario = self.class.make_lines_file(1,'afile')
+    assert(ario.file?)
+    
+    brio = rio('bfile').delete!
+    assert!(brio.exist?)
+
+    crio = ario.rename!('bfile')
+    assert(ario.exist?)
+    assert_same(ario,crio)
+    assert_equal(brio,ario)
+    assert_equal(lines,brio[])
+    
+  end
+  def test_rename_assign
+    adir = rio('adir').delete!.mkpath
+    lines,ario = self.class.make_lines_file(1,adir,'afile.txt')
+    assert(ario.file?)
+    apath = 'adir/afile.txt'
+
+    ario.rename.extname = '.asc'
+    assert_equal(apath.sub!(/\.txt/,'.asc'),ario.to_s)
+    assert(ario.file?)
+    assert_equal(lines,ario[])
+
+    ario.rename.basename = 'bfile'
+    assert_equal(apath.sub!(/afile/,'bfile'),ario.to_s)
+    assert(ario.file?)
+    assert_equal(lines,ario[])
+
+    bdir = rio('bdir').delete!.mkpath
+    ario.rename.dirname = 'bdir'
+    assert_equal(apath.sub!(/adir/,'bdir'),ario.to_s)
+    assert(ario.file?)
+    assert_equal(lines,ario[])
+
+    ario.rename.filename = 'cfile.dat'
+    assert_equal(apath.sub!(/bfile\.asc/,'cfile.dat'),ario.to_s)
+    assert(ario.file?)
+    assert_equal(lines,ario[])
+
+  end
+  def test_rename_basename_sub
+    indir = rio('tdir').delete!.mkpath < rio(@d[1]).to_a
+    oldf = indir.files[].map { |f| f.to_s }
+    expf = oldf.map { |f| f.sub(/f/,'q') }
+
+    indir.rename.files do |ent|
+      ent.basename = ent.basename.sub(/f/,'q')
+    end
+    assert_array_equal(expf,indir.files[])
+
+  end
+  def test_rename_dirname
+    indir = rio('tdir').delete!.mkpath < rio(@d[1]).to_a
+    oldf = indir.files[].map { |f| f.to_s }
+    expf = oldf.map { |f| f.sub(/tdir/,'qdir') }
+    rio('qdir').delete!.mkpath
+    indir.rename.files do |ent|
+      ent.dirname = 'qdir'
+    end
+
+    assert_array_equal(expf,rio('qdir').files[])
+    assert_array_equal([],rio('tdir').files[])
+
+  end
+  def test_rename_basename_wext
+    indir = rio('tdir').delete!.mkpath < rio(@d[1]).to_a
+
+    newext = '.txt'
+    indir.files.rename.each { |ent|
+      ent.extname = newext
+    }
+    expf = @f.map { |file| rio(indir,file.basename.to_s + newext) }
+    expf.each_with_index do |ef,i|
+      assert(ef.file?)
+      assert_equal(@l[i],ef.lines[])
+    end
+
+    indir = rio('tdir')
+    newnames = []
+    indir.files.each do |ent|
+      ent.basename = ent.basename.sub(/f/,'q')
+      newnames << ent
+    end
+    expnames = @f.map { |file| rio(indir,file.basename.to_s.sub(/f/,'q') + newext) }
+    assert_equal(expnames,newnames)
+    newf = rio('tdir').files.to_a
+    assert_equal(expf,newf)
+
+    indir = rio('tdir')
+    indir.rename.files { |ent| ent.basename = ent.basename.to_s.sub(/f/,'q') }
+
+    newf = rio('tdir').files.to_a
+    assert_equal(expnames,newf)
+
+
+    
+  end
+    
+  def test_rename_add_ext
+    rio('tdir').delete!.mkpath < rio(@d[1]).to_a
+    indir = rio('tdir')
+    newext = '.txt'
+    rio('tdir').files.rename.each { |ent|
+      ent.extname = newext
+    }
+    assert_equal(@l[0],rio(rio('tdir'),@f[0].basename.to_s + newext).lines[])
+    assert_equal(@l[1],rio(rio('tdir'),@f[1].basename.to_s + newext).lines[])
+  end
+  def test_rename_add_ext_oreq
+    indir = (rio('tdir').delete!.mkpath < rio(@d[1]).to_a)
+
+    newext = '.txt'
+    indir.files(/0/).rename { |ent| ent.extname = newext }
+    assert_equal(@l[0],rio(indir,@f[0].basename.to_s + newext).lines[])
+    assert_equal(@l[1],rio(indir,@f[1].basename).lines[])
+
+    newerext = '.asc'
+    indir = rio(indir)
+    indir.files.rename { |ent| ent.extname ||= newerext }
+    assert_equal(@l[0],rio(indir,@f[0].basename.to_s + newext).lines[])
+    assert_equal(@l[1],rio(indir,@f[1].basename.to_s + newerext).lines[])
+  end
+
+  def test_rename_add_ext_andeq
+    indir = (rio('tdir').delete!.mkpath < rio(@d[1]).to_a)
+    newext = '.txt'
+    indir.files(/0/).rename { |ent|
+      ent.extname = newext
+    }
+    assert_equal(@l[0],rio(indir,@f[0].basename.to_s + newext).lines[])
+    assert_equal(@l[1],rio(indir,@f[1].basename).lines[])
+
+    newerext = '.asc'
+    indir = rio(indir)
+    indir.files.rename { |ent|
+      ent.extname &&= newerext
+    }
+    assert_equal(@l[0],rio(indir,@f[0].basename.to_s + newerext).lines[])
+    assert_equal(@l[1],rio(indir,@f[1].basename).lines[])
+  end
+end
+__END__

data/test/tc/rename_assign.rb

@@ -0,0 +1,48 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'test/unit'
+require 'test/unit/testsuite'
+require 'extensions/symbol'
+require 'tc/testcase'
+class TC_rename_assign < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('a').rmtree.mkpath
+    rio('b').rmtree.mkpath
+    make_lines_file(3,'a/f0')
+    make_lines_file(2,'a/f1')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @l = []; @f = []; @d = []
+    @d[0] = rio('a')
+    @d[1] = rio('b')
+    @f[0] = rio('a/f0')
+    @f[1] = rio('a/f1')
+    @l[0] = @f[0].readlines
+    @l[1] = @f[1].readlines
+    @d[1] < @d[0]
+    @d[1] < @d[0].files[]
+  end
+  def test_rename_filename_shorter
+    adir = rio('adir').delete!.mkdir
+    rio(adir,'abcd').touch.rename.filename = 'xyz'
+    p adir[]
+  end
+  def test_rename_filename_shorterd
+    rio('tc').delete!.mkdir
+    newdir = rio('tc2').delete!.mkdir
+    rio('tc').rename('tc_old')
+    newdir.rename.filename = 'tc'
+    p smap(rio('.').to_a)
+  end
+end
+__END__

data/test/tc/sub.rb

@@ -0,0 +1,49 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'test/unit'
+require 'test/unit/testsuite'
+require 'extensions/symbol'
+require 'tc/testcase'
+class TC_sub < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('a').rmtree.mkpath
+    rio('b').rmtree.mkpath
+    make_lines_file(3,'a/f0')
+    make_lines_file(2,'a/f1')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @l = []; @f = []; @d = []
+    @d[0] = rio('a')
+    @d[1] = rio('b')
+    @f[0] = rio('a/f0')
+    @f[1] = rio('a/f1')
+    @l[0] = @f[0].readlines
+    @l[1] = @f[1].readlines
+    @d[1] < @d[0]
+    @d[1] < @d[0].files[]
+  end
+  def test_basic
+    ario = rio('apath')
+    p ario
+
+    ans = ario.sub(/^a/,'b')
+    assert_kind_of(RIO::Rio,ans)
+    assert_not_same(ario,ans)
+    assert_equal(rio('bpath'),ans)
+
+    ans = ario.sub!(/^a/,'b')
+    assert_kind_of(RIO::Rio,ans)
+    assert_same(ario,ans)
+    assert_equal(rio('bpath'),ans)
+  end
+end

data/test/tc/symlink.rb

@@ -0,0 +1,177 @@
+#!/usr/local/bin/ruby
+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_symlink < Test::Unit::TestCase
+  require 'extensions/symbol'
+  def assert!(a,msg="negative assertion")
+    assert((!(a)),msg)
+  end
+  def smap(a) a.map( &:to_s ) end
+  def tdir() rio(%w/qp symlink/) end
+  def mkafile(*args)
+    file = rio(*args)
+    file < (0..1).map { |i| "L#{i}:#{file.to_s}\n" }
+    file
+  end
+  def setup
+    #$trace_states = true
+    @cwd = ::Dir.getwd
+    tdir.mkpath.chdir
+  end
+  def teardown
+    ::Dir.chdir @cwd
+  end
+  def check_link(lnk,dst)
+    assert(lnk.symlink?, "symlink?")
+    assert_equal('link',lnk.ftype)
+    assert_equal(dst.exist?,lnk.exist?)
+    if dst.exist?
+      assert_equal(dst.slurp,lnk.slurp)
+    end
+  end
+  def compare_links(exp,ans)
+    assert_equal(exp.exist?,ans.exist?)
+    assert_equal(exp.symlink?,ans.symlink?)
+    assert_equal(exp.ftype,ans.ftype)
+    assert_equal(exp.readlink.to_s,ans.readlink.to_s)
+  end
+  def test_File_symlink_nopath_exist
+    dir = rio('d0').delete!.mkpath
+    mkafile(dir,'f0')
+    dir.chdir
+    #$trace_states = true
+    
+    file = rio('f0')
+    lruby = rio('lruby')
+    assert(file.exist?)
+    
+    ::File.symlink(file.to_s,lruby.delete.to_s)
+    check_link(lruby,file)
+    
+    lrio = rio('lrio')
+    file.symlink( lrio.delete )
+    check_link(lrio,file)
+    
+    compare_links(lruby,lrio)
+    rio('..').chdir
+  end
+  def test_File_symlink_nopath_noexist
+    dir = rio('d1').delete!.mkpath
+    dir.chdir
+
+    #$trace_states = true
+    
+    file = rio('f1')
+    assert_equal(false,file.exist?)
+    
+    lruby = rio('lruby')
+    ::File.symlink(file.to_s,lruby.delete.to_s)
+    check_link(lruby,file)
+    
+    lrio = rio('lrio')
+    file.symlink( lrio.delete )
+    check_link(lrio,file)
+    
+    compare_links(lruby,lrio)
+    
+    rio('..').chdir
+  end
+  def test_xmp
+    rio('xmpdir').delete!.mkpath
+    rio('xmpdir/afile').touch
+    ::File.symlink('xmpdir/afile','xmpdir/alink1') # creates 'xmpdir/alink1 => xmpdir/afile'
+    assert_equal(false,::File.exist?('xmpdir/alink1'))
+    rio('xmpdir/afile').symlink('xmpdir/alink2')   # creates 'xmpdir/alink2 => afile'
+    assert(::File.exist?('xmpdir/alink2'))
+  end
+  def test_relative_paths
+    dir = rio('adir').delete!.mkpath
+    afile1 = mkafile(dir,'afile1')
+
+    alink1 = rio('adir/alink1').delete
+    afile1.symlink(alink1)
+    check_link(alink1,afile1)
+    
+    alink2 = rio('alink2').delete
+    afile1.symlink(alink2)
+    check_link(alink2,afile1)
+
+    afile2 = mkafile('afile2')
+    alink3 = rio('adir/alink3').delete
+    afile2.symlink(alink3)
+    check_link(alink3,afile2)
+    
+    alink4 = rio('alink4').delete
+    afile2.symlink(alink4)
+    check_link(alink4,afile2)
+
+  end
+  def test_symlink_path_exist
+    dir = rio('d2').delete!.mkpath
+    mkafile(dir,'f2')
+    #$trace_states = true
+    
+    file = rio(dir,'f2')
+    assert(file.exist?)
+
+    lrio = rio(dir,'lrio')
+    file.symlink( lrio.delete )
+    check_link(lrio,file)
+    
+  end
+  def test_symlink_path_noexist
+    dir = rio('d3').delete!.mkpath
+    #$trace_states = true
+    
+    file = rio(dir,'f3')
+    assert_equal(false,file.exist?,"file does not exist")
+
+    lrio = rio(dir,'lrio')
+    file.symlink( lrio.delete )
+    check_link(lrio,file)
+    
+  end
+  def test_destdir
+    rio('destdir').delete!.mkpath.chdir
+
+    file = mkafile('f0')
+    dir = rio('d0').delete!.mkpath
+    #$trace_states = true
+    
+    file.symlink(dir)
+    expl = rio(dir,file)
+    check_link(expl,file)
+
+    rio('..').chdir
+  end
+  def test_eexist
+    rio('eexist').delete!.mkpath.chdir
+
+    file = mkafile('f0')
+    dir = rio('d0').delete!.mkpath
+    expl = rio(dir,file).touch
+
+    #$trace_states = true
+    assert_raise(Errno::EEXIST) {
+      file.symlink(dir)
+    }
+    expl = rio('l0').touch
+    assert_raise(Errno::EEXIST) {
+      file.symlink('l0')
+    }
+    expl = rio('l1').delete
+    file.symlink(expl)
+    assert_raise(Errno::EEXIST) {
+      file.symlink(expl)
+    }
+
+    rio('..').chdir
+  end
+end