wishdev-rio 0.4.3.1

data/test/tc/io_each_byte.rb

@@ -0,0 +1,60 @@
+#!/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_io_each_byte < Test::RIO::TestCase
+  @@once = false
+  DATA = "012"
+  FN_RUBY = 'fruby.txt'
+  FN_RIO = 'frio.txt'
+  def self.once
+    @@once = true
+    rio(FN_RUBY) < DATA
+    rio(FN_RIO) < DATA
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def open_io(&block)
+    begin
+      fruby = ::File.open(FN_RUBY)
+      frio = rio(FN_RIO)
+      yield(fruby,frio)
+    ensure
+      fruby.close
+      frio.close
+    end
+  end
+  
+  def check_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_calls(fruby,frio,n,*args)
+    check_method(fruby,frio,n,:read,*args)
+  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_basic
+    open_io { |fruby,frio|
+      check_iter(fruby,frio,:each_byte)
+    }
+  end
+end

data/test/tc/io_read.rb

@@ -0,0 +1,80 @@
+#!/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_io_read < Test::RIO::TestCase
+  @@once = false
+  DATA = "012345"
+  FN_RUBY = 'fruby.txt'
+  FN_RIO = 'frio.txt'
+  def self.once
+    @@once = true
+    rio(FN_RUBY) < DATA
+    rio(FN_RIO) < DATA
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def open_io(&block)
+    begin
+      fruby = ::File.open(FN_RUBY)
+      frio = rio(FN_RIO)
+      yield(fruby,frio)
+    ensure
+      fruby.close
+      frio.close
+    end
+  end
+  
+  def check_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_calls(fruby,frio,n,*args)
+    check_method(fruby,frio,n,:read,*args)
+  end
+  def test_positive_integer
+    open_io { |fruby,frio|
+      check_calls(fruby,frio,3,3)
+    }
+    open_io { |fruby,frio|
+      check_calls(fruby,frio,2,4)
+    }
+    open_io { |fruby,frio|
+      check_calls(fruby,frio,2,7)
+    }
+  end
+  def test_positive_integer_buffer
+    open_io { |fruby,frio|
+      buffer = ""
+      check_calls(fruby,frio,1,3,buffer)
+      assert_equal(DATA[0...3],buffer)
+      check_calls(fruby,frio,1,3,buffer)
+      assert_equal(DATA[3...6],buffer)
+    }
+    open_io { |fruby,frio|
+      check_calls(fruby,frio,2,4)
+    }
+    open_io { |fruby,frio|
+      check_calls(fruby,frio,2,7)
+    }
+  end
+  def test_nil
+    open_io { |fruby,frio|
+      check_calls(fruby,frio,2,nil)
+    }
+  end
+  def test_noarg
+    open_io { |fruby,frio|
+      check_calls(fruby,frio,2)
+    }
+  end
+end

data/test/tc/iometh.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_iometh < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def test_file
+    (0..4).each do |n_lines|
+      get_each(n_lines)
+    end
+  end
+  def get_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
+
+    # iterate twice using #get (no auto close)
+    begin
+      f = rio('f.txt').nocloseoneof
+      ans = []
+      while rec = f.get
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      while rec = f.get
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+
+    # iterate using #get then using #each (no auto close)
+    begin
+      f = rio('f.txt').nocloseoneof
+      ans = []
+      while rec = f.get
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+    
+    # iterate using #each then using #get (no auto close)
+    begin
+      f = rio('f.txt').nocloseoneof
+      ans = []
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      while rec = f.get
+        ans << rec
+      end
+      assert_equal(expa,ans)
+    end
+    
+    # iterate twice using #get (with auto close)
+    begin
+      f = rio('f.txt')
+      ans = []
+      while rec = f.get
+        ans << rec
+      end
+      assert_equal(expa,ans)
+      while rec = f.get
+        ans << rec
+      end
+      assert_equal(expa+expa,ans)
+    end
+    
+    # assure get returns nil once after iteration using #get (with auto close)
+    begin
+      f = rio('f.txt')
+      ans = []
+
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal(expa,ans)
+
+      rec = f.get
+      assert_equal(expa[0],rec)
+    end
+
+    begin
+      f = rio('f.txt')
+      ans = []
+
+      rec = f.get
+      assert_equal(expa[0],rec)
+      ans << rec unless rec.nil?
+      f.each do |rec|
+        ans << rec
+      end
+      rec = f.get
+      assert_equal(expa[0],rec)
+    end
+
+    begin
+      f = rio('f.txt')
+      ans = []
+
+      (0...n_lines).each do |n|
+        rec = f.get
+        assert_equal(expa[n],rec)
+      end
+      rec = f.get
+      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.get
+        assert_equal(expa[n],rec)
+      end
+      assert(f.eof?)
+      f.each do |rec|
+        ans << rec
+      end
+      assert_equal([],ans)
+    end
+  end
+end

data/test/tc/likeio.rb

@@ -0,0 +1,116 @@
+#!/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)
+    #$trace_states = true
+    n.times {
+      exp = fruby.__send__(sym,*args)
+      ans = frio.__send__(sym,*args)
+      assert_equal(exp,ans)
+      assert_equal(fruby.eof?,frio.eof?)
+    }
+    #$trace_states = false
+  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/line_record_row.rb

@@ -0,0 +1,51 @@
+#!/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_line_record_row < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('f0') < ['zero','one','two','three'].map{ |w| w + $/ }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @f0 = rio('f0')
+  end
+  def test_line
+    assert_equal(rio(@f0).lines[0][0],rio(@f0).line[0])
+    assert_equal(rio(@f0).lines[1][0],rio(@f0).line[1])
+    assert_equal(rio(@f0).lines[2][0],rio(@f0).line[2])
+    assert_equal(rio(@f0).lines[3][0],rio(@f0).line[3])
+    assert_equal(rio(@f0).lines[4][0],rio(@f0).line[4])
+    assert_equal(rio(@f0).lines[1..2][0],rio(@f0).line[1])
+    assert_equal(rio(@f0).lines[/t/][0],rio(@f0).line[/t/])
+  end
+
+  def test_record
+    assert_equal(rio(@f0).records[0][0],rio(@f0).record[0])
+    assert_equal(rio(@f0).records[1][0],rio(@f0).record[1])
+    assert_equal(rio(@f0).records[2][0],rio(@f0).record[2])
+    assert_equal(rio(@f0).records[3][0],rio(@f0).record[3])
+    assert_equal(rio(@f0).records[4][0],rio(@f0).record[4])
+    assert_equal(rio(@f0).records[1..2][0],rio(@f0).record[1])
+    assert_equal(rio(@f0).records[/t/][0],rio(@f0).record[/t/])
+  end
+
+  def test_row
+    assert_equal(rio(@f0).rows[0][0],rio(@f0).row[0])
+    assert_equal(rio(@f0).rows[1][0],rio(@f0).row[1])
+    assert_equal(rio(@f0).rows[2][0],rio(@f0).row[2])
+    assert_equal(rio(@f0).rows[3][0],rio(@f0).row[3])
+    assert_equal(rio(@f0).rows[4][0],rio(@f0).row[4])
+    assert_equal(rio(@f0).rows[1..2][0],rio(@f0).row[1])
+    assert_equal(rio(@f0).rows[/t/][0],rio(@f0).row[/t/])
+  end
+
+end