wishdev-rio 0.4.3.1

data/test/tc/entsel.rb

@@ -0,0 +1,110 @@
+#!/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_entsel < Test::RIO::TestCase
+  @@once = false
+  @@dirs = nil
+  DN = 'd'
+  OD = 'o'
+  def self.once
+    @@once = true
+    rio(DN).rmtree.mkpath.chdir {
+      mknd(3,3)
+    }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @exp = rio(DN).all[]
+    @lev = []
+    @lev[1] = @exp.select{ |el| el.length == 3 }
+    @lev[2] = @exp.select{ |el| el.length == 5 }
+    @lev[3] = @exp.select{ |el| el.length == 7 }
+    @olev = []
+    @olev[1] = @lev[1].map{ |el| el.sub(/^d/,'o') }
+    @olev[2] = @lev[2].map{ |el| el.sub(/^d/,'o') }
+    @olev[3] = @lev[3].map{ |el| el.sub(/^d/,'o') }
+  end
+  include RIO_TestCase
+
+  def self.mknd(n,level)
+    return unless level > 0
+    dirs = (0...n).map{|i| rio(i.to_s).mkdir}
+    dirs.each{ |d|
+      d.chdir {
+        mknd(n,level-1)
+      }
+    }
+  end
+
+  def test_skipdirs_copy1
+    odir = rio(OD).delete!
+    rio(DN).skipdirs(1) > odir
+    assert_array_equal([],odir.all[])
+  end
+  def test_skipdirs_copy2
+    odir = rio(OD).delete!
+    rio(DN).skipdirs(2) > odir
+    assert_array_equal(@olev[1],odir.all[])
+  end
+  def test_skipdirs_copy3
+    odir = rio(OD).delete!
+    rio(DN).skipdirs(3) > odir
+    assert_array_equal(@olev[1]+@olev[2],odir.all[])
+  end
+  def test_dirs_copy1
+    odir = rio(OD).delete!
+    rio(DN).dirs(1) > odir
+    assert_array_equal(@olev[1],odir.all[])
+  end
+  def test_dirs_copy2
+    odir = rio(OD).delete!
+    rio(DN).dirs(0..2) > odir
+    assert_array_equal(@olev[1]+@olev[2],odir.all[])
+  end
+  def test_dirs_copy3
+    odir = rio(OD).delete!
+    rio(DN).dirs(2) > odir
+    assert_array_equal([],odir.all[])
+  end
+  def test_dirs_array
+    rios1 = rios2str(rio(DN).dirs(1).to_a)
+    assert_equal(@lev[1],rios1) 
+    rios2 = rios2str(rio(DN).dirs(2).to_a)
+    assert_equal([],rios2)
+    rios3 = rios2str(rio(DN).dirs(3).to_a)
+    assert_equal([],rios3)
+  end
+  def test_skipdirs_array
+    rios1 = rios2str(rio(DN).skipdirs(1).to_a)
+    assert_array_equal([],rios1) 
+    rios2 = rios2str(rio(DN).skipdirs(2).to_a)
+    assert_array_equal(@lev[1],rios2)
+    rios3 = rios2str(rio(DN).skipdirs(3).to_a)
+    assert_array_equal(@lev[1],rios3)
+  end
+  def test_all_skipdirs_array
+    rios1 = rios2str(rio(DN).all.skipdirs(1).to_a)
+    assert_array_equal(@lev[2]+@lev[3],rios1) 
+    rios2 = rios2str(rio(DN).all.skipdirs(2).to_a)
+    assert_array_equal(@lev[1]+@lev[3],rios2) 
+    rios3 = rios2str(rio(DN).all.skipdirs(3).to_a)
+    assert_array_equal(@lev[1]+@lev[2],rios3) 
+  end
+  def test_all_dirs_array
+    rios1 = rios2str(rio(DN).all.dirs(1).to_a)
+    assert_equal(@lev[1],rios1) 
+    rios2 = rios2str(rio(DN).all.dirs(2).to_a)
+    assert_equal(@lev[2],rios2)
+    rios3 = rios2str(rio(DN).all.dirs(3).to_a)
+    assert_equal(@lev[3],rios3)
+  end
+  def test_sel
+  end
+end

data/test/tc/eq.rb

@@ -0,0 +1,101 @@
+#!/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_eq < Test::Unit::TestCase
+  def assert_case_equal(q,p,msg=nil)
+    begin
+      assert_block { 
+        q === p
+      }
+    rescue Test::Unit::AssertionFailedError => e
+      raise e.exception("#{q.inspect}\n ===\n#{p.inspect}")
+    end
+  end
+  def assert_eq(q,p,msg=nil)
+    begin
+      assert_block { 
+        q == p
+      }
+    rescue Test::Unit::AssertionFailedError => e
+      raise e.exception("#{q.inspect}\n ==\n(#{p.inspect})")
+    end
+  end
+  def assert_eql(q,p,msg=nil)
+    begin
+      assert_block { 
+        q.eql?(p)
+      }
+    rescue Test::Unit::AssertionFailedError => e
+      raise e.exception("#{q.inspect}\n.eql?\n(#{p.inspect})")
+    end
+  end
+  def assert_not_eql(q,p,msg=nil)
+    begin
+      assert_block { 
+        !q.eql?(p)
+      }
+    rescue Test::Unit::AssertionFailedError => e
+      raise e.exception("#{q.inspect}\n NOT eql?\n(#{p.inspect})")
+    end
+  end
+  def all_eq(q1,q2)
+    q = rio(q1)
+    z = rio(q2)
+
+    assert_eq(q,z)
+    assert_case_equal(q,z,"===")
+    assert_case_equal(q,q2,"===")
+  end
+  
+  def test_eq
+    s_dir = ''
+    #$trace_states = true
+    rio(%w/qp eq/).rmtree.mkpath.chdir do
+      q1 = 'q'
+      q2 = 'q'
+      all_eq(q1,q2)
+      #$trace_states = true
+      all_eq(?-,'stdio:')
+      
+      
+      dir = rio('dir')
+      all_eq(rio('dir'),dir)
+      all_eq(dir,rio('dir'))
+      all_eq(rio('dir'),'dir')
+      all_eq(dir,'dir')
+
+#       p rio('dir') == 'dir'
+
+#       f = ::File.open('dir/f1')
+#       p rio(f).to_s
+#       r2 = rio(?_,f)
+#       p dir.to_s,dir.to_rl
+#       p rio(f) == r2
+
+#       p rio(?-).to_s
+#       p rio(?-).to_rl
+#       p rio(??).to_s
+#       p rio(??,'rio','/tmp').to_s
+#       p rio(?$).to_s
+#       p rio(?=).to_s
+#       p rio('tcp://localhost:systime').to_s
+#       p rio('rio:tcp://:systime').to_s
+#       p rio('rio:tcp://:systime').rl.rl
+#       p rio('http://ruby-doc.org/').to_s
+#       require 'uri'
+#       u = URI('http://ruby-doc.org/')
+#       p rio(u).to_s
+#       p rio(u).rl.rl
+#       p rio('file:///tmp/zippy.tmp').to_s
+#       p rio('file:///tmp/zippy.tmp').rl.rl
+#       p rio('./-').to_s
+#       p rio('-').to_s
+    end
+  end
+end

data/test/tc/expand_path.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 'tc/testcase'
+
+class TC_RIO_expand_path < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+  end
+
+  def setup
+    super
+    self.class.once unless @@once
+  end
+
+  def test_expand_path_from_cwd
+    require 'tmpdir'
+
+    tmp = rio(::Dir.tmpdir)
+    tmp.chdir do
+      rel = rio('groovy')
+      exp = rio(tmp,rel)
+      ans = rel.expand_path
+      assert_kind_of(RIO::Rio,ans)
+      assert_equal(exp,ans)
+    end
+  end
+
+  def test_expand_path_from_base_rio
+    srel = 'groovy'
+    sbase = '/tmp'
+    rel = rio(srel)
+    base = rio(sbase)
+    exp = File.expand_path(srel,sbase)
+    ans = rel.expand_path(base)
+    assert_kind_of(RIO::Rio,ans)
+    assert_equal(exp,ans)
+  end
+
+  def test_expand_path_from_base_string
+    srel = 'groovy'
+    sbase = '/tmp'
+    rel = rio(srel)
+    base = rio(sbase)
+    exp = File.expand_path(srel,sbase)
+    ans = rel.expand_path(sbase)
+    assert_kind_of(RIO::Rio,ans)
+    assert_equal(exp,ans)
+  end
+
+  def test_expand_path_from_tilde
+    return if $mswin32
+    srel = 'groovy'
+    sbase = '~'
+    rel = rio(srel)
+    base = rio(sbase)
+    exp = File.expand_path(srel,sbase)
+    ans = rel.expand_path(sbase)
+    assert_kind_of(RIO::Rio,ans)
+    assert_equal(exp,ans)
+  end
+
+end

data/test/tc/ext.rb

@@ -0,0 +1,136 @@
+#!/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_ext < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+  end
+
+  def setup
+    super
+    self.class.once unless @@once
+
+  end
+
+#  def test_mvdir
+#    rio('a').rmtree.mkpath
+#    rio('a/b').mkpath
+#    rio('a/c').mkpath
+#    rio('a/b/f').touch
+#    rio('a/b/f').rename('a/c')
+#    rio('a/b/d').mkdir
+#    rio('a/b/d').rename('a/c')
+#    assert(rio('a/c/f').exist?)
+#    assert(rio('a/c/d').exist?)
+#  end
+  def test_change_ext_in_dir
+    rio('ch').rmtree.mkpath
+    rio('ch/0.a').touch
+    rio('ch/1.a').touch
+    rio('ch/0.b').touch
+    rio('ch/1.b').touch
+    rio('ch/0.c').touch
+    rio('ch/1.c').touch
+    rio('ch').files('*.a') do |file|
+      new_file = file.dup
+      new_file.extname = '.x'
+      file.rename(new_file)
+    end
+    assert(rio('ch/0.x').exist?)
+    assert(rio('ch/1.x').exist?)
+    $trace_states = false
+    rio('ch').files('*.b') do |file|
+      file.rename.extname = '.y'
+    end
+    assert(rio('ch/0.y').exist?)
+    assert(rio('ch/1.y').exist?)
+    rio('ch').rename.files('*.c') do |file|
+      file.extname = '.z'
+    end
+    assert(rio('ch/0.z').exist?)
+    assert(rio('ch/1.z').exist?)
+  end
+  def test_change_tgz
+    rio('tgz').rmtree.mkpath
+    rio('tgz/dir').mkdir
+    rio('tgz/dir/z.tar.gz').touch
+    rio('tgz/z.tar.gz').touch
+    
+    rio('tgz').rename.all.files('*.tar.gz') do |gzfile|
+      gzfile.ext('.tar.gz').extname = '.tgz'
+    end
+    assert(rio('tgz/dir/z.tgz').exist?)
+    assert(rio('tgz/z.tgz').exist?)
+  end
+  def test_ext
+    ario = rio('afile.tar.gz').touch
+    $trace_states = false
+    ario.rename!('cfile.tgz')
+#    ario.ext('.tar.gz').basename = 'bfile'
+  end
+  def test_basename
+    s_dir = ''
+    adir = rio(%w/adir asubdir/).rmtree.mkpath
+    fname = 'afile'; 
+    ename = '.aext'; 
+    wname = fname+ename;
+    afile = rio(adir,fname+ename)
+
+    assert_equal(ename, afile.ext?)
+    assert_equal(fname, afile.basename.to_s)
+    assert_equal(fname, afile.ext.basename.to_s)
+    assert_equal(ename, afile.ext?)
+    assert_equal(wname, afile.ext('.j').basename.to_s)
+    assert_equal('.j', afile.ext?)
+    assert_equal(wname, afile.basename('.j').to_s)
+    assert_equal('.j', afile.ext?)
+    assert_equal(wname, afile.ext('').basename.to_s)
+    assert_equal('', afile.ext?)
+    assert_equal(fname, afile.basename(nil).to_s)
+    assert_equal(ename, afile.ext?)
+    assert_equal(wname, afile.noext.basename.to_s)
+    assert_equal('', afile.ext?)
+  end
+  def test_pathutil
+    path = rio(%w/dir1 sd1 f1.txt/)
+    ext1 = path.extname
+    assert_equal('.txt',ext1)
+    bn2 = path.basename('.txt')
+    assert_equal('f1',bn2.to_s)
+    dn1 = path.dirname
+    assert_equal('dir1/sd1',dn1.to_s)
+    
+    abs0 = ::File.expand_path(path.to_s)
+    abs1 = path.abs
+    assert_equal(abs0,abs1.to_s)
+    abs2 = rio(RIO.cwd,path.dirname,path.basename(path.extname).to_s+path.extname).to_s
+    assert_equal(abs0,abs2.to_s)
+  end
+  def test_documented_example
+    ario = rio('afile.txt')
+    assert_equal('.txt',ario.ext?)
+    assert_equal('afile',ario.ext('.txt').basename)
+    assert_equal('.txt',ario.ext?)
+    assert_equal('afile.txt',ario.ext('.zip').basename)
+    assert_equal('.zip',ario.ext?)
+    assert_equal('afile.txt',ario.basename('.tar'))
+    assert_equal('.tar',ario.ext?)
+    assert_equal('afile',ario.ext.basename)
+    assert_equal('.txt',ario.ext?)
+    assert_equal('afile.txt',ario.noext.basename)
+    assert_equal('',ario.ext?)
+
+    ario = rio('afile.tar.gz')
+    assert_equal('.gz',ario.ext?)
+    assert_equal('afile.tar',ario.basename)
+    assert_equal('afile',ario.ext('.tar.gz').basename)
+    assert_equal('.tar.gz',ario.ext?)
+  end
+end

data/test/tc/fileno.rb

@@ -0,0 +1,94 @@
+#!/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_fileno < Test::Unit::TestCase
+  def assert!(a,msg="negative assertion")
+    assert((!(a)),msg)
+  end
+  def smap(a) a.map{|el| el.to_s} end
+  def tdir() rio(%w/qp fileno/) 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_fileno_like_IO
+    rio('fileno').delete!.mkpath.chdir
+
+    frio = mkalinesfile(5,'frio')
+    rio('fruby') < frio
+
+    fruby = File.open('fruby');
+    p fruby.fileno
+    p frio.fileno
+    p rio('-').fileno
+
+    ario = mkalinesfile(2,'ario')
+    ario = rio('ario').a
+    p ario.sync?
+    ario.puts("Hey")
+    p ario.sync?
+    p ario.ioh.sync
+    $trace_states = true
+    ario.fsync
+    $trace_states = false
+    p ario.sync?
+    ario.sync.puts("HOHO")
+    p ario.sync?
+    p ario.ioh.sync
+    ario.nosync
+    p ario.sync?
+    p ario.ioh.sync
+    ario.ioh.sync = true
+    p ario.ioh.sync
+    p ario.sync?
+    p ario.ioh.sync
+
+
+#    assert_equal(fruby.pos,frio.pos)
+#    assert_equal(fruby.fileno,frio.fileno)
+#    assert_equal(line = fruby.readline,frio.readline)
+
+#    assert_equal(fruby.pos,frio.pos)
+#    assert_equal(fruby.fileno,frio.fileno)
+#    assert_equal(line = fruby.readline,frio.readline)
+
+#    fruby.pos += line.length
+#    frio.pos += line.length
+    
+#    assert_equal(fruby.pos,frio.pos)
+#    assert_equal(fruby.fileno,frio.fileno)
+#    assert_equal(line = fruby.readline,frio.readline)
+
+
+    rio('..').chdir
+
+    
+
+
+ end
+
+
+
+end