wishdev-rio 0.4.3.1

data/test/tc/closeoncopy.rb

@@ -0,0 +1,102 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+require 'rio'
+require 'test/unit'
+require 'tc/testcase'
+
+class TC_closeoncopy < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+    make_lines_file(3,'f0')
+    rio('d0').delete!.mkdir.chdir {
+      make_lines_file(3,'f1')
+    }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @f0 = rio('f0')
+  end
+  def atest_method
+    assert(@f1.closeoncopy?)
+    assert!(@f2.closeoncopy?)
+  end
+  def cfrom(dest,src)
+    dest < src
+    assert(dest.closeoncopy?)
+    assert(dest.closed?)
+
+    dest << src
+    assert(dest.closeoncopy?)
+    assert(dest.closed?)
+  end
+  def test_copyfrom
+    #$trace_states = true
+    cfrom(rio('copyfrom').delete,rio(@f0))
+    cfrom(rio('copyfrom'),rio(@f0))
+    cfrom(rio('copyfrom').open('w'),rio(@f0))
+  end
+
+  def orio()
+    d = rio('copyfrom')
+    d.puts("aline\n")
+    assert(d.open?)
+    d
+  end
+  def test_copyfrom_open
+    #$trace_states = true
+    cfrom(orio,"Zipp\n")
+    cfrom(orio,rio(@f0))
+    cfrom(orio,["Zipp\n"])
+  end
+
+  def test_copyfrom_array
+    #$trace_states = true
+    cfrom(rio('copyfrom').delete,["Zipp\n"])
+  end
+
+  def cto(src,dest)
+    src > dest
+    assert(dest.closeoncopy?)
+    assert(dest.closed?)
+  end
+
+  def ato(src,dest)
+    src >> dest
+    assert(dest.closeoncopy?)
+    assert(dest.closed?)
+  end
+  def test_copyto
+    #$trace_states = true
+    cto(rio(@f0),rio('copyto').delete!)
+    cto(rio(@f0),rio('copyto'))
+    cto(rio(@f0),rio('copyto').open('w'))
+    cto(rio(@f0),rio('copyto').open('a'))
+    cto(rio(@f0),orio)
+  end
+  def test_appto
+    #$trace_states = true
+    ato(rio(@f0),rio('copyto').delete!)
+    ato(rio(@f0),rio('copyto'))
+    ato(rio(@f0),rio('copyto').open('w'))
+    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/closeoneof.rb

@@ -0,0 +1,194 @@
+#!/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_closeoneof < Test::Unit::TestCase
+  def test_basic
+    qp = rio('qp')
+    rio(qp,'test_closeoneof').rmtree.mkpath.chdir {
+      exp = []
+      f = rio('lines.txt')
+      1.upto(3) do |n| 
+        s = "Line #{n}\n"
+        f.print(s)
+        exp << s
+      end
+      f.close
+      exp_s = exp.join('')
+      
+      rio('dir').mkdir
+      rio('dir/a1.txt') < rio('lines.txt')
+      rio('dir/a2.txt') < rio('lines.txt')
+      
+      file = rio('lines.txt')
+      lines = file.to_a
+      assert_equal(exp,lines)
+      assert_equal(true,file.closed?)
+      
+      file = rio('lines.txt')
+      lines = file.readlines
+      assert_equal(exp,lines)
+      assert_equal(true,file.closed?)
+      
+      file = rio('lines.txt')
+      str = ""
+      file.each_line { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(true,file.closed?)
+
+      file = rio('lines.txt')
+      str = ""
+      file.each_byte { |el| str += el.chr }
+      assert_equal(exp_s,str)
+      assert_equal(true,file.closed?)
+
+      file = rio('lines.txt')
+      str = ""
+      file.bytes.each { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(true,file.closed?)
+
+      file = rio('lines.txt')
+      str = ""
+      file.bytes(3).each { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(true,file.closed?)
+
+
+
+
+      file = rio('lines.txt').nocloseoneof
+      lines = file.to_a
+      assert_equal(exp,lines)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt').nocloseoneof
+      lines = file.readlines
+      assert_equal(exp,lines)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt').nocloseoneof
+      str = ""
+      file.each_line { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt').nocloseoneof
+      str = ""
+      file.each_byte { |el| str += el.chr }
+      assert_equal(exp_s,str)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt').nocloseoneof
+      str = ""
+      file.bytes.each { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt').nocloseoneof
+      str = ""
+      file.bytes(3).each { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt')
+      str = ""
+      file.each { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(true,file.closed?)
+
+      file = rio('lines.txt')
+      str = ""
+      file.nocloseoneof.each { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt')
+      str = ""
+      file.nocloseoneof { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(false,file.closed?)
+      file.close
+
+      file = rio('lines.txt')
+      str = ""
+      file.closeoneof { |el| str += el }
+      assert_equal(exp_s,str)
+      assert_equal(true,file.closed?)
+
+
+      file = rio('lines.txt')
+      lines = file.nocloseoneof.readlines
+      assert_equal(exp,lines)
+      assert_equal(false,file.closed?)
+      file.close
+      
+      file = rio('lines.txt').nocloseoneof
+      lines = file.to_a
+      assert_equal(false,file.closed?)
+      file.close
+
+      rio('dir').each { |en|
+        lines = en.to_a
+        assert_equal(exp,lines)
+        assert_equal(true,en.closed?)
+      }
+
+      rio('dir').nocloseoneof.each { |en|
+        lines = en.to_a
+        assert_equal(exp,lines)
+        assert_equal(false,en.closed?)
+        en.close
+      }
+
+      rio('dir').nocloseoneof.each { |en|
+        lines = en.closeoneof.to_a
+        assert_equal(exp,lines)
+        assert_equal(true,en.closed?)
+      }
+
+      rio('dir').closeoneof.each { |en|
+        lines = en.nocloseoneof.to_a
+        assert_equal(exp,lines)
+        assert_equal(false,en.closed?)
+        en.close
+      }
+
+
+      rio('dir').nocloseoneof { |en|
+        lines = en.to_a
+        assert_equal(exp,lines)
+        assert_equal(false,en.closed?)
+        en.close
+      }
+
+      rio('dir').nocloseoneof { |en|
+        lines = en.closeoneof.to_a
+        assert_equal(exp,lines)
+        assert_equal(true,en.closed?)
+      }
+
+      rio('dir').closeoneof { |en|
+        lines = en.nocloseoneof.to_a
+        assert_equal(exp,lines)
+        assert_equal(false,en.closed?)
+        en.close
+      }
+
+
+    }
+  end
+    
+end

data/test/tc/cmdpipe.rb

@@ -0,0 +1,149 @@
+#!/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_cmdpipe < Test::RIO::TestCase
+  @@once = false
+  @@dname = 'd'
+  @@fnames = ['f0','f1','f2','g0','g1']
+
+  require 'tc/programs_util'
+  include Test::RIO::Programs
+
+  def self.once
+    @@once = true
+    rio(@@dname).rmtree.mkpath.chdir {
+      @@fnames.each { |fn|
+        make_lines_file(20,fn)
+      }
+    }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+
+  def test_cmd_out
+    ls = rio(?-,PROG['list_dir']+' d')
+    out = rio(?").chomp
+    exp = @@fnames
+    rtn = ls | out
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_cmd_cmd_out
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' f')
+    out = rio(?").chomp
+    exp = @@fnames.select { |fn| fn =~ /f/ }
+    rtn = ls | grep | out
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_cmd_cmd_cmd_out
+    ls = rio(?-,PROG['list_dir']+' d')
+    cmd = rio(?-,PROG['find_lines']+' f')
+    cmd2 = rio(?-,PROG['find_lines']+' 1')
+    out = rio(?").chomp
+    exp = @@fnames.select { |fn| fn =~ /f1/ }
+    rtn = ls | cmd | cmd2 | out
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_file_out
+    inp = rio('d/f2')
+    out = rio(?")
+    rtn = inp | out
+    exp = inp[]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_file_cmd_out
+    inp = rio('d/f2')
+    cmd = rio(?-,PROG['find_lines']+' 1')
+    out = rio(?")
+    rtn = inp | cmd | out
+    exp = inp[/1/]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_file_cmd_cmd_out
+    inp = rio('d/f2')
+    cmd = rio(?-,PROG['find_lines']+' 1')
+    cmd2 = rio(?-,PROG['find_lines']+' 0')
+    out = rio(?")
+    rtn = inp | cmd | cmd2 | out
+    exp = inp[/10/]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_file_cmdpipe_out2
+    inp = rio('d/f2')
+    cmd = rio(?-,PROG['find_lines']+' 1')
+    cmd2 = rio(?-,PROG['find_lines']+' 0')
+
+    cmdpipe = inp | cmd | cmd2
+    assert_equal('cmdpipe',cmdpipe.scheme)
+
+    out = rio(?")
+    rtn = cmdpipe | out
+    exp = inp[/10/]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+
+    out = rio(?")
+    rtn = cmdpipe | out
+    exp = inp[/10/]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_file_cmdpipe_out
+    inp = rio('d/f2')
+    cmd = rio(?-,PROG['find_lines']+' 1')
+    cmd2 = rio(?-,PROG['find_lines']+' 0')
+    out = rio(?")
+
+    cmdpipe = cmd | cmd2
+    assert_equal('cmdpipe',cmdpipe.scheme)
+
+    rtn = inp | cmdpipe | out
+    exp = inp[/10/]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+  end
+
+  def test_cmdpipe_without
+    cmd = rio(?-,PROG['find_lines']+' 1')
+    cmd2 = rio(?-,PROG['find_lines']+' 0')
+    out = rio(?")
+
+    cmdpipe = rio(?|,cmd,cmd2,out)
+    assert_equal('cmdpipe',cmdpipe.scheme)
+
+    inp = rio('d/f2')
+    rtn = inp | cmdpipe
+    exp = inp[/10/]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+
+    inp = rio('d/f1')
+    rtn = inp | cmdpipe
+    exp = inp[[/1/,/0/]]
+    assert_equal(exp,out[])
+    assert_equal(rtn,out)
+
+  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