wishdev-rio 0.4.3.1

data/test/bin/count_lines.rb

@@ -0,0 +1,11 @@
+#!/usr/local/bin/ruby
+
+# reads from standard input and writes the number
+# of lines to standard output
+# used to test cmdpipe Rios
+
+$:.unshift File.expand_path(File.dirname(__FILE__)+'/../../lib/')
+
+require 'rio'
+rio(?-).puts(rio(?-)[].size)
+

data/test/bin/find_lines.rb

@@ -0,0 +1,13 @@
+#!/usr/local/bin/ruby
+
+# reads from standard input and writes the number
+# of lines to standard output
+# used to test cmdpipe Rios
+
+$:.unshift File.expand_path(File.dirname(__FILE__)+'/../../lib/')
+require 'rio'
+
+search_re = ARGV.shift
+print rio(?-).lines[/#{search_re}/]
+
+

data/test/bin/list_dir.rb

@@ -0,0 +1,14 @@
+#!/usr/local/bin/ruby
+
+# reads from standard input and writes the number
+# of lines to standard output
+# used to test cmdpipe Rios
+
+$:.unshift File.expand_path(File.dirname(__FILE__)+'/../../lib/')
+require 'rio'
+
+dir = ARGV.shift || '.'
+rio(dir).chdir {
+  puts rio[]
+}
+

data/test/ftp/all.rb

@@ -0,0 +1,9 @@
+require 'test/unit'
+require 'tc/testcase'
+
+#require 'tc/yaml'
+require 'ftp/anon_read'
+require 'ftp/anon_write'
+require 'ftp/anon_misc'
+require 'ftp/anon_special'
+require 'ftp/ftp2ftp'

data/test/ftp/anon_copy_data.rb

@@ -0,0 +1,36 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'open-uri'
+require 'ftp/testdef'
+
+class TC_ftp_copy_data < Test::RIO::TestCase
+  @@once = false
+  include Test::RIO::FTP::Const
+
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    FS_RWROOT.entries { |ent| ent.delete! }
+  end
+
+  def test_copy_string
+    exp = "a string\n"
+    ario = rio(FTP_RWROOT,'file0') < exp
+    assert_equal(exp,ario.contents)
+  end
+  def test_copy_array
+    exp = (0..1).map{|n| "Line #{n}\n"}
+    ario = rio(FTP_RWROOT,'file0') < exp
+    assert_equal(exp,ario[])
+  end
+end
+

data/test/ftp/anon_misc.rb

@@ -0,0 +1,124 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'open-uri'
+require 'ftp/testdef'
+
+class TC_ftp_anon_misc < Test::RIO::TestCase
+  @@once = false
+  include Test::RIO::FTP::Const
+
+  ALLENTS = [FTP_RWROOT/'f0',d0=FTP_RWROOT/'d0',d0/'f1',d1=d0/'d1',d1/'f2']
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    ALLENTS.reverse.each do |ent|
+      if ent.filename =~ /f/
+        ent.rm
+      else
+        ent.rmdir
+      end
+    end
+    #FS_RWROOT.entries { |ent| ent.delete! }
+  end
+
+  def test_dir
+    ftproot = rio(FTPROOT)
+    ftproot.chdir
+    assert_equal('/',ftproot.getwd)
+    assert_equal(ftproot,ftproot.cwd)
+
+    rwdir = rio(FTP_RWROOT).chdir
+    assert_equal(FTP_RWROOT,rwdir.cwd)
+  end
+  def test_mkdir
+    rwdir = rio(FTP_RWROOT)
+    rio(rwdir,'dir1').rmdir
+    rio(rwdir,'dir0').rmdir
+    rwdir.chdir
+    assert_equal(FTP_RWROOT.to_s,rwdir.cwd.to_s)
+    rio(rwdir,'dir0').mkdir
+    assert_equal(smap([FTP_RWROOT/'dir0']),smap(FTP_RWROOT.entries[/^dir/]))
+  end
+  def test_rmdir
+    rwdir = rio(FTP_RWROOT)
+    rio(rwdir,'dir1').rmdir
+    rio(rwdir,'dir0').rmdir
+    rio(rwdir,'dir1').mkdir
+    assert_equal(smap([FTP_RWROOT/'dir1']),smap(FTP_RWROOT.entries[/^dir/]))
+    rio(rwdir,'dir1').rmdir
+    assert_equal(smap([]),smap(FTP_RWROOT.entries[/^dir/]))
+  end
+  def test_rm
+    rwdir = rio(FTP_RWROOT)
+    locfile = rio('locfile').touch
+    locfile > rwdir
+    remfile = rwdir/locfile
+    assert(remfile.file?)
+    remfile.delete
+    assert!(remfile.exist?)
+  end
+  def test_rename_file
+    rwdir = rio(FTP_RWROOT)
+    locfile = rio('locfile').touch
+    locfile > rwdir
+    remfile = rwdir/locfile
+    assert(remfile.file?)
+    remfile_new = rwdir/'remfile'
+    remfile.rename(remfile_new)
+    assert(remfile_new.file?)
+    assert!(remfile.exist?)
+  end
+  def test_rename_dir
+    rwdir = rio(FTP_RWROOT)
+    locdir = rio('locdir').mkdir
+    locdir > rwdir
+    remdir = rwdir/locdir
+    assert(remdir.dir?)
+    remdir_new = rwdir/'remdir'
+    remdir.rename(remdir_new)
+    assert(remdir_new.dir?)
+    assert!(remdir.exist?)
+  end
+  def test_test
+    file = FTP_ROROOT/'f0'
+    assert(file.file?)
+    assert(file.exist?)
+    assert!(file.dir?)
+    dir = FTP_ROROOT/'d0'
+    assert!(dir.file?)
+    assert(dir.exist?)
+    assert(dir.dir?)
+    nada = FTP_ROROOT/'nada'
+    assert!(nada.file?)
+    assert!(nada.exist?)
+    assert!(nada.dir?)
+  end
+  def test_size
+    file = FTP_ROROOT/'f0'
+    dir = FTP_ROROOT/'d0'
+    nada = FTP_ROROOT/'nada'
+    assert(file.size)
+    assert_raise(::Net::FTPPermError) { dir.size }
+    assert_raise(::Net::FTPPermError) { nada.size }
+  end
+
+  def test_mtime
+    file = FTP_ROROOT/'f0'
+    dir = FTP_ROROOT/'d0'
+    nada = FTP_ROROOT/'nada'
+    assert(file.mtime)
+    assert_raise(::Net::FTPPermError) { dir.mtime }
+    assert_raise(::Net::FTPPermError) { nada.mtime }
+  end
+
+end
+

data/test/ftp/anon_read.rb

@@ -0,0 +1,105 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'open-uri'
+require 'ftp/testdef'
+
+class TC_ftp_anon_read < Test::RIO::TestCase
+  @@once = false
+  include Test::RIO::FTP::Const
+  FTPRO = FTPROOT/'riotest/ro'
+  LOCENTS = [rio('f0'),d0=rio('d0'),d0/'f1',d1=d0/'d1',d1/'f2']
+  ALLENTS = [FTP_ROROOT/'f0',d0=FTP_ROROOT/'d0',d0/'f1',d1=d0/'d1',d1/'f2']
+  
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def test_read_file
+    f0 = FTP_ROROOT/'f0'
+    exp = ""
+    open(f0.to_s) { |fh| exp  = fh.gets(nil) }
+    ans = rio(f0).contents
+    assert_equal(exp,ans)
+  end
+  def test_read_dir
+    ro = FTP_ROROOT.dup
+    exp = [ro/'f0',ro/'d0']
+    ans = rio(ro).to_a
+    assert_array_equal(exp,ans)
+  end
+  def test_read_dir_all
+    ro = FTP_ROROOT.dup
+    exp = ALLENTS
+    ans = rio(ro).all[]
+    assert_array_equal(exp,ans)
+  end
+  def test_read_dir_all_selected_by_name
+    ro = FTP_ROROOT.dup
+    exp = ALLENTS.select{ |f| f =~ /1$/ }
+    ans = ro.all['*1']
+    assert_array_equal(exp,ans)
+  end
+  def test_read_dir_all_files
+    ro = FTP_ROROOT.dup
+    exp = ALLENTS.select{ |f| f.file? }
+    ans = ro.all.files
+    assert_array_equal(exp,ans)
+  end
+  def test_read_dir_all_dirs
+    exp = ALLENTS.select{ |f| f.dir? }
+    ans = FTP_ROROOT.dup.all.dirs
+    assert_array_equal(exp,ans)
+  end
+  def test_cpfrom_file
+    rem = FTP_ROROOT/'f0'
+    #$trace_states = true
+    loc = rio('f0').delete
+    #$trace_states = false
+    loc < rem
+    #$trace_states = true
+    assert_equal(loc.contents,rem.contents)
+    #$trace_states = false
+    loc = rio('f0').delete
+    rem > loc
+    assert_equal(loc.contents,rem.contents)
+  end
+  def test_cpfrom_dir
+    rem = FTP_ROROOT/'d0'
+
+    loc = rio('d0').delete!
+    loc < rem
+    exp = LOCENTS.select{ |f| f =~ /d0/ } - [loc]
+    ans = loc.dup.all[]
+    assert_array_equal(exp,ans)
+
+    loc = rio('d0').delete!
+    rem > loc
+    exp = LOCENTS.select{ |f| f =~ /d0/ } - [loc]
+    ans = loc.dup.all[]
+    assert_array_equal(exp,ans)
+  end
+  def test_cpfrom_dir_select
+    rem = FTP_ROROOT/'d0'
+
+    loc = rio('d0').delete!
+    loc < rem.entries('*1')
+    exp = LOCENTS.select{ |f| f =~ /1$/ }
+    ans = loc.dup.all[]
+    assert_array_equal(exp,ans)
+
+    loc = rio('d0').delete!
+    rem.entries('*1') > loc
+    exp = LOCENTS.select{ |f| f =~ /1$/ }
+    ans = loc.dup.all[]
+    assert_array_equal(exp,ans)
+  end
+end

data/test/ftp/anon_special.rb

@@ -0,0 +1,68 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'open-uri'
+require 'ftp/testdef'
+
+class TC_ftp_anon_special < Test::RIO::TestCase
+  @@once = false
+  include Test::RIO::FTP::Const
+
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    FS_RWROOT.entries { |ent| ent.delete! }
+  end
+
+  def atest_mkpath
+    rwdir = rio(FTP_RWROOT)
+    tpath = rwdir/'d0'/'d1'/'d2'
+    tpath.mkpath
+    assert(tpath.dir?)
+  end
+  def test_rmtree
+    rwdir = rio(FTP_RWROOT)
+    tpath = rwdir/'d0'/'d1'/'d2'
+    tpath.mkpath
+    assert(tpath.dir?)
+    rwdir/'d0'/'f0' < "a file"
+    rwdir/'d0'/'d1'/'f1' < "a file"
+    d0 = rio(rwdir,'d0').rmtree
+    assert!(d0.exist?)
+#    tpath.mkpath
+#    assert(tpath.dir?)
+#    d0 = rio(rwdir,'d0').rmtree
+#    assert!(d0.exist?)
+  end
+  def atest_sel
+    rwdir = rio(FTP_RWROOT)
+    d0 = rwdir/'d0'
+    d1 = d0/'d1'
+    d2 = d1/'d2'
+    d2.mkpath
+    assert(d2.dir?)
+    f0 = rwdir/'d0'/'f0' < "a file"
+    f1 = rwdir/'d0'/'d1'/'f1' < "a file"
+
+    ans = rwdir.all['*0']
+    exp = [d0,f0]
+    assert_equal(smap(exp),smap(ans))
+
+    ans = rwdir.files[]
+    exp = [f1,f0]
+    assert_equal(smap(exp),smap(ans))
+
+    ans = rwdir.dirs[]
+    exp = [d0,d1,d2]
+    assert_equal(smap(exp),smap(ans))
+  end
+end
+

data/test/ftp/anon_write.rb

@@ -0,0 +1,70 @@
+#!/usr/local/bin/ruby
+if $0 == __FILE__
+  Dir.chdir File.dirname(__FILE__)+'/../'
+  $:.unshift File.expand_path('../lib/')
+end
+
+require 'rio'
+require 'tc/testcase'
+require 'open-uri'
+require 'ftp/testdef'
+
+class TC_ftp_anon_write < Test::RIO::TestCase
+  @@once = false
+  include Test::RIO::FTP::Const
+  #FTPROOT = rio('ftp://localhost/')
+  #FTPRW = FTPROOT/'riotest/rw'
+
+  SRCDIR = rio('src')
+  DSTDIR = rio('dst')
+  LOCENTS = [rio('f0'),d0=rio('d0'),d0/'f1',d1=d0/'d1',d1/'f2']
+  ALLENTS = [FTP_RWROOT/'f0',d0=FTP_RWROOT/'d0',d0/'f1',d1=d0/'d1',d1/'f2']
+  def self.once
+    @@once = true
+    dir = rio(SRCDIR).delete!
+    dir < rio(FS_ROROOT)
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    ALLENTS.reverse.each do |ent|
+      if ent.filename =~ /f/
+        ent.rm
+      else
+        ent.rmdir
+      end
+    end
+    #FS_RWROOT.entries { |ent| ent.delete! }
+  end
+  def test_cp_file_to_dir
+    fname = 'f0'
+    loc = SRCDIR/fname
+    rem = FTP_RWROOT.dup
+    rem < loc
+    frem = rem/fname
+    assert_equal(loc.chomp[],frem.chomp[])
+  end
+  def test_cp_file_to_file
+    fname = 'f0'
+    loc = SRCDIR/fname
+    rem = FTP_RWROOT.dup/fname
+    rem < loc
+    assert_equal(loc.chomp[],rem.chomp[])
+  end
+  def test_cp_dir_left
+    dname = 'd0'
+    loc = SRCDIR/dname
+    rem = FTP_RWROOT.dup
+    rem < loc
+    assert_rios_equal(FS_RWROOT/dname,loc)
+  end
+  def test_cp_dir_right
+    dname = 'd0'
+    loc = SRCDIR/dname
+    rem = FTP_RWROOT.dup
+    loc > rem
+    assert_rios_equal(FS_RWROOT/dname,loc)
+  end
+
+
+end