rio 0.3.1

data/test/tc/ext.rb

@@ -0,0 +1,115 @@
+#!/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_ext < Test::Unit::TestCase
+  @@once = false
+  include RIO_TestCase
+  def setup()
+    super
+    unless @@once
+      @@once = true
+    end
+  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').mv('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 = mkafile('afile.tar.gz')
+    $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
+end

data/test/tc/fileno.rb

@@ -0,0 +1,95 @@
+#!/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
+  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 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

data/test/tc/getrec.rb

@@ -0,0 +1,140 @@
+#!/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_getrec < Test::Unit::TestCase
+  def test_basic
+    qp = rio('qp')
+    rio(qp,'getrec').rmtree.mkpath.chdir do
+      (0..4).each do |n_lines|
+        getrec_each(n_lines)
+      end
+    end
+  end
+  def getrec_each(n_lines)
+    f = rio('f.txt')
+    expa = (0..n_lines-1).map { |a| "Line#{a}\n" }
+    f < expa
+
+    f = rio('f.txt')
+    assert_equal(expa,f[])
+    #  $trace_states = true
+    begin
+      f = rio('f.txt').nocloseoneof
+      ans = []
+      while rec = f.getrec
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      while rec = f.getrec
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+    
+    begin
+      f = rio('f.txt').nocloseoneof
+      ans = []
+      while rec = f.getrec
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+    
+    begin
+      f = rio('f.txt').nocloseoneof
+      ans = []
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      while rec = f.getrec
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+    
+    begin
+      f = rio('f.txt')
+      ans = []
+      while rec = f.getrec
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      while rec = f.getrec
+        ans << rec
+      end
+      assert_equal(expa+expa,ans)
+    end
+    
+    begin
+      f = rio('f.txt')
+      ans = []
+
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+
+      rec = f.getrec
+      assert_nil(rec)
+
+      rec = f.getrec
+      assert_equal(expa[0],rec)
+    end
+
+    begin
+      f = rio('f.txt')
+      ans = []
+
+      rec = f.getrec
+      assert_equal(expa[0],rec)
+      ans << rec unless rec.nil?
+      f.each do |rec|
+        ans << rec
+      end
+      rec = f.getrec
+      assert_nil(rec)
+    end
+
+    begin
+      f = rio('f.txt')
+      ans = []
+
+      (0...n_lines).each do |n|
+        rec = f.getrec
+        assert_equal(expa[n],rec)
+      end
+      rec = f.getrec
+      assert_nil(rec)
+
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+
+    begin
+      f = rio('f.txt')
+      ans = []
+
+      (0...n_lines).each do |n|
+        rec = f.getrec
+        assert_equal(expa[n],rec)
+      end
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+  end
+end

data/test/tc/lineno.rb

@@ -0,0 +1,197 @@
+#!/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_lineno < 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 lineno/) 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 ztest_lineno_0
+    rio('lineno').delete!.mkpath.chdir
+
+    file = mkalinesfile(10,'f0')
+    lines = file[]
+
+    pos = file.pos
+    lnum = file.lineno
+    line = file.readline
+    p "pos=#{pos}, lnum=#{lnum}, line=#{line}"
+
+    pos = file.pos
+    lnum = file.lineno
+    line = file.readline
+    p "pos=#{pos}, lnum=#{lnum}, line=#{line}"
+
+
+    file.close
+    rio('..').chdir
+  end
+  # baoo code 4153
+
+  def test_lineno_like_IO
+    rio('lineno').delete!.mkpath.chdir
+
+    frio = mkalinesfile(5,'frio')
+    rio('fruby') < frio
+
+    fruby = File.open('fruby');
+
+    assert_equal(fruby.pos,frio.pos)
+    assert_equal(fruby.lineno,frio.lineno)
+    assert_equal(line = fruby.readline,frio.readline)
+
+    assert_equal(fruby.pos,frio.pos)
+    assert_equal(fruby.lineno,frio.lineno)
+    assert_equal(line = fruby.readline,frio.readline)
+
+    fruby.pos += line.length
+    frio.pos += line.length
+    
+    assert_equal(fruby.pos,frio.pos)
+    assert_equal(fruby.lineno,frio.lineno)
+    assert_equal(line = fruby.readline,frio.readline)
+
+
+    $trace_states = false
+    fruby.close
+    frio.close
+
+    fruby = File.open('fruby');
+    frio = rio('frio')
+
+    p fruby.lineno
+    fruby.each { |rec|
+      p "#{fruby.lineno} >> #{rec}"
+    }
+
+    p frio.lineno
+    frio.each { |rec|
+      p "#{frio.lineno} >> #{rec}"
+    }
+    frio.close
+    p "RECNO"
+    $trace_states = true
+
+    frio = rio('frio')
+    p frio.recno
+    frio.each { |rec|
+      p "#{frio.recno} >> #{rec}"
+    }
+    $trace_states = false
+    frio.close
+
+#    fruby.close
+#    p fruby.lineno
+
+    rio('..').chdir
+
+    
+
+
+ end
+
+
+
+
+
+  def test_lineno
+    rio('lineno').delete!.mkpath.chdir
+
+    file = mkalinesfile(10,'f1')
+    lines = file[]
+
+#    $trace_states = true
+    file = rio('f1')
+    
+    assert_equal(0,file.lineno)
+    assert_equal(lines[0],file.readline)
+    assert_equal(1,file.lineno)
+
+    assert_equal(lines[1],file.readline)
+#    p file.recno
+
+
+    $trace_states = false
+    file.close
+    rio('..').chdir
+  end
+
+  def test_recno
+    rio('recno').delete!.mkpath.chdir
+
+    file = mkalinesfile(3,'f0')
+    lines = file[]
+
+    $trace_states = false
+    file = rio('f0')
+    p file.recno
+    file.each { |rec|
+      p "#{file.recno} >> #{rec}"
+    }
+
+
+
+
+
+    file.close
+
+
+
+
+    $trace_states = false
+    file.close
+    rio('..').chdir
+  end
+
+  def test_eof
+    rio('lineno').delete!.mkpath.chdir
+
+    file = mkalinesfile(3,'f0')
+    file > (lines = [])
+    $trace_states = false
+    file = rio('f0')
+    p file.eof?
+
+
+    $trace_states = false
+#    assert(file.file?)
+#    assert(link.file?)
+#    assert(link.symlink?)
+
+#    assert_equal(file.stat.size,link.stat.size)
+#    assert_not_equal(file.stat.size,link.lstat.size)
+#    assert_raise(RIO::Exception::CantHandle) {
+#      file.lstat
+#    }
+
+    rio('..').chdir
+  end
+end