rio 0.3.1

data/test/tc/copy-from.rb

@@ -0,0 +1,183 @@
+#!/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'
+require 'extensions/symbol'
+require 'tc/testcase'
+
+class TC_copyfrom < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+    rio('d0').rmtree.mkpath
+    rio('d1').rmtree.mkpath
+    rio('d0/d2').rmtree.mkpath
+    make_lines_file(1,'d0/f0')
+    make_lines_file(2,'d0/f1')
+    make_lines_file(3,'d1/f2')
+    make_lines_file(4,'d1/f3')
+    make_lines_file(5,'d0/d2/f4')
+    make_lines_file(6,'d0/d2/f5')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @d0 = rio('d0')
+    @d2 = rio('d0/d2')
+  end
+  def cptest(src)
+    dst = rio('dst').delete!.mkpath
+    dst < src.clone
+    assert_rios_equal(src.clone,rio(dst,src.filename),"rio copy")
+  end
+
+  def test_string_file
+    ario = rio('ous').delete!.puts!("If you are seeing this, rio < string is broken")
+    str = "HelloWorld\n"
+    ario < str
+    assert(ario.closed?,"Rio closes after copy-from string")
+    assert_equal(str,ario.slurp)
+    ario << str
+    assert_equal(str+str,ario.slurp)
+  end
+
+  def test_arrayofstrings_file
+    ario = rio('oua').delete!.puts!("If you are seeing this, rio < array is broken")
+    str = "HelloWorld\n"
+    ario < [str]
+    assert_equal(str,ario.slurp)
+    ario << [str]
+    assert_equal(str+str,ario.slurp)
+  end
+
+
+  def test_string_dir
+    ario = rio('oud').delete!.mkdir
+    str = "HelloWorld"
+    drio = rio(str).delete!
+    assert_raise(Errno::ENOENT) { ario < str }
+    drio.touch
+    ario < str
+    assert(rio(ario,str).file?)
+  end
+
+  def test_arrayofstrings_dir
+    $trace_states = false
+    ario = rio('oud').delete!.mkdir
+    str = "HelloWorld"
+    drio = rio(str).delete!
+    assert_raise(Errno::ENOENT) { ario < [str] }
+    drio.touch
+    ario < [str]
+    assert(rio(ario,str).file?)
+    $trace_states = false
+  end
+
+  def test_string_nonex
+    ario = rio('oun').delete!
+    str = "HelloWorld\n"
+    ario < str
+    assert(ario.file?,"Copy from string creates a file")
+    assert_equal(str,ario.slurp)
+  end
+
+  def test_arrayofstrings_nonex
+    ario = rio('oun').delete!
+    str = "HelloWorld\n"
+    ario < [str]
+    assert(ario.file?,"Copy from array of strings creates a file")
+    assert_equal(str,ario.slurp)
+  end
+
+  def test_simple_rio0
+    cptest(rio(@d0))
+  end
+  def test_simple_rio2
+    cptest(rio(@d2))
+  end
+  def test_files_rio
+    cptest(rio(@d0).files('*[04]'))
+  end
+  def test_files_ary
+    dst = rio('dst').delete!.mkpath
+    dst < @d0.files[]
+    @d0.files.each do |ent|
+      assert_rios_equal(ent,rio(dst,ent.filename),"files rio copy")
+    end
+  end
+  def test_io_file
+    ario = rio('out').delete!.touch
+    iof = rio('d0/f1')
+    exp = iof.readlines
+    ios = ::File.new(iof.to_s,'r')
+    #$trace_states = true
+    ario < ios
+    $trace_states = false
+    ios.close
+    ans = ario.readlines
+    assert_equal(exp,ans)
+  end
+  def test_uri_rio_to_file
+    ario = rio('out').delete!.touch
+    url = 'http://localhost/rio/hw.html'
+    urio = rio(url)
+    ario < urio
+    exp = urio.slurp
+    assert_equal(exp,ario.slurp)
+  end
+  def test_uri_rio_to_dir
+    ario = rio('ud').delete!.mkdir
+    url = 'http://localhost/rio/hw.html'
+    urio = rio(url)
+    #$trace_states = true
+    ario < urio
+    $trace_states = false
+    drio = rio(ario,urio.filename)
+    assert(drio.file?)
+    assert(urio.slurp,drio.slurp)
+  end
+  def test_uri_string_to_dir
+    ario = rio('uds').delete!.mkdir
+    url = 'http://localhost/rio/hw.html'
+    urio = rio(url)
+    #$trace_states = true
+    ario < url
+    $trace_states = false
+    drio = rio(ario,urio.filename)
+    assert(drio.file?)
+    assert(urio.slurp,drio.slurp)
+  end
+  def test_url_string_to_file
+    ario = rio('out').delete!.touch
+    url = 'http://localhost/rio/hw.html'
+    ario < url
+    exp = url
+    assert_equal(exp,ario.slurp)
+  end
+  def test_url_array_to_file
+    ario = rio('out').delete!.touch
+    url = 'http://localhost/rio/hw.html'
+    ario < [url]
+    exp = url
+    assert_equal(exp,ario.slurp)
+  end
+  def test_url_string_to_nonex
+    ario = rio('outz').delete!
+    url = 'http://localhost/rio/hw.html'
+    ario < url
+    exp = url
+    assert_equal(exp,ario.slurp)
+  end
+  def test_simple_ary
+    dst = rio('dst').delete!.mkpath
+    dst < @d0[]
+    assert_rios_equal(@d0,dst,"simple rio copy")
+  end
+end

data/test/tc/copy-to.rb

@@ -0,0 +1,94 @@
+#!/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'
+require 'extensions/symbol'
+require 'tc/testcase'
+
+class TC_copy_to < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+
+    rio('d0').rmtree.mkpath
+    rio('d1').rmtree.mkpath
+    rio('d0/d2').rmtree.mkpath
+    make_lines_file(1,'d0/f0')
+    make_lines_file(2,'d0/f1')
+    make_lines_file(3,'d1/f2')
+    make_lines_file(4,'d1/f3')
+    make_lines_file(5,'d0/d2/f4')
+    make_lines_file(6,'d0/d2/f5')
+  end
+  def setup
+    super
+    self.class.once unless @@once
+
+    @d0 = rio('d0')
+    @d1 = rio('d1')
+    @d2 = rio('d0/d2')
+  end
+  def test_string
+    ario = rio('d0/f1')
+    exp = ario.slurp
+    ans = "If you are seeing this, rio > string is broken"
+    ario > ans
+    assert_equal(exp,ans)
+    ario >> ans
+    assert_equal(exp+exp,ans)
+  end
+  def test_string_dir
+    ario = rio(@d0)
+    name = "GoofyGoofyGoofy"
+    rio(name).delete!
+    ario > name
+    assert_rios_equal(ario,rio(name))
+  end
+  def test_io_file
+    ario = rio('d0/f1')
+    iof = rio('anio').delete!
+    exp = ario.readlines
+    ios = ::File.new(iof.to_s,'w')
+    #$trace_states = true
+    ario > ios
+    $trace_states = false
+    ios.close
+    ans = rio(iof).readlines
+    assert_equal(exp,ans)
+  end
+  def test_io_file_f
+    ario = rio('out').delete!.touch
+    iof = rio('d0/f1')
+    exp = iof.readlines
+    ios = ::File.new(iof.to_s,'r')
+    #$trace_states = true
+    ario < ios
+    $trace_states = false
+    ios.close
+    ans = ario.readlines
+    assert_equal(exp,ans)
+  end
+  def test_array_file
+    ario = rio('d0/f1')
+    exp = ario.readlines
+    ans = ["If you are seeing this, rio > array is broken"]
+    ario > ans
+    assert_equal(exp,ans)
+    ario >> ans
+    assert_equal(exp+exp,ans)
+  end
+  def test_array_dir
+    ario = rio(@d0)
+    exp = @d0.to_a
+    ans = ["If you are seeing this, rio > array is broken"]
+    ario > ans
+    assert_equal(exp,ans)
+    ario >> ans
+    assert_equal(exp+exp,ans)
+  end
+end

data/test/tc/copy.rb

@@ -0,0 +1,72 @@
+#!/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'
+
+#require 'tc_myfirsttests'
+#require 'tc_moretestsbyme'
+#require 'ts_anothersetoftests'
+
+class TC_RIO_copy < Test::Unit::TestCase
+  def test_copy
+    require 'rio'
+    datadir = rio('qp/test_copy').rmtree.mkpath
+    inline = "Source Stuff\n"
+    src = rio(datadir,'src')
+    src.print(inline)
+    src.close
+    src = rio(datadir,'src')
+    dst1 = rio(datadir,'dst1')
+    src > dst1
+    dst2 = rio(datadir,'dst2').mkdir
+    src > dst2
+    sline = rio(datadir,'src').readline
+    l1 = rio(datadir,'dst1').readline
+    l2 = rio(datadir,'dst2/src').readline
+    assert_equal(inline,sline,'a message in a assertion')
+    assert_equal(inline,l1)
+    assert_equal(inline,l2)
+
+    # copy directories
+    sd1 = rio(datadir,'dir1/sd1').rmtree.mkpath
+    txt = "Hello f1.txt"
+    sd1.join('f1.txt').puts(txt).close
+    oline = rio(datadir,'dir1/sd1/f1.txt').readline
+
+    dir2 = rio(datadir,'dir2').rmtree.mkpath
+    sd1.copy(dir2)
+    nline = rio(datadir,'dir2/sd1/f1.txt').readline
+    assert_equal(oline,nline)
+    
+    dir2 = rio(datadir,'dir2').rmtree.mkpath
+    sd1 > dir2
+    nline = rio(datadir,'dir2/sd1/f1.txt').readline
+    assert_equal(oline,nline)
+    
+    dir2 = rio(datadir,'dir2').rmtree.mkpath
+    dir2 < rio(datadir,'dir1/sd1')
+    nline = rio(datadir,'dir2/sd1/f1.txt').readline
+    assert_equal(oline,nline)
+    
+    dir2 = rio(datadir,'dir2').rmtree.mkpath
+    sd1 > dir2.to_s
+    nline = rio(datadir,'dir2/sd1/f1.txt').readline
+    assert_equal(oline,nline)
+    
+    dir2 = rio(datadir,'dir2').rmtree.mkpath
+    dir2 < rio(datadir,'dir1/sd1').to_s
+    nline = rio(datadir,'dir2/sd1/f1.txt').readline
+    assert_equal(oline,nline)
+    
+  end
+end
+__END__
+require 'test/unit/ui/console/testrunner'
+#Test::Unit::UI::Console::TestRunner.run(TC_RIO,Test::Unit::UI::SILENT)
+#Test::Unit::UI::Console::TestRunner.run(TC_RIO,Test::Unit::UI::PROGRESS_ONLY)
+#Test::Unit::UI::Console::TestRunner.run(TC_RIO_copy,Test::Unit::UI::NORMAL)
+Test::Unit::UI::Console::TestRunner.run(TC_RIO_copy,Test::Unit::UI::VERBOSE)

data/test/tc/copyarray.rb

@@ -0,0 +1,191 @@
+#!/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'
+require 'extensions/symbol'
+require 'tc/testcase'
+
+class TC_copyarray < Test::Unit::TestCase
+  @@once = false
+  include RIO_TestCase
+  def setup()
+    super
+    unless @@once
+      @@once = true
+      rio('a').rmtree.mkpath
+      rio('b').rmtree.mkpath
+      lines_file(3,'a/f0')
+      lines_file(2,'a/f1')
+    end
+    @d = []; @f = []; @l = [];
+    @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
+  end
+  def test_copyto_dir
+    out = rio('out').delete!.mkpath
+    out < @f[0]
+    assert(out.directory?)
+    assert(@f[0].closed?)
+    of = rio(out,@f[0].basename)
+    assert_equal(@l[0],of[])
+  end
+  def test_copyto_dir_a
+    out = rio('out').delete!.mkpath
+    out < @f
+    assert(out.directory?)
+    assert(@f[0].closed?)
+    assert(@f[1].closed?)
+    of = []
+    of[0] = rio(out,@f[0].basename)
+    of[1] = rio(out,@f[1].basename)
+    assert(of[0].file?)
+    assert(of[1].file?)
+    assert_equal(@l[0],of[0].to_a)
+    assert_equal(@l[1],of[1].to_a)
+  end
+  def test_copyto_dir_files
+    out = rio('out').delete!.mkpath
+    out < @d[0].files[]
+    assert(out.directory?)
+    assert(@f[0].closed?)
+    assert(@f[1].closed?)
+    of = []
+    of[0] = rio(out,@f[0].basename)
+    of[1] = rio(out,@f[1].basename)
+    assert(of[0].file?)
+    assert(of[1].file?)
+    assert_equal(@l[0],of[0].to_a)
+    assert_equal(@l[1],of[1].to_a)
+  end
+  def test_copyto_dir_dir_array
+#  p 'test_copyto_dir'
+    @d[1] < @d[0]
+    @d[1] < @d[0].files[]
+    assert_equal(@l[0],rio(@d[1],@f[0].basename).lines[])
+    assert_equal(@l[1],rio(@d[1],@f[1].basename).lines[])
+    assert_equal(@l[0],rio(@d[1],@f[0]).lines[])
+    assert_equal(@l[1],rio(@d[1],@f[1]).lines[])
+
+    out = rio('out').delete!.mkpath
+    assert(out[].empty?)
+    out < @d[1].entries[]
+    assert_equal(@l[0],rio(out,@f[0].basename).lines[])
+    assert_equal(@l[1],rio(out,@f[1].basename).lines[])
+    assert_equal(@l[0],rio(out,@f[0]).lines[])
+    assert_equal(@l[1],rio(out,@f[1]).lines[])
+
+    out = rio('out').delete!.mkpath
+    assert(out[].empty?)
+    out < @d[1].to_a
+    assert_equal(@l[0],rio(out,@f[0].basename).lines[])
+    assert_equal(@l[1],rio(out,@f[1].basename).lines[])
+    assert_equal(@l[0],rio(out,@f[0]).lines[])
+    assert_equal(@l[1],rio(out,@f[1]).lines[])
+
+    out = rio('out').delete!.mkpath
+    assert(out[].empty?)
+    out < @d[1][]
+    assert_equal(@l[0],rio(out,@f[0].basename).lines[])
+    assert_equal(@l[1],rio(out,@f[1].basename).lines[])
+    assert_equal(@l[0],rio(out,@f[0]).lines[])
+    assert_equal(@l[1],rio(out,@f[1]).lines[])
+
+    out = rio('out').delete!.mkpath
+    assert(out[].empty?)
+    inputdir = rio(@d[1])
+    out < inputdir[]
+    assert_equal(@l[0],rio(out,@f[0].basename).lines[])
+    assert_equal(@l[1],rio(out,@f[1].basename).lines[])
+    assert_equal(@l[0],rio(out,@f[0]).lines[])
+    assert_equal(@l[1],rio(out,@f[1]).lines[])
+
+    out = rio('out').delete!.mkpath
+    assert(out[].empty?)
+    inputdir = rio(@d[1])
+    out < inputdir[].map(&:to_s)
+    assert_equal(@l[0],rio(out,@f[0].basename).lines[])
+    assert_equal(@l[1],rio(out,@f[1].basename).lines[])
+    assert_equal(@l[0],rio(out,@f[0]).lines[])
+    assert_equal(@l[1],rio(out,@f[1]).lines[])
+
+  end
+  def test_copyto_nonex_array_lines
+#  p 'test_copyto_dir'
+    @d[1] < @d[0]
+    @d[1] < @d[0].files[]
+    assert_equal(@l[0],rio(@d[1],@f[0].basename).lines[])
+    assert_equal(@l[1],rio(@d[1],@f[1].basename).lines[])
+    assert_equal(@l[0],rio(@d[1],@f[0]).lines[])
+    assert_equal(@l[1],rio(@d[1],@f[1]).lines[])
+
+    out = rio('out').delete!
+    assert!(out.exist?)
+    out < rio(@d[1]).lines[1]
+    assert_equal([@l[0][1],@l[1][1]],out[])
+
+    out = rio('out').delete!
+    assert!(out.exist?)
+    out < rio(@d[1]).all.lines[1]
+    assert_equal([@l[0][1],@l[1][1]] * 2,out[])
+
+  end
+  def test_copyto_file_array_lines
+#  p 'test_copyto_dir'
+    # FIX THIS CRAP
+    @d[1] < @d[0]
+    @d[1] < @d[0].files[]
+    assert_equal(@l[0],rio(@d[1],@f[0].basename).lines[])
+    assert_equal(@l[1],rio(@d[1],@f[1].basename).lines[])
+    assert_equal(@l[0],rio(@d[1],@f[0]).lines[])
+    assert_equal(@l[1],rio(@d[1],@f[1]).lines[])
+
+    out = rio('out').delete!.touch
+    assert(out.exist?)
+    out < rio(@d[1]).lines[1]
+    assert_equal([@l[0][1],@l[1][1]],out[])
+
+    out = rio('out').delete!.touch
+    assert(out.exist?)
+    out < rio(@d[1]).all.lines[1]
+    assert_equal([@l[0][1],@l[1][1]] * 2,out[])
+
+  end
+  def test_copyto_nonex
+#  p 'test_copyto_nonex'
+    out = rio('out').delete!
+    out < @f[0]
+ #   p @f[0]
+    assert(out.file?)
+    assert(out.closed?)
+    assert(@f[0].closed?)
+    assert_equal(@l[0],out[])
+  end
+  def test_copyto_nonex_array
+    out = rio('out').delete!
+    #$trace_states = true
+    out < @f
+    $trace_states = false
+    assert(out.directory?)
+    assert_equal(smap(@f.map { |el| el.rel(@d[0]) }),smap(out.map { |el| el.rel(out) }))
+    assert_equal(@l[0],rio(out,@f[0].filename).to_a)
+    assert_equal(@l[1],rio(out,@f[1].filename).to_a)
+    #assert_equal(@l[0]+@l[1],out[])
+  end
+  def test_copyto_nonex_file_lines
+  #p 'test_copyto_nonex_a'
+    out = rio('out').delete!
+    out < @d[0].files.lines
+    assert(out.file?)
+    assert(out.closed?)
+    assert_equal(@l[0]+@l[1],out[])
+  end
+end