wishdev-rio 0.4.3.1

data/test/tc/route.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_route < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def test_rf_file
+    a = rio("file://ahost/a/")
+    extra = rio('b')/'c'
+    c = a/extra
+    rf = c.route_from(a)
+    assert_equal(extra,rf)
+    assert_equal(c,rf.abs)
+  end
+  def test_rf_drive
+    a = rio("q:/a/")
+    extra = rio('b')/'c'
+    c = a/extra
+    rf = c.route_from(a)
+    assert_equal(extra,rf)
+    assert_equal(c,rf.abs)
+  end
+  def test_rt_file
+    a = rio("file://ahost/a/")
+    extra = rio('b')/'c'
+    c = a/extra
+    r = a.route_to(c)
+    assert_equal(extra,r)
+    assert_equal(c,r.abs)
+  end
+  def test_rf_http
+    a = rio("http://ahost/a/")
+    extra = rio('b')/'c'
+    c = rio(a,extra)
+    rf = c.route_from(a)
+    assert_equal(extra,rf)
+    assert_equal(c,rf.abs)
+  end
+end

data/test/tc/selnosel.rb

@@ -0,0 +1,33 @@
+#!/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_selnosel < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('dir').delete!.mkpath.chdir {
+      rio('f1').touch
+      rio('f2').touch
+      rio('g1').touch
+      rio('g2').touch
+    }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @dir = rio('dir')
+  end
+
+  def test_selnosel
+    ario = @dir.files('f*').skipfiles(/1/,:symlink?)
+    ans = ario.to_a
+    assert_equal(%w[dir/f2],smap(ans))
+  end
+end

data/test/tc/skip.rb

@@ -0,0 +1,89 @@
+#!/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_skip < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('d0').rmtree.mkpath.chdir {
+      rio('f1') < (0..1).map { |i| "L#{i}:d0/f1\n" }
+      rio('f2') < (0..1).map { |i| "L#{i}:d0/f2\n" }
+      rio('g1') < (0..20).map { |i| "L#{i}:d0/g1\n" }
+      rio('g2') < (0..20).map { |i| "L#{i}:d0/g2\n" }
+      if $supports_symlink
+        rio('x1').symlink('n1')
+        rio('x2').symlink('n2')
+        rio('f1').symlink('l1')
+        rio('f2').symlink('l2')
+        rio('d1').symlink('c1')
+        rio('d2').symlink('c2')
+      end
+    }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @d0 = rio('d0')
+    @g1 = @d0/'g1'
+    @g2 = @d0/'g2'
+  end
+
+  def test_ent_prefix_files
+    exprio = rio(@d0).skipfiles(/1/)
+    ansrio = rio(@d0).skip.files(/1/)
+    assert_equal(smap(exprio[]),smap(ansrio[]))
+  end
+  def test_ent_prefix_dirs
+    exprio = rio(@d0).skipdirs(/1/)
+    ansrio = rio(@d0).skip.dirs(/1/)
+    assert_equal(exprio[],ansrio[])
+  end
+  def test_ent_prefix_entries
+    exprio = rio(@d0).skipentries(/1/)
+    ansrio = rio(@d0).skip.entries(/1/)
+    assert_equal(exprio[],ansrio[])
+  end
+  def test_ent_alone
+    exprio = rio(@d0).skipentries(/1/)
+    ansrio = rio(@d0).skip(/1/)
+    assert_equal(exprio[],ansrio[])
+  end
+  def test_ent_alone_a
+    exp = rio(@d0).skipentries[/1/]
+    ans = rio(@d0).skip[/1/]
+    assert_equal(exp,ans)
+  end
+  def test_ent_postfix_a
+    exp = rio(@d0).files(/1/).skipfiles[:symlink?]
+    ans = rio(@d0).files(/1/).skip[:symlink?]
+    
+    assert_equal(exp,ans)
+  end
+  def test_rec_prefix_a
+    exp = rio(@g2).skiplines[/1/]
+    ans = rio(@g2).skip.lines[/1/]
+    
+    assert_equal(exp,ans)
+  end
+  def test_rec_postfix_a
+    exp = rio(@g1).lines[/2/]
+    #p exp
+    exp = rio(@g1).records(/2/).skip[/L2/]
+    #p exp
+#    ans = rio(@g1).lines(/2/).skip[0..5]
+#    p ans
+    
+#    assert_equal(exp,ans)
+  end
+  def test_prefix_atend
+#    exprio = rio(@d0).skipentries(/1/)
+    ansrio = rio(@d0).skip[]
+#    assert_equal(exprio[],ansrio[])
+  end
+end

data/test/tc/skiplines.rb

@@ -0,0 +1,71 @@
+#!/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_skiplines < Test::RIO::TestCase
+  @@once = false
+  N_LINES = 25
+  def self.once
+    @@once = true
+    #rio('f1') < (0...N_LINES).map { |i| "L#{i}:f1" + $/ }
+    rio('f2') < (0...N_LINES).map { |i| "L#{i}:f2" + $/ }
+    #rio('g1') < (0...N_LINES).map { |i| "L#{i}:g1" + $/ }
+    #rio('g2') < (0...N_LINES).map { |i| "L#{i}:g2" + $/ }
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    
+    @lines = {}
+    #%w[f1 f2 g1 g2].each do |fname|
+    %w[f2].each do |fname|
+      @lines[fname] = rio(fname).to_a
+    end
+  end
+
+  def test_basic
+    fname = 'f2'
+
+    re = /1/
+    exp = @lines[fname].reject{ |l| l =~ re }
+
+    ans = []
+    rio(fname).skiplines(re) { |l| ans << l }
+    assert_equal(exp,ans,"skiplines using #each with regular expression")
+    ans = rio(fname).skiplines[re]
+    assert_equal(exp,ans,"skiplines using array operator with regular expression")
+
+    rng = (2..9)
+
+    exp = @lines[fname][0..rng.first-1] + @lines[fname][rng.last+1...N_LINES]
+
+    ans = []
+    rio(fname).skiplines(rng) { |l| ans << l }
+    assert_equal(exp,ans,"skiplines using #each with line range")
+    ans = rio(fname).skiplines[rng]
+    assert_equal(exp,ans,"skiplines using array operator with line range")
+    
+
+  end
+  def test_prefix_lines
+#    exprio = rio(@d0).skipfiles(/1/)
+#    ansrio = rio(@d0).skip.files(/1/)
+    r = rio('f1').skip.lines(1)
+#    p r.cx
+#    p r.to_a
+#    assert_equal(smap(exprio[]),smap(ansrio[]))
+  end
+  def test_skip_param
+#    exprio = rio(@d0).skipfiles(/1/)
+#    ansrio = rio(@d0).skip.files(/1/)
+    r = rio('f1').lines(/^L/).skip(1..2)
+#    p r.to_a
+#    assert_equal(smap(exprio[]),smap(ansrio[]))
+  end
+
+end

data/test/tc/split.rb

@@ -0,0 +1,28 @@
+#!/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_split < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def test_type
+    rtn = rio('a/b/c').split
+    assert_kind_of(::Array,rtn)
+    for el in rtn
+      assert_kind_of(RIO::Rio,el)
+    end
+    rtn = rio('hw.txt')
+    assert_kind_of(RIO::Rio,rtn)
+  end
+end

data/test/tc/splitlines.rb

@@ -0,0 +1,65 @@
+#!/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_splitlines < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @str = "a,b,c,d\n"
+    @infile = rio('infile') < @str * 3
+  end
+  def test_get
+    ans = rio(@infile).split(',').get
+    exp = @str.split(',')
+    assert_equal(exp,ans)
+    ans = rio(@infile).chomp.split(',').get
+    exp = @str.chop
+    exp = exp.split(',')
+    assert(exp,ans)
+  end
+  def test_each
+    exp = @str.chomp.split(',')
+    @infile.chomp.split(',') { |ary|
+      assert_equal(exp,ary)
+    }
+  end
+  def test_copy_array_in
+    expstr = @str.chomp.split(',').join(':')
+    exp = rio(?").puts(expstr).puts(expstr).puts!(expstr)
+    aoa = rio(@infile).split(',')[]
+    rio('ans').split(':') < aoa
+    ans = rio('ans')
+    assert_equal(exp.chomp[],ans.chomp[])
+  end
+  def test_copy_array_out
+    expary = @str.chomp.split(',')
+    exp = [expary,expary,expary]
+    aoa = []
+    rio(@infile).chomp.split(',') > aoa
+    assert_equal(exp,aoa)
+  end
+  def test_copy_left
+    expstr = @str.chomp.split(',').join(':')
+    exp = rio(?").puts(expstr).puts(expstr).puts!(expstr)
+    rio('ans').split(':') < rio(@infile).split(',')
+    ans = rio('ans')
+    assert_equal(exp.chomp[],ans.chomp[])
+  end
+  def test_copy_right
+    expstr = @str.chomp.split(',').join(':')
+    exp = rio(?").puts(expstr).puts(expstr).puts!(expstr)
+    rio(@infile).split(',') > rio('ans').split(':')
+    ans = rio('ans')
+    assert_equal(exp.chomp[],ans.chomp[])
+  end
+end

data/test/tc/splitpath.rb

@@ -0,0 +1,83 @@
+#!/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_splitpath < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def test_basic
+    r = rio('b/c/d')
+    ary = r.split
+    assert_equal([rio('b'),rio('c'),rio('d')],ary)
+    assert_equal(r,ary.to_rio)
+  end
+  def test_abs_ne
+    r = rio('/a/b/c/d')
+    ary = r.split
+    assert_equal([rio('/'),rio('a'),rio('b'),rio('c'),rio('d')],ary)
+    assert_equal(r,ary.to_rio)
+    assert_equal(rio('d'),ary[-1])
+    assert_equal(r,ary[-1].abs)
+    assert_equal(ary[-1].abs.dirname,ary[-2].abs)
+    assert_equal(ary[-2].abs.dirname,ary[-3].abs)
+  end
+  def test_abs_drive
+    return unless $mswin32
+    r = rio('q:/a/b')
+    ary = r.split
+    exp = [rio('q:/'),rio('a'),rio('b')]
+    assert_equal(exp,ary)
+    assert_equal(r,ary.to_rio)
+    assert_equal(rio('b'),ary[-1])
+    assert_equal(r,ary[-1].abs)
+    assert_equal(ary[-1].abs.dirname.to_s,ary[-2].abs.to_s)
+    assert_equal(ary[-2].abs.dirname.to_s,ary[-3].abs.to_s)
+  end
+  def test_abs_host
+    r = rio('//ahost/a/b/c')
+    ary = r.split
+    exp = [rio('file://ahost/'),rio('a'),rio('b'),rio('c')]
+    #p "ary=#{ary.inspect} exp=#{exp.inspect}"
+    assert_equal(exp,ary)
+    assert_equal(r,ary.to_rio)
+    assert_equal(rio('c'),ary[-1])
+    assert_equal(r,ary[-1].abs)
+    #p ary[-1].abs
+    #p ary[-1].abs.dirname
+    assert_equal(ary[-1].abs.dirname.to_s,ary[-2].abs.to_s)
+    assert_equal(ary[-2].abs.dirname.to_s,ary[-3].abs.to_s)
+  end
+  def test_abs_url
+    r = rio('file://ahost/a/b/c')
+    ary = r.split
+    exp = [rio('file://ahost/'),rio('a'),rio('b'),rio('c')]
+    assert_equal(exp,ary)
+    assert_equal(r,ary.to_rio)
+    assert_equal(rio('c'),ary[-1])
+    assert_equal(r,ary[-1].abs)
+    assert_equal(ary[-1].abs.dirname.to_s,ary[-2].abs.to_s)
+    assert_equal(ary[-2].abs.dirname,ary[-3].abs)
+  end
+  def test_rel
+    r = rio('a/b/c')
+    ary = r.split
+    exp = [rio('a'),rio('b'),rio('c')]
+    assert_equal(exp,ary)
+    assert_equal(r,ary.to_rio)
+    assert_equal(rio('c'),ary[-1])
+    assert_equal(r.abs,ary[-1].abs)
+    assert_equal(ary[-1].abs.dirname,ary[-2].abs)
+    assert_equal(ary[-2].abs.dirname,ary[-3].abs)
+  end
+end

data/test/tc/sub.rb

@@ -0,0 +1,46 @@
+#!/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_sub < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+    rio('a').rmtree.mkpath
+    rio('b').rmtree.mkpath
+    make_lines_file(3,'a/f0')
+    make_lines_file(2,'a/f1')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @l = []; @f = []; @d = []
+    @d[0] = rio('a')
+    @d[1] = rio('b')
+    @f[0] = rio('a/f0')
+    @f[1] = rio('a/f1')
+    @l[0] = @f[0].readlines
+    @l[1] = @f[1].readlines
+    @d[1] < @d[0]
+    @d[1] < @d[0].files[]
+  end
+  def test_basic
+    ario = rio('apath')
+    p ario
+
+    ans = ario.sub(/^a/,'b')
+    assert_kind_of(RIO::Rio,ans)
+    assert_not_same(ario,ans)
+    assert_equal(rio('bpath'),ans)
+
+    ans = ario.sub!(/^a/,'b')
+    assert_kind_of(RIO::Rio,ans)
+    assert_same(ario,ans)
+    assert_equal(rio('bpath'),ans)
+  end
+end