rio 0.3.7 → 0.3.8

data/test/tc/likeio.rb

@@ -0,0 +1,112 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+
+class TestData
+  attr_reader :fn_ruby,:fn_rio,:data
+  def initialize(prefix,data)
+    @data = data
+    @fn_ruby = prefix + 'ruby.dat'
+    @fn_rio = prefix + 'rio.dat'
+    rio(@fn_ruby) < @data
+    rio(@fn_rio) < @data
+  end
+end
+
+class TC_likeio < Test::RIO::TestCase
+  @@once = false
+  @@data = {}
+  def self.once
+    @@once = true
+    @@data['bytes'] = TestData.new('bytes_',"012")
+    @@data['lines'] = TestData.new('lines_',"Line0\nLine1\n")
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def open_data(td,&block)
+    begin
+      fruby = ::File.open(td.fn_ruby)
+      frio = rio(td.fn_rio)
+      yield(fruby,frio)
+    ensure
+      fruby.close
+      frio.close
+    end
+  end
+  
+  def check_read_method(fruby,frio,n,sym,*args)
+    n.times {
+      assert_equal(fruby.__send__(sym,*args),frio.__send__(sym,*args))
+      assert_equal(fruby.eof?,frio.eof?)
+    }
+  end
+
+  def check_read_method_raises_eof(fruby,frio,n,sym,*args)
+    n.times {
+      ruby_raises = false
+      rio_raises = false
+      ruby_returns = nil
+      rio_returns = nil
+      begin
+        ruby_returns = fruby.__send__(sym,*args)
+      rescue EOFError
+        ruby_raises = true
+      end
+      begin
+        rio_returns = frio.__send__(sym,*args)
+      rescue EOFError
+        rio_raises = true
+      end
+      assert_equal(ruby_raises,rio_raises)
+      assert_equal(ruby_returns,rio_returns)
+    }
+  end
+
+  def check_iter(fruby,frio,sym,*args)
+    ans_ruby = []
+    ans_rio = []
+    fruby.__send__(sym,*args) { |el|
+      ans_ruby << el
+    }
+    frio.__send__(sym,*args) { |el|
+      ans_rio << el
+    }
+    assert_equal(ans_ruby,ans_rio)
+  end
+  def test_each_byte
+    open_data(@@data['bytes']) { |fruby,frio|
+      check_iter(fruby,frio,:each_byte)
+    }
+  end
+  def test_each_line
+    open_data(@@data['lines']) { |fruby,frio|
+      check_iter(fruby,frio,:each_line)
+    }
+  end
+  def test_gets
+    open_data(@@data['lines']) { |fruby,frio|
+      check_read_method(fruby,frio,3,:gets)
+    }
+    open_data(@@data['lines']) { |fruby,frio|
+      check_read_method(fruby,frio,4,:gets,'e')
+    }
+  end
+  def test_getc
+    open_data(@@data['bytes']) { |fruby,frio|
+      check_read_method(fruby,frio,4,:getc)
+    }
+  end
+  def test_readchar
+    testdata = @@data['bytes'] 
+    open_data(testdata) { |fruby,frio|
+      check_read_method_raises_eof(fruby,frio,testdata.data.size+1,:readchar)
+    }
+  end
+end

data/test/tc/methods.rb

@@ -21,12 +21,12 @@ class TC_RIO_methods < Test::Unit::TestCase
 
     cexp << ioc.gets
     oexp << ios.gets
-    until ioc.eof?
-      cexp << ioc.gets
+    while ans = ioc.gets
+      cexp << ans
     end
 
-    until ios.eof?
-      oexp << ios.gets
+    while ans = ios.gets
+      oexp << ans
     end
     return ioc,oexp,cexp
   end
@@ -40,12 +40,12 @@ class TC_RIO_methods < Test::Unit::TestCase
     assert_not_nil(ioc,"dup returns nil")
     cexp << ioc.gets
     oexp << ios.gets
-    until ioc.eof?
-      cexp << ioc.gets
+    while ans = ioc.gets
+      cexp << ans
     end
 
-    until ios.eof?
-      oexp << ios.gets
+    while ans = ios.gets
+      oexp << ans
     end
     return ioc,oexp,cexp
   end
@@ -67,6 +67,7 @@ class TC_RIO_methods < Test::Unit::TestCase
     assert(ios.closed?,"now original closed")
   end
   def setup
+    #$trace_states = true
     @cwd = rio(::Dir.getwd)
     @dir = rio('qp/methods')
 #    $trace_states = true
@@ -82,10 +83,10 @@ class TC_RIO_methods < Test::Unit::TestCase
   end
   def teardown
     @cwd.chdir
+    $trace_states = false
   end
 
   def test_clone_like_IO
-
     ios = ::File.open('lines')
     ioc,oexp,cexp = check_clone(ios)
     check_clone_close(ios,ioc)

data/test/tc/misc.rb

@@ -5,6 +5,7 @@ if $0 == __FILE__
 end
 require 'rio'
 require 'tc/testcase'
+#require 'dev-utils/debug'
 
 #require 'tc_myfirsttests'
 #require 'tc_moretestsbyme'
@@ -25,28 +26,6 @@ class TC_RIO_misc < Test::Unit::TestCase
     got =  f.a.puts("Line 5").readlines
     assert_equal(exp,got)
 
-    f = rio('qp/rwlines.txt').nocloseoneof.autorewind.chomp.mode('w+')
-    0.upto(4) do |n|
-      f.puts("Line #{n}")
-    end
-    got = f.puts("Line 5").readlines
-    assert_equal(exp,got)
-
-    f = rio('qp/rwlines.txt').nocloseoneof.autorewind.chomp.mode('w+')
-    0.upto(4) do |n|
-      f.puts("Line #{n}")
-    end
-    got = f.puts!("line 5").readlines
-    assert_equal([],got)
-
-    f = rio('qp/rwlines.txt').nocloseoneof.autorewind.chomp.mode('w+')
-    0.upto(4) do |n|
-      f.puts("Line #{n}")
-    end
-    f.close
-    got = rio('qp/rwlines.txt').a.nocloseoneof.autorewind.chomp.puts!("Line 5").readlines
-    assert_equal(exp,got)
-
     f = rio('qp/rwlines.txt').mode('w')
     0.upto(4) { |n| f.puts("Line #{n}") }
     assert_raise(IOError) {
@@ -121,21 +100,6 @@ class TC_RIO_misc < Test::Unit::TestCase
       got =  f.a.puts("Line 5").readlines
       assert_equal(exp,got)
       
-      f = rio('rwlines.txt').nocloseoneof.autorewind.chomp.mode('w+')
-      0.upto(4) { |n| f.puts("Line #{n}") }
-      got = f.puts("Line 5").readlines
-      assert_equal(exp,got)
-      
-      f = rio('rwlines.txt').nocloseoneof.autorewind.chomp.mode('w+')
-      0.upto(4) { |n| f.puts("Line #{n}") }
-      got = f.puts!("line 5").readlines
-      assert_equal([],got)
-      
-      f = rio('rwlines.txt').nocloseoneof.autorewind.chomp.mode('w+')
-      0.upto(4) { |n| f.puts("Line #{n}") }
-      f.close
-      got = rio('rwlines.txt').a.nocloseoneof.autorewind.chomp.puts!("Line 5").readlines
-      assert_equal(exp,got)
       
       f = rio('rwlines.txt').a
       assert_equal_s('a',f.outputmode?)

data/test/tc/null.rb

@@ -0,0 +1,45 @@
+#!/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_null < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def compare_rtn(sym,*args)
+    r1 = rio('/dev/null')
+    r2 = rio(nil)
+    rtn1 = r1.__send__(sym,*args)
+    rtn2 = r2.__send__(sym,*args)
+    assert_equal(rtn1,rtn2)
+  end
+  
+  def compare_raiseeof(sym,*args)
+    r1 = rio('/dev/null')
+    r2 = rio(nil)
+    assert_raise(EOFError) { r1.__send__(sym,*args) }
+    assert_raise(EOFError) { r2.__send__(sym,*args) }
+  end
+  
+  def test_gets() compare_rtn(:gets) end
+  def test_lineno() compare_rtn(:lineno) end
+  def test_lineno_assign() compare_rtn(:lineno=,20) end
+  def test_pos() compare_rtn(:pos) end
+  def test_pos_assign() compare_rtn(:pos=,20) end
+  def test_read() compare_rtn(:read) end
+  def test_readl() compare_rtn(:read,1) end
+  def test_readline() compare_raiseeof(:readline) end
+  def test_readlines() compare_rtn(:readlines) end
+  def test_readchar() compare_raiseeof(:readchar) end
+  
+end

data/test/tc/pid.rb

@@ -0,0 +1,31 @@
+#!/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_pid < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+  end
+  def test_likeio
+    cmd = 'ruby -v'
+    ios = File.popen(cmd)
+    assert(ios.pid)
+    ios_lines = ios.readlines
+
+    ior = rio(?-,cmd)
+    assert(ior.pid)
+    ior_lines = ior.readlines
+    
+    assert_equal(ios_lines,ior_lines)
+  end
+
+end

data/test/tc/piper.rb

@@ -13,6 +13,9 @@ class TC_piper < Test::RIO::TestCase
   @@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 {
@@ -39,64 +42,64 @@ class TC_piper < Test::RIO::TestCase
   end
 
   def test_cmd_out
-    ls = rio(?-,'ls')
+    ls = rio(?-,PROG['list_dir'])
     checkit([@@dname],ls)
   end
 
   def test_cmd_out2
-    ls = rio(?-,'ls d')
+    ls = rio(?-,PROG['list_dir']+' d')
     checkit(@@fnames,ls)
   end
 
   def test_cmd_cmd_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' 1').w!
     checkit(@@fnames.select { |s| s =~ /1/ },ls,grep)
   end
 
   def test_cmd_cmd_cmd_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
-    grep2 = rio(?-,'grep g').w!
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' 1').w!
+    grep2 = rio(?-,PROG['find_lines']+' g').w!
     checkit(@@fnames.select { |s| s =~ /g1/ },ls,grep,grep2)
   end
 
   def test_cmd_cmd_cmd_cmd_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
-    grep2 = rio(?-,'grep g').w!
-    wc = rio(?-,'wc -l').w!
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' 1').w!
+    grep2 = rio(?-,PROG['find_lines']+' g').w!
+    wc = rio(?-,PROG['count_lines']).w!
 
     checkit(["1"],ls,grep,grep2,wc)
   end
   def test_piper_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' 1').w!
     rp1 = RIO::Piper::Base.new(ls,grep)
     checkit(@@fnames.select { |s| s =~ /1/ },rp1)
   end
 
   def test_piper_cmd_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' 1').w!
     rp1 = RIO::Piper::Base.new(ls,grep)
-    grep2 = rio(?-,'grep g').w!
+    grep2 = rio(?-,PROG['find_lines']+' g').w!
     checkit(@@fnames.select { |s| s =~ /g1/ },rp1,grep2)
   end
 
   def test_cmd_piper_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
-    grep2 = rio(?-,'grep g').w!
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' 1').w!
+    grep2 = rio(?-,PROG['find_lines']+' g').w!
     rp1 = RIO::Piper::Base.new(grep,grep2)
     checkit(@@fnames.select { |s| s =~ /g1/ },ls,rp1)
   end
 
   def test_piper_piper_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
-    grep2 = rio(?-,'grep g').w!
-    wc = rio(?-,'wc -l').w!
+    ls = rio(?-,PROG['list_dir']+' d')
+    grep = rio(?-,PROG['find_lines']+' 1').w!
+    grep2 = rio(?-,PROG['find_lines']+' g').w!
+    wc = rio(?-,PROG['count_lines']).w!
     rp1 = RIO::Piper::Base.new(ls,grep)
     rp2 = RIO::Piper::Base.new(grep2,wc)
     checkit(["1"],rp1,rp2)
@@ -109,36 +112,30 @@ class TC_piper < Test::RIO::TestCase
 
   def test_file_cmd_out
     f = rio('d/f2')
-    grep = rio(?-,'grep 2').w!
+    grep = rio(?-,PROG['find_lines']+' 2').w!
     checkit(rio('d/f2').chomp[/2/],f,grep)
   end
 
   def test_file_cmd_cmd_out
     f = rio('d/f2')
-    grep = rio(?-,'grep 2').w!
-    grep2 = rio(?-,'grep 0').w!
+    grep = rio(?-,PROG['find_lines']+' 2').w!
+    grep2 = rio(?-,PROG['find_lines']+' 0').w!
     checkit(rio('d/f2').chomp[/0/],f,grep,grep2)
   end
 
   def test_file_cmd_cmd_cmd_out
     f = rio('d/f2')
-    grep = rio(?-,'grep 2').w!
-    grep2 = rio(?-,'grep 0').w!
-    wc = rio(?-,'wc -l').w!
+    grep = rio(?-,PROG['find_lines']+' 2').w!
+    grep2 = rio(?-,PROG['find_lines']+' 0').w!
+    wc = rio(?-,PROG['count_lines']).w!
     checkit(["1"],f,grep,grep2,wc)
   end
 
-  def test_piper_out
-    ls = rio(?-,'ls d')
-    grep = rio(?-,'grep 1').w!
-    rp1 = RIO::Piper::Base.new(ls,grep)
-    checkit(@@fnames.select { |s| s =~ /1/ },rp1)
-  end
 
   def test_file_piper_out
     f = rio('d/f2')
-    grep = rio(?-,'grep 2').w!
-    grep2 = rio(?-,'grep 0').w!
+    grep = rio(?-,PROG['find_lines']+' 2').w!
+    grep2 = rio(?-,PROG['find_lines']+' 0').w!
     rp1 = RIO::Piper::Base.new(grep,grep2)
     checkit(rio('d/f2').chomp[/0/],f,rp1)
   end

data/test/tc/programs_util.rb

@@ -0,0 +1,24 @@
+
+module Test
+  module RIO
+    module Programs
+      TEST_BIN_DIR = File.expand_path(Dir.pwd+'/bin')
+
+      XPROGS = {
+        'count_lines' => 'wc -l',
+        'find_lines'  => 'grep',
+        'list_dir'    => 'ls',
+      }
+      RPROGS = {
+        'count_lines' => "ruby #{TEST_BIN_DIR}/count_lines.rb",
+        'find_lines'  => "ruby #{TEST_BIN_DIR}/find_lines.rb",
+        'list_dir'    => "ruby #{TEST_BIN_DIR}/list_dir.rb",
+      }
+      PROG = {
+        'count_lines' => XPROGS['count_lines'],
+        'find_lines'  => XPROGS['find_lines'],
+        'list_dir'    => XPROGS['list_dir'],
+      }
+    end
+  end
+end

data/test/tc/readline.rb

@@ -0,0 +1,30 @@
+#!/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_readline < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def test_readline_like_IO
+    frio = rio('frio') < (0..1).map{ |i| "Line #{i}\n" }
+    rio('fruby') < frio
+    fruby = File.open('fruby');
+    assert_equal(fruby.readline,frio.readline)
+    assert_equal(fruby.readline,frio.readline)
+    assert_raise(EOFError) { fruby.readline }
+    assert_raise(EOFError) { frio.readline  }
+
+    
+  end
+end

data/test/tc/rename.rb

@@ -141,6 +141,18 @@ class TC_rename < Test::RIO::TestCase
     assert_array_equal(expf,rio('qdir').files[])
     assert_array_equal([],rio('tdir').files[])
 
+  end
+  def test_rename_dirname_deep
+    indir = rio('dir1/dir2/dir3/tdir').delete!.mkpath < rio(@d[1]).to_a
+    oldf = indir.files[].map { |f| f.to_s }
+    expf = oldf.map { |f| f.sub(indir.to_s,'shallow') }
+    rio('shallow').delete!.mkpath
+    indir.rename.files do |ent|
+      ent.dirname = 'shallow'
+    end
+    assert_array_equal(expf,rio('shallow').files[])
+    assert_array_equal([],rio(indir.to_s).files[])
+
   end
   def test_rename_basename_wext
     indir = rio('tdir').delete!.mkpath < rio(@d[1]).to_a

data/test/tc/tempfile.rb

@@ -48,5 +48,19 @@ class TC_tempfile < Test::RIO::TestCase
     assert_equal(str,tmp.rewind.chomp.gets)
   end
 
+  def test_copy
+    str = "Hello World\n"
+    
+    src = rio(?").print!(str)
+    ans = rio(?")
+    
+    tmp = rio(??)
+    tmp < src
+    tmp.rewind
+    assert_equal(str,tmp.contents)
+    tmp.rewind
+    tmp > ans
+    assert_equal(str,ans.contents)
+  end
 
 end

data/test/tc/testcase.rb

@@ -90,8 +90,10 @@ end
 module Test
   module RIO
     class TestCase < Unit::TestCase
+      include RIO_TestCase::Util
       def setup()
         return if self.class == Test::RIO::TestCase
+        #p self.class
         @cwd = ::Dir.getwd
         tdir.mkpath.chdir
       end
@@ -99,9 +101,13 @@ module Test
         return if self.class == Test::RIO::TestCase
         ::Dir.chdir @cwd
       end
+      def rios2str(a) a.map { |el| el.to_s } end
+
       def assert!(a,msg="negative assertion")
         assert((!(a)),msg)
       end
+
+      def smap(a) a.map { |el| el.to_s } end
       def assert_array_equal(a,b,msg="array same regardless of order")
         if a.nil?
           assert_nil(b)

data/test/tc/tonl.rb

@@ -0,0 +1,37 @@
+#!/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_tonl < Test::RIO::TestCase
+  @@once = false
+  CRNLFILE = 'hw.crnl.txt'
+  NLFILE = 'hw.nl.txt'
+  STR = "Hello World\r\n"
+  require 'tc/programs_util'
+  include Test::RIO::Programs
+
+  def self.once
+    @@once = true
+    rio(CRNLFILE) <  STR * 2
+ end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+
+  def test_1
+    out = rio.strio
+    rio(CRNLFILE) > out
+    lines = rio(CRNLFILE).to_a
+    assert_equal(13,lines[0].length)
+    rio(NLFILE) < rio(CRNLFILE).chomp.map{ |l| "#{l}\n" }
+    lines = rio(NLFILE).to_a
+    assert_equal(12,lines[0].length)
+  end
+
+end