rio 0.3.7 → 0.3.8

data/lib/rio/version.rb

@@ -1,6 +1,6 @@
 #--
 # =============================================================================== 
-# Copyright (c) 2005, Christopher Kleckner
+# Copyright (c) 2005, 2006 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -22,7 +22,7 @@
 #++
 #
 # To create the documentation for Rio run the command
-#  rake rdoc
+#  ruby build_doc.rb
 # from the distribution directory. Then point your browser at the 'doc/rdoc' directory.
 #
 # Suggested Reading
@@ -39,7 +39,7 @@
 module RIO
   # :stopdoc:
   module Version #:nodoc: all
-    VERSION = '0.3.7'
+    VERSION = '0.3.8'
 
     N = VERSION.split('.').freeze
     MAJOR = N[0].freeze

data/lib/rio.rb

@@ -1,6 +1,6 @@
 #--
 # =============================================================================== 
-# Copyright (c) 2005, Christopher Kleckner
+# Copyright (c) 2005, 2006 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -22,7 +22,7 @@
 #++
 #
 # To create the documentation for Rio run the command
-#  rake rdoc
+#  ruby build_doc.rb
 # from the distribution directory. Then point your browser at the 'doc/rdoc' directory.
 #
 # Suggested Reading
@@ -34,37 +34,27 @@
 # <b>Rio is pre-alpha software. 
 # The documented interface and behavior is subject to change without notice.</b>
 
-#
-
 
 require 'rio/version'
 require 'rio/base'
+require 'rio/def'
 require 'rio/exception'
 
 require 'forwardable'
+
 $trace_states = false
-module RIO 
-  # See also: RIO::Doc::SYNOPSIS; RIO::Doc::INTRO; RIO::Doc::HOWTO.
-  class Rio < Base #:doc:
-  end
-end
 
 require 'rio/kernel'
 require 'rio/constructor'
 require 'rio/construct'
 
-module RIO
-  SEEK_SET = IO::SEEK_SET
-  SEEK_END = IO::SEEK_END
-  SEEK_CUR = IO::SEEK_CUR
-end
+require 'rio/const'
 
 module RIO
   class Rio #:doc:
     require 'rio/local'
     include Local
     require 'rio/factory'
-    
     protected
 
     attr_reader :state
@@ -116,16 +106,16 @@ module RIO
       #p callstr('dup',self)
       self.class.new(self.to_rl)
     end
-
-  def method_missing(sym,*args,&block) #:nodoc:
-    #p callstr('method_missing',sym,*args)
-
-    result = target.__send__(sym,*args,&block)
-    return result unless result.kind_of? State::Base and result.equal? target
-
-    self
-  end
-
+    
+    def method_missing(sym,*args,&block) #:nodoc:
+      #p callstr('method_missing',sym,*args)
+      
+      result = target.__send__(sym,*args,&block)
+      return result unless result.kind_of? State::Base and result.equal? target
+      
+      self
+    end
+    
     def inspect()
       cl = self.class.to_s[5..-1]
       st = state.target.class.to_s[5..-1]
@@ -152,6 +142,7 @@ module RIO
   end # class Rio
 end # module RIO
 
+#require 'rio/ext/zipfile.rb'
 
 if $0 == __FILE__
   eval DATA.read, nil, $0, __LINE__+4

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.to_a
+}
+

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_misc.rb

@@ -0,0 +1,112 @@
+#!/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
+
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    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)
+    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').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 test_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 test_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,63 @@
+#!/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
+    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.contents,frem.contents)
+  end
+  def test_cp_file_to_file
+    fname = 'f0'
+    loc = SRCDIR/fname
+    rem = FTP_RWROOT.dup/fname
+    rem < loc
+    assert_equal(loc.contents,rem.contents)
+  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

data/test/ftp/ftp2ftp.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'
+require 'open-uri'
+require 'ftp/testdef'
+
+class TC_ftp2ftp < 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_cp_ro2rw_file1
+    fname = 'f0'
+    src = FTP_ROROOT/fname
+    dst = FTP_RWROOT/fname
+    dst < src
+    assert_equal(src.contents,dst.contents)
+  end
+  def test_cp_ro2rw_file2
+    fname = 'f0'
+    src = FTP_ROROOT/fname
+    dst = FTP_RWROOT
+    dst < src
+    fdst = dst/fname
+    assert_equal(src.contents,fdst.contents)
+  end
+  def test_cp_ro2rw_dir
+    fname = 'd0'
+    src = FTP_ROROOT/fname
+    dst = FTP_RWROOT
+    dst < src
+    ans = rio(FTP_RWROOT,fname).to_a
+    exp = rio(FTP_ROROOT,fname).to_a.map{ |s| s.sub('ro','rw') }
+  
+    assert_equal(smap(exp),smap(ans))
+  end
+
+
+end

data/test/ftp/initftpfiles.rb

@@ -0,0 +1,14 @@
+#!/usr/local/bin/ruby
+Dir.chdir File.dirname(__FILE__)
+$devlib=File.expand_path('../../lib/')
+$:.unshift $devlib unless $:[0] == $devlib
+require 'rio'
+$testlib = rio($devlib)
+$testlib.filename = 'test'
+$:.unshift $testlib.to_s
+
+require 'ftp/testdef'
+Test::RIO::FTP::init_test_files()
+
+
+exit

data/test/ftp/testdef.rb

@@ -0,0 +1,51 @@
+require 'rio'
+
+module Test
+  module RIO
+    module FTP
+      module Const
+        FTPUSER = 'ftp'
+        
+        FSROOT = rio('/home/ftp')
+        #FTPHOST = '192.168.1.101'
+        FTPHOST = 'localhost'
+        FTPROOT = rio("ftp://#{FTPHOST}/")
+
+        TESTDIR = rio('riotest')
+
+        RODIR = rio('ro')
+        RWDIR = rio('rw')
+        FTP_RWROOT = FTPROOT/TESTDIR/RWDIR
+        FTP_ROROOT = FTPROOT/TESTDIR/RODIR
+        FS_RWROOT = FSROOT/TESTDIR/RWDIR
+        FS_ROROOT = FSROOT/TESTDIR/RODIR
+        
+        PASSWDFILE = FSROOT/'etc/passwd'
+        UID,GID = rio(PASSWDFILE).lines[/^#{FTPUSER}/][0].split(':')[2..3].map{|strid| strid.to_i}
+      end
+      include Const
+      def init_test_files
+        fsdir = rio(FSROOT,TESTDIR).delete!.mkdir
+        rodir = rio(fsdir,RODIR).mkdir
+        rwdir = rio(fsdir,RWDIR).mkdir
+        f0 = rodir/'f0' < "File0\n"
+        d0 = rio(rodir,'d0').mkdir
+        f1 = rio(d0,'f1') < "File1\n"
+        d1 = rio(d0,'d1').mkdir
+        f2 = rio(d1,'f2') < "File2\n"
+        f0.chown(UID,GID).chmod(0555)
+        f1.chown(UID,GID).chmod(0555)
+        f2.chown(UID,GID).chmod(0555)
+        d1.chown(UID,GID).chmod(0555)
+        d0.chown(UID,GID).chmod(0555)
+        rodir.chown(UID,GID).chmod(0555)
+        rwdir.chown(UID,GID).chmod(0777)
+        fsdir.chown(UID,GID).chmod(0555)
+        
+        puts rio(FSROOT,TESTDIR).all[]
+      end
+      module_function :init_test_files
+    end
+  end
+end
+

data/test/gem_runtests.rb

@@ -1,15 +1,15 @@
-#!/usr/bin/ruby
-Dir.chdir File.dirname(__FILE__)
-#$:.unshift File.expand_path('../lib/')
-
-require 'rubygems'
-require 'rio'
-
-
-#require 'rio'
-require 'test/unit'
-
-require 'tc/all'
-$trace_states = false
-require 'test/unit/ui/console/testrunner'
-#require 'test/unit/ui/tk/testrunner'
+#!/usr/bin/ruby
+Dir.chdir File.dirname(__FILE__)
+#$:.unshift File.expand_path('../lib/')
+
+require 'rubygems'
+require 'rio'
+
+
+#require 'rio'
+require 'test/unit'
+
+require 'tc/all'
+$trace_states = false
+require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/tk/testrunner'

data/test/runalltests.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/ruby
+Dir.chdir File.dirname(__FILE__)
+$devlib=File.expand_path('../lib/')
+$:.unshift $devlib unless $:[0] == $devlib
+
+$mswin32 = (RUBY_PLATFORM =~ /mswin32/)
+
+require 'rio'
+require 'test/unit'
+
+require 'tc/all'
+require 'ftp/all'
+$trace_states = false
+require 'test/unit/ui/console/testrunner'
+#require 'test/unit/ui/tk/testrunner'