rio 0.3.1

data/test/tc/once.rb

@@ -0,0 +1,6 @@
+require 'test/unit'
+require 'tc/testcase'
+require 'rio/tc/copydir'
+require 'rio/tc/rename'
+
+

data/test/tc/overload.rb

@@ -0,0 +1,137 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+require 'rio'
+require 'test/unit'
+
+class TC_RIO_overload < Test::Unit::TestCase
+  def test_overload
+    qp = RIO.rio('qp')
+    rio(qp,'test_overload').rmtree.mkpath.chdir {
+      line0 = "Line 0\n"
+      src = rio('src').print!(line0)
+
+      rio('src') > rio('dst1')
+      assert_equal(line0,rio('dst1').slurp)
+#      $trace_states = true
+      rio('dst2') < rio('src') 
+      $trace_states = false
+      assert_equal(line0,rio('dst2').slurp)
+      rio('dst2') << rio('src') 
+      assert_equal(line0+line0,rio('dst2').slurp)
+
+      rio('dst3') << rio('src') 
+      assert_equal(line0,rio('dst3').slurp)
+      rio('dst3') << rio('src') 
+      assert_equal(line0+line0,rio('dst3').slurp)
+
+      rio('dst4') < rio('src') 
+      assert_equal(line0,rio('dst4').slurp)
+
+      rio('dst5') < line0
+      assert_equal(line0,rio('dst5').slurp)
+      rio('dst5') << line0
+      assert_equal(line0+line0,rio('dst5').slurp)
+      
+      rio('dst6') < ::File.new('src','r')
+      assert_equal(line0,rio('dst6').slurp)
+      rio('dst6') << ::File.new('src','r')
+      assert_equal(line0+line0,rio('dst6').slurp)
+      
+      rio('dst7') < "Line 0\n"
+      assert_equal(line0,rio('dst7').slurp)
+      rio('dst7') << "Line 0\n"
+      assert_equal(line0+line0,rio('dst7').slurp)
+      
+      rio('dst8').puts!("Zippy DO\n")
+      rio('dst8') < rio('src') 
+      assert_equal(line0,rio('dst8').slurp)
+      
+      rio('src') > rio('dst10')
+      assert_equal(line0,rio('dst10').slurp)
+      rio('src') >> rio('dst10')
+      assert_equal(line0+line0,rio('dst10').slurp)
+      
+      rio('src') > rio('dst1')
+      assert_equal(line0,rio('dst1').slurp)
+      
+      rio('src') >> rio('dst1a')
+      rio('src') >> rio('dst1a')
+      assert_equal(line0+line0,rio('dst1a').slurp)
+      
+      str = 'Hello World'
+      rio('src') > str
+      assert_equal(line0,str)
+      rio('src') >> str
+      assert_equal(line0+line0,str)
+      
+      fh = ::File.new('dst2','w')
+      rio('src') > fh
+      fh.close
+      assert_equal(line0,rio('dst2').slurp)
+      
+      rio('src.gz').gzip < rio('src')
+      rio('dst3') < rio('src.gz').gzip
+      assert_equal(line0,rio('dst3').slurp)
+
+      str = 'Hello World'
+     rio('src.gz').gzip > str
+    assert_equal(line0,str)
+
+      rio('src') > rio('src.gz').gzip 
+      rio('src.gz').gzip > str
+      assert_equal(line0,str)
+      rio('src.gz').gzip >> str
+      assert_equal(line0+line0,str)
+      
+    }
+
+
+#     dst2 = rio(datadir,'dst2').mkdir
+#     src > dst2
+#     sline = rio(datadir,'src').slurp
+#     l2 = rio(datadir,'dst2/src').slurp
+#     assert_equal(line0,sline,'a message in a assertion')
+#     assert_equal(line0,l2)
+
+#     # copy directories
+#     sd1 = rio(datadir,'dir1/sd1').rmtree.mkpath
+#     txt = "Hello f1.txt"
+#     sd1.catpath('f1.txt').puts(txt).close
+#     oline = rio(datadir,'dir1/sd1/f1.txt').slurp
+
+#     dir2 = rio(datadir,'dir2').rmtree.mkpath
+#     sd1.copy(dir2)
+#     nline = rio(datadir,'dir2/sd1/f1.txt').slurp
+#     assert_equal(oline,nline)
+    
+#     dir2 = rio(datadir,'dir2').rmtree.mkpath
+#     sd1 > dir2
+#     nline = rio(datadir,'dir2/sd1/f1.txt').slurp
+#     assert_equal(oline,nline)
+    
+#     dir2 = rio(datadir,'dir2').rmtree.mkpath
+#     dir2 < rio(datadir,'dir1/sd1')
+#     nline = rio(datadir,'dir2/sd1/f1.txt').slurp
+#     assert_equal(oline,nline)
+    
+#     dir2 = rio(datadir,'dir2').rmtree.mkpath
+#     sd1 > dir2.to_s
+#     nline = rio(datadir,'dir2/sd1/f1.txt').slurp
+#     assert_equal(oline,nline)
+    
+#     dir2 = rio(datadir,'dir2').rmtree.mkpath
+#     dir2 < rio(datadir,'dir1/sd1').to_s
+#     nline = rio(datadir,'dir2/sd1/f1.txt').slurp
+#     assert_equal(oline,nline)
+    
+  end
+end
+__END__
+require 'test/unit/ui/console/testrunner'
+#Test::Unit::UI::Console::TestRunner.run(TC_RIO,Test::Unit::UI::SILENT)
+#Test::Unit::UI::Console::TestRunner.run(TC_RIO,Test::Unit::UI::PROGRESS_ONLY)
+#Test::Unit::UI::Console::TestRunner.run(TC_RIO_copy,Test::Unit::UI::NORMAL)
+Test::Unit::UI::Console::TestRunner.run(TC_RIO_copy,Test::Unit::UI::VERBOSE)

data/test/tc/pa.rb

@@ -0,0 +1,159 @@
+#!/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'
+
+def smap(a) a.map( &:to_s ) end
+
+class TC_RIO_pa < Test::Unit::TestCase
+  def test_pa
+    s_dir = ''
+    #$trace_states = true
+    tdir = rio(%w/qp pa/)
+    tdir.rmtree.mkpath.chdir {
+      rio(%w/d0 d00 d000/).mkpath
+      rio(%w/d1 d10 d000/).mkpath
+      rio(%w/d1 d10 d100/).mkpath
+      rio(%w/d1 d11/).mkpath
+      %w[d1/f0.txt d1/d10/f0.txt d1/d10/f1.txt d1/d10/f2.emp f0.txt d1/d10/d000/f100.txt].each do |e|
+        rio(e) << (0..2).map { |n| "L#{n}:#{e}\n" }
+      end
+    }
+    
+    tdir.chdir do
+      ario = rio('d1')
+      exp = ["d1/f0.txt"]
+      assert_equal(exp,smap(ario[/x/]))
+
+      ario = rio('f0.txt')
+      exp = ["L0:f0.txt\n", "L1:f0.txt\n", "L2:f0.txt\n"]
+      assert_equal(exp,smap(ario[/x/]))
+
+      ario = rio('d1')
+      ans = []
+      #$trace_states = true
+      ario.each do |ent|
+        ent.files { |el| ans << el }
+      end
+      exp = ["d1/d10/f0.txt","d1/d10/f1.txt","d1/d10/f2.emp","d1/f0.txt"]
+      assert_equal(exp,smap(ans))
+      ario = rio('d1')
+      ans = []
+      ario.each do |ent|
+        ent.files(/x/) { |el| ans << el }
+      end
+      exp = ["d1/d10/f0.txt", "d1/d10/f1.txt", "d1/f0.txt"]
+      assert_equal(exp,smap(ans))
+
+      ario = rio('d1')
+      ans = ario[/x/]
+      exp = ["d1/f0.txt"]
+      assert_equal(exp,smap(ans))
+
+      ans = []
+      rio('d1').all.files('*.emp').lines(/L2/) { |el| ans << el }
+      exp = ["L2:d1/d10/f2.emp\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = []
+      rio('d1').all.files('*.?x?').lines(/L2/) { |el| ans << el }
+      exp = ["L2:d1/d10/d000/f100.txt\n", "L2:d1/d10/f0.txt\n", "L2:d1/d10/f1.txt\n", "L2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = []
+      rio('d1').all.files('*.?x?').lines(2) { |el| ans << el }
+      exp = ["L2:d1/d10/d000/f100.txt\n", "L2:d1/d10/f0.txt\n", "L2:d1/d10/f1.txt\n", "L2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = []
+
+      rio('d1').all.files('*.?x?').lines(2...3) { |el| ans << el }
+      exp = ["L2:d1/d10/d000/f100.txt\n", "L2:d1/d10/f0.txt\n", "L2:d1/d10/f1.txt\n", "L2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+      
+      ans = rio('d1').all.files('*.?x?').lines(/L1/).to_a
+      exp = ["L1:d1/d10/d000/f100.txt\n", "L1:d1/d10/f0.txt\n", "L1:d1/d10/f1.txt\n", "L1:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.files('*.?x?').lines[/L1/]
+      exp = ["L1:d1/d10/d000/f100.txt\n", "L1:d1/d10/f0.txt\n", "L1:d1/d10/f1.txt\n", "L1:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.lines(/L1/).files['*.?x?']
+      exp = ["L1:d1/d10/d000/f100.txt\n", "L1:d1/d10/f0.txt\n", "L1:d1/d10/f1.txt\n", "L1:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.files('*.?x?').lines[1]
+      exp = ["L1:d1/d10/d000/f100.txt\n", "L1:d1/d10/f0.txt\n", "L1:d1/d10/f1.txt\n", "L1:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.files('*.?x?').lines[1...2]
+      exp = ["L1:d1/d10/d000/f100.txt\n", "L1:d1/d10/f0.txt\n", "L1:d1/d10/f1.txt\n", "L1:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.lines(/L0/).files[/f0/]
+      exp = ["L0:d1/d10/f0.txt\n", "L0:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.lines(/L0/).files[]
+      exp = ["L0:d1/d10/d000/f100.txt\n", "L0:d1/d10/f0.txt\n", "L0:d1/d10/f1.txt\n", "L0:d1/d10/f2.emp\n", "L0:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.files(/f0/).lines[/L0/]
+      exp = ["L0:d1/d10/f0.txt\n", "L0:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.files(/f0/).lines[]
+      exp = ["L0:d1/d10/f0.txt\n", "L1:d1/d10/f0.txt\n", "L2:d1/d10/f0.txt\n", "L0:d1/f0.txt\n", "L1:d1/f0.txt\n", "L2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.bytes(8).records(0..1).files[/f0/]
+      exp = ["L0:d1/d10/f0.txt\nL1:d1/d10/f0.txt\nL2:d1/d10/f0.txt\n", "L0:d1/f0.txt\nL1:d1/f0.txt\nL2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.bytes(8).files(/f0/).records[0..1]
+      exp = ["L0:d1/d10/f0.txt\nL1:d1/d10/f0.txt\nL2:d1/d10/f0.txt\n", "L0:d1/f0.txt\nL1:d1/f0.txt\nL2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+
+      ans = rio('d1').all.bytes(32).files(/f0/).records[]
+      exp = ["L0:d1/d10/f0.txt\nL1:d1/d10/f0.txt\nL2:d1/d10/f0.txt\n", "L0:d1/f0.txt\nL1:d1/f0.txt\nL2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.bytes(32).files[/f0/]
+      exp = ["L0:d1/d10/f0.txt\nL1:d1/d10/f0.txt\nL2:d1/d10/f0.txt\n", "L0:d1/f0.txt\nL1:d1/f0.txt\nL2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.bytes.files['*.emp']
+      exp = ["L0:d1/d10/f2.emp\nL1:d1/d10/f2.emp\nL2:d1/d10/f2.emp\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.files('*.emp').bytes[]
+      exp = ["L0:d1/d10/f2.emp\nL1:d1/d10/f2.emp\nL2:d1/d10/f2.emp\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.lines[]
+      exp = ["L0:d1/d10/d000/f100.txt\n", "L1:d1/d10/d000/f100.txt\n", "L2:d1/d10/d000/f100.txt\n", 
+             "L0:d1/d10/f0.txt\n", "L1:d1/d10/f0.txt\n", "L2:d1/d10/f0.txt\n", 
+             "L0:d1/d10/f1.txt\n", "L1:d1/d10/f1.txt\n", "L2:d1/d10/f1.txt\n", 
+             "L0:d1/d10/f2.emp\n", "L1:d1/d10/f2.emp\n", "L2:d1/d10/f2.emp\n", 
+             "L0:d1/f0.txt\n", "L1:d1/f0.txt\n", "L2:d1/f0.txt\n"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all[]
+      exp = ["d1/d10", "d1/d10/d000", "d1/d10/d000/f100.txt", "d1/d10/d100", 
+             "d1/d10/f0.txt", "d1/d10/f1.txt", "d1/d10/f2.emp", "d1/d11", "d1/f0.txt"]
+      assert_equal(exp,smap(ans))
+
+      ans = rio('d1').all.files('*.emp').lines[]
+      exp = ["L0:d1/d10/f2.emp\n", "L1:d1/d10/f2.emp\n", "L2:d1/d10/f2.emp\n"]
+      assert_equal(exp,smap(ans))
+    end
+  end
+end

data/test/tc/pathop.rb

@@ -0,0 +1,63 @@
+#!/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_pathop < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('d0').rmtree.mkpath
+    rio('d0/d2').rmtree.mkpath
+    rio('d0/d3').rmtree.mkpath
+    rio('d0/d4').rmtree.mkpath
+    rio('d0/d2/d3').rmtree.mkpath
+    rio('d0/d2/d5').rmtree.mkpath
+    rio('d0/d3/d6').rmtree.mkpath
+    rio('d1').rmtree.mkpath
+    rio('d1/d8').rmtree.mkpath
+    make_lines_file(1,'d1/f0')
+    make_lines_file(2,'d1/f1')
+    make_lines_file(1,'d0/f0')
+    make_lines_file(2,'d0/f1')
+    make_lines_file(1,'d0/d2/f0')
+    make_lines_file(2,'d0/d2/f1')
+    make_lines_file(1,'d0/d3/d6/f0')
+    make_lines_file(2,'d0/d3/d6/f1')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @d0 = rio('d0')
+    @d1 = rio('d1')
+    @d2 = @d0/'d2'
+    @f0 = @d0/'f0'
+    @f1 = @d0/'f1'
+    @f2 = @d0/'d2'/'f2'
+    @f3 = @d0/'d2'/'f3'
+
+  end
+  def test_p1
+    src = rio(@d1)
+    dst = []
+    puts @f3
+    p File.split('/qe/pi/')
+  end
+  def test_p2
+    p1 = rio('p1')
+    p2 = rio('p2')
+    p3 = p1.join(p2)
+    puts p1,p3
+    p3 = p1.join!(p2)
+    puts p1,p3
+
+  end
+end

data/test/tc/paths.rb

@@ -0,0 +1,147 @@
+#!/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_paths < Test::Unit::TestCase
+  require 'extensions/symbol'
+  def pa(a) p a.map( &:to_s ) end
+  def smap(a) a.map( &:to_s ) end
+  def pmap(a)
+    a.sort
+  end
+  def gmap(io)
+    smap(io.to_a).sort
+  end
+
+  def test_paths
+    s_dir = ''
+    tdir = rio(%w/qp test_paths/)
+    tdir.rmtree.mkpath.chdir {
+      rio(%w/dir0 dir00 dir000/).mkpath
+      rio(%w/dir1 dir10 dir000/).mkpath
+      rio(%w/dir1 dir10 dir100/).mkpath
+      rio(%w/dir1 dir11/).mkpath
+      rio(%w/dir1 f0.txt/).touch
+      rio(%w/dir1 dir10 f0.txt/).touch
+      rio(%w/dir1 dir10 f1.txt/).touch
+      rio(%w/dir1 dir10 f2.emp/).touch
+      rio(%w/f0.txt/).touch
+      rio(%w/dir1 dir10 dir000 f100.txt/).touch
+    }
+
+    tdir.chdir  {
+      io = rio('dir1')
+      exp = %w{ dir1/dir10 dir1/dir11 dir1/f0.txt}
+      assert_equal(pmap(exp), gmap(io))
+      io = rio('dir1').dirs
+      exp = %w{ dir1/dir10 dir1/dir11}
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').files
+      exp = %w{ dir1/f0.txt}
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').dirs("*1")
+      exp = %w{ dir1/dir11}
+      assert_equal(pmap(exp), gmap(io))
+      
+      io = rio('dir1').glob('**/*.txt')
+      exp = %w{dir1/f0.txt dir1/dir10/f0.txt dir1/dir10/f1.txt dir1/dir10/dir000/f100.txt}
+      assert_equal(pmap(exp), gmap(io))
+      
+      rio('dir1').chdir {
+        io = rio('dir10').files('*.txt')
+        exp = %w{ dir10/f0.txt dir10/f1.txt}
+        assert_equal(pmap(exp), gmap(io))
+
+        io = rio('dir10').files('*.txt')
+        exp = %w{ dir10/f0.txt dir10/f1.txt}
+        assert_equal(pmap(exp), gmap(io))
+      }
+    }
+    tdir.chdir  {
+      rio('dir1').chdir {
+        io = rio('dir10').files('*.txt')
+        exp = %w{ dir10/f0.txt dir10/f1.txt}
+        assert_equal(pmap(exp), gmap(io))
+        
+        io = rio('dir10').glob("**/*.txt")
+        exp = %w{ dir10/f0.txt dir10/f1.txt dir10/dir000/f100.txt}
+        assert_equal(pmap(exp), gmap(io))
+        
+        io = rio('dir10').all.files('*.txt')
+        exp = %w{ dir10/f0.txt dir10/f1.txt dir10/dir000/f100.txt}
+        assert_equal(pmap(exp), gmap(io))
+
+        io = rio('dir10').all.files
+        exp = %w{ dir10/f0.txt dir10/f1.txt dir10/f2.emp dir10/dir000/f100.txt}
+        assert_equal(pmap(exp), gmap(io))
+      }
+    }
+    tdir.chdir  {
+      io = rio('dir1').all.dirs
+      exp = %w{ dir1/dir10 dir1/dir10/dir000 dir1/dir11 dir1/dir10/dir100    }
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').all.dirs('*0')
+      exp = %w{ dir1/dir10 dir1/dir10/dir100 dir1/dir10/dir000}
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').glob('**/*100*')
+      exp = %w{ dir1/dir10/dir100 dir1/dir10/dir000/f100.txt}
+      assert_equal(pmap(exp), gmap(io))
+    }
+    tdir.chdir  {
+      io = rio('dir1').all.dirs('*0')
+      exp = %w{ dir1/dir10 dir1/dir10/dir100 dir1/dir10/dir000}
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').glob('*1')
+      exp = %w{ dir1/dir11 }
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').glob('**/*1')
+      exp = %w{ dir1/dir11 }
+      assert_equal(pmap(exp), gmap(io))
+
+      $trace_states = true
+      io = rio('dir1').recurse('*0')
+      exp = %w[dir1/dir10 dir1/dir10/dir000 dir1/dir10/dir100 dir1/dir11 dir1/f0.txt dir1/dir10/f0.txt dir1/dir10/f1.txt
+               dir1/dir10/f2.emp dir1/dir10/dir000/f100.txt]
+      $trace_states = false
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').recurse('*1')
+      exp = %w{ dir1/dir11 dir1/dir10 dir1/f0.txt}
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').recurse('*1').files
+      exp = %w{ dir1/f0.txt }
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').recurse('*1').dirs
+      exp = %w{ dir1/dir11 dir1/dir10 }
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').recurse('*1').dirs('*1')
+      exp = %w{ dir1/dir11 }
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').recurse('*0').files
+      exp = %w[dir1/f0.txt dir1/dir10/f0.txt dir1/dir10/f1.txt
+               dir1/dir10/f2.emp dir1/dir10/dir000/f100.txt]
+      assert_equal(pmap(exp), gmap(io))
+
+      io = rio('dir1').recurse('*0').files(/f\d\..../)
+      exp = %w[dir1/f0.txt dir1/dir10/f0.txt dir1/dir10/f1.txt
+               dir1/dir10/f2.emp ]
+      assert_equal(pmap(exp), gmap(io))
+
+    }
+  end
+end