wishdev-rio 0.4.3.1

data/test/tc/symlink1.rb

@@ -0,0 +1,114 @@
+#!/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_symlink1 < Test::Unit::TestCase
+  def assert!(a,msg="negative assertion")
+    assert((!(a)),msg)
+  end
+  def smap(a) a.map { |el| el.to_s } end
+  def tdir() rio(%w/qp symlink1/) 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_lstat
+    rio('lstat').delete!.mkpath.chdir
+
+    file = mkalinesfile(100,'f0').symlink( link = rio('l0') )
+    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
+  def test_stream
+    rio('stream').delete!.mkpath.chdir
+
+    file = mkalinesfile(10,'f0').symlink( link = rio('l0') )
+    assert(file.file?)
+    assert(link.file?)
+    assert(link.symlink?)
+    lines = file[]
+
+    rl = link.readlink
+    assert(link.file?)
+    assert(link.symlink?)
+    assert_equal(lines[0],link.getrec)
+    assert(link.open?)
+
+    assert_equal(rl.to_s,link.readlink.to_s)
+    assert(link.open?)
+    assert_equal(lines[1],link.getrec)
+    
+    link.lstat
+    assert(link.open?)
+    assert_equal(lines[2],link.getrec)
+    
+    link.stat
+    assert(link.open?)
+    assert_equal(lines[3],link.getrec)
+
+    link.delete
+    assert(link.closed?)
+    assert!(link.exist?)
+    assert!(link.symlink?)
+
+    rio('..').chdir
+  end
+  def test_readlink
+    rio('readlink').delete!.mkpath.chdir
+
+    file = mkafile('f0').symlink( link = rio('l0') )
+    assert(file.file?)
+    assert(link.file?)
+    assert(link.symlink?)
+
+    assert_equal(file,link.readlink)
+    assert_not_equal(file,link)
+    assert_raise(RIO::Exception::CantHandle) {
+      file.readlink
+    }
+
+    rio('..').chdir
+  end
+  def test_ftype
+    rio('ftype').delete!.mkpath.chdir
+
+    file = mkafile('f0').symlink( link = rio('l0') )
+    assert(file.file?)
+    assert(link.file?)
+    assert(link.symlink?)
+
+    assert_equal('file',file.ftype)
+    assert_equal('link',link.ftype)
+
+    rio('..').chdir
+  end
+end

data/test/tc/synopsis.rb

@@ -0,0 +1,75 @@
+#!/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_synopsis < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('adir').rmtree.mkpath.chdir {
+      rio('f1.rb') < (0..6).map { |i| "L#{i}:adir/f1\n" }
+      rio('f2.rb') < (0..6).map { |i| "L#{i}:adir/f2\n" }
+      rio('d1').mkdir.chdir {
+        rio('g1.rb') < (0..20).map { |i| "L#{i}:adir/d1/g1\n" }
+        rio('g2.rb') < (0..20).map { |i| "L#{i}:adir/d1/g2\n" }
+      }
+      if $supports_symlink
+        rio('f1.rb').symlink('l1.rb')
+        rio('f2.rb').symlink('l2.rb')
+      end
+    }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+
+  def test_iter1
+    exp = %w[f1 f2 l1 l2].map{|fb| rio('adir',fb +'.rb')}
+    ans = []
+    rio('adir').files('*.rb') { |ent| ans << ent }
+    assert_equal(exp,ans)
+  end
+  def test_ary1
+    exp = %w[f1 f2 l1 l2].map{|fb| rio('adir',fb +'.rb')}
+    ans = rio('adir').files['*.rb']
+    assert_equal(exp,ans)
+  end
+
+  def test_cp1
+    exp = %w[f1 f2 l1 l2].map{|fb| rio('bdir',fb +'.rb')}
+    rio('adir').files('*.rb') > rio('bdir').delete!
+    assert_equal(smap(exp),smap(rio('bdir').to_a))
+  end
+  def test_iter2
+    exp = %w[d1/g1 d1/g2 f1 f2 l1 l2].map{|fb| rio('adir',fb +'.rb')}
+    ans = []
+    rio('adir').all.files('*.rb') { |ent| ans << ent }
+    assert_equal(smap(exp),smap(ans))
+  end
+
+  def test_ary2
+    exp = %w[d1/g1 d1/g2 f1 f2 l1 l2].map{|fb| rio('adir',fb +'.rb')}
+    ans = rio('adir').all.files['*.rb']
+    assert_equal(smap(exp),smap(ans))
+  end
+
+  def test_gziplines
+    rio('gz1.rb.gz').gzip < rio('adir','f1.rb')
+    rio('gz1.rb.gz').gzip > rio('o.rb')
+    exp = (0..6).map { |i| "L#{i}:adir/f1\n" }
+    assert_equal(exp,rio('o.rb').to_a)
+    ans = rio('gz1.rb.gz').gzip[0..2]
+    assert_equal(exp[0..2],ans)
+  end
+  def test_ary_skip_symlink
+    exp = %w[f1 f2].map{|fb| rio('adir',fb +'.rb')}
+    ans = rio('adir').files('*.rb').skip[:symlink?]
+    assert_equal(exp,ans)
+  end
+end

data/test/tc/temp.rb

@@ -0,0 +1,152 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'tmpdir'
+
+class TC_temp < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @tmpdir = ::Dir::tmpdir
+    @pfx = 'rio'
+  end
+
+  def pathinfo(ario)
+    [:scheme,:opaque,:path,:fspath,:to_s,:to_url,:to_uri].each do |sym|
+      puts "#{sym}: #{ario.__send__(sym)}"
+    end
+  end
+
+  def test_new
+    tmp = rio(??)
+    assert_equal('temp',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+  end
+
+  def test_dir
+    tmp = rio(??).mkdir
+    assert(tmp.dir?)
+    assert_equal('file',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_dir_chdir
+    rio(??).chdir { |tmp|
+      assert(tmp.dir?)
+      assert_equal('path',tmp.scheme)
+      assert_equal('.',tmp.dirname.to_s)
+      assert_equal('.',tmp.filename.to_s)
+      tmp.close
+    }
+  end
+#   def test_dir_chdir2
+#     tmp = rio(??).chdir 
+#     assert(tmp.dir?)
+#     assert_equal('path',tmp.scheme)
+#     assert_equal('.',tmp.dirname.to_s)
+#     assert_equal('.',tmp.filename.to_s)
+#     tmp.close
+#   end
+  def test_dir_mkdir
+    tmp = rio(??).mkdir
+    assert(tmp.dir?)
+    assert_equal('file',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_file
+    tmp = rio(??).file
+    assert(tmp.file?)
+    assert_equal('file',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_dir_prefix
+    tmp = rio(??,'zippy').mkdir
+    assert(tmp.dir?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_prefix
+    tmp = rio(??,'zippy').file
+    assert(tmp.file?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_dir_tmpdir
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio(??,'zippy','riotmpdir').mkdir
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_tmpdir
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio(??,'zippy','riotmpdir').file
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_dir_prefix_url
+    tmp = rio('temp:zippy').mkdir
+    assert_match(/^zippy/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_file_prefix_url
+    tmp = rio('temp:zippy').file
+    assert_match(/^zippy/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_dir_tmpdir_url
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio('temp:riotmpdir/zippy').mkdir
+    assert(tmp.dir?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_tmpdir_url
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio('temp:riotmpdir/zippy').file
+    assert(tmp.file?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_write
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio('temp:riotmpdir/zippy')
+    tmp.puts("Hello Tempfile")
+    assert(tmp.file?)
+    assert(tmp.open?)
+    tmp.close
+  end
+
+
+end

data/test/tc/tempdir.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'
+require 'tmpdir'
+
+class TC_tempdir < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @tmpdir = ::Dir::tmpdir
+    @pfx = 'rio'
+  end
+
+  def pathinfo(ario)
+    [:scheme,:opaque,:path,:fspath,:to_s,:to_url,:to_uri].each do |sym|
+      puts "#{sym}: #{ario.__send__(sym)}"
+    end
+  end
+
+  def test_new
+    tmpdir = rio('tempdir:')
+    assert(tmpdir.dir?)
+    assert_equal(::Dir::tmpdir,tmpdir.dirname.to_s)
+  end
+
+  def test_prefix
+    tmpdir = rio('tempdir:','zippy')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+  end
+
+  def test_tmpdir
+    rio('riotmpdir').delete!.mkdir
+    tmpdir = rio('tempdir:','zippy','riotmpdir')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+    assert_match('riotmpdir',tmpdir.dirname.to_s)
+  end
+
+  def test_prefix_url
+    tmpdir = rio('tempdir:zippy')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+  end
+
+  def test_tmpdir_url
+    rio('riotmpdir').delete!.mkdir
+    tmpdir = rio('tempdir:riotmpdir/zippy')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+    assert_match('riotmpdir',tmpdir.dirname.to_s)
+  end
+
+
+end

data/test/tc/tempfile.rb

@@ -0,0 +1,66 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'tmpdir'
+
+class TC_tempfile < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @tmpdir = ::Dir::tmpdir
+    @pfx = 'rio'
+  end
+
+  def pathinfo(ario)
+    [:scheme,:opaque,:path,:fspath,:to_s,:to_url,:to_uri].each do |sym|
+      puts "#{sym}: #{ario.__send__(sym)}"
+    end
+  end
+
+  def test_io
+    str = "Hello Tempfile"
+    assert_equal(str,rio(??).puts(str).rewind.chomp.gets)
+  end
+
+  def test_rl_temp
+    str = "Hello Tempfile"
+    tmp = rio('temp:')
+    assert(tmp.closed?)
+    assert_equal(str,tmp.puts(str).rewind.chomp.gets)
+  end
+
+  def test_rl_tempfile
+    str = "Hello Tempfile"
+    #$trace_states = true
+    tmp = rio('tempfile:')
+    assert(tmp.closed?)
+    tmp.puts(str)
+    assert(tmp.open?)
+    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