rio 0.4.2 → 0.5.1

data/test/tc/encoding.rb

@@ -0,0 +1,30 @@
+# -*- coding: utf-8 -*-
+      def test_check_paths
+        $datadir ||= rio("../../data")
+        r = rio($datadir,'filelist.txt').enc('UTF-8').chomp
+
+        paths = r.map{|el| el.sub(%r{^/loc},'')}
+        lines = rio($datadir,'linklist.txt').chomp[]
+        urls = lines.map{|el| Alt::URI.parse(el) }
+        #upaths = urls.map{|u| u.path.force_encoding("UTF-8")}
+        upaths = urls.map{|u| u.path}
+        assert_equal(paths,upaths)
+      end
+
+      def test_enc
+        ustr = "http://localhost/mp3/J.%20S.%20Bach%20-%20Orgelwerke%20-%20Karl%20Richter/35%20-%20Sei%20gegr%c3%bc%c3%9fet,%20Jesu%20g%c3%bctig%20-%20BWV%20768.flac"
+        pstr = "/mp3/J. S. Bach - Orgelwerke - Karl Richter/35 - Sei gegrüßet, Jesu gütig - BWV 768.flac"
+        r = rio(ustr)
+        pth = r.path
+        assert_equal(r.rl.fs.encoding,pth.encoding)
+        assert_equal(pstr,pth)
+      end
+
+      def test_check_read_dir
+        #p __ENCODING__
+        rootdir = rio('/loc/mp3/')
+        rootenc = rootdir.rl.fs.encoding
+        rootdir.dirs do |ent|
+          assert_equal(rootenc,ent.path.encoding)
+        end
+      end

data/test/tc/entary.rb

@@ -6,10 +6,11 @@ end
 
 require 'rio'
 require 'tc/testcase'
+require 'qpdir'
 
 class TC_RIO_entary < Test::Unit::TestCase
   def smap(a) a.map { |el| el.to_s } end
-  def tdir() rio(%w/qp entary/) end
+  def tdir() rio($QPDIR,%w/entary/) end
   def mkafile(*args)
     file = rio(*args)
     file < (0..1).map { |i| "L#{i}:#{file.to_s}\n" }
@@ -17,7 +18,7 @@ class TC_RIO_entary < Test::Unit::TestCase
   end
   def setup() 
     $trace_states = false
-    rio('qp/entary').delete!.mkpath.chdir do
+    rio($QPDIR,'entary').delete!.mkpath.chdir do
       rio('d0').mkpath.chdir do
         rio('q1') < (0..1).map { |i| "L#{i}:d0/q1\n" }
         rio('q2') < (0..1).map { |i| "L#{i}:d0/q2\n" }
@@ -37,7 +38,7 @@ class TC_RIO_entary < Test::Unit::TestCase
   def test_entary_nofile
     ds = %w[d0/q1 d0/q2 d0/d1 d0/d2 d0/d1/q1 d0/d1/q2 d0/d1/d1 d0/d1/d1/q1 d0/d1/d1/q2]
     return unless $supports_symlink
-    rio('qp/entary').chdir do
+    rio($QPDIR,'entary').chdir do
       begin
         rio('d1').delete!.mkpath.chdir do
           rio('q1') < (0..1).map { |i| "L#{i}:d1/q1\n" }
@@ -100,7 +101,7 @@ class TC_RIO_entary < Test::Unit::TestCase
   def test_entary_nofile_symlink
     ds = %w[d0/q1 d0/q2 d0/d1 d0/d2 d0/d1/q1 d0/d1/q2 d0/d1/d1 d0/d1/d1/q1 d0/d1/d1/q2]
     return unless $supports_symlink
-    rio('qp/entary').chdir do
+    rio($QPDIR,'entary').chdir do
       begin
         rio('d1').delete!.mkpath.chdir do
           rio('q1') < (0..1).map { |i| "L#{i}:d1/q1\n" }
@@ -164,7 +165,7 @@ class TC_RIO_entary < Test::Unit::TestCase
   end
   def test_entary
     ds = %w[d0/q1 d0/q2 d0/d1 d0/d2 d0/d1/q1 d0/d1/q2 d0/d1/d1 d0/d1/d1/q1 d0/d1/d1/q2]
-    rio('qp/entary').chdir do
+    rio($QPDIR,'entary').chdir do
       begin
         ans = []
         exp = []

data/test/tc/eq.rb

@@ -5,7 +5,7 @@ if $0 == __FILE__
 end
 require 'rio'
 require 'test/unit'
-require 'test/unit/testsuite'
+#require 'test/unit/testsuite'
 
 class TC_RIO_eq < Test::Unit::TestCase
   def assert_case_equal(q,p,msg=nil)
@@ -56,7 +56,7 @@ class TC_RIO_eq < Test::Unit::TestCase
   def test_eq
     s_dir = ''
     #$trace_states = true
-    rio(%w/qp eq/).rmtree.mkpath.chdir do
+    rio($QPDIR,%w/eq/).rmtree.mkpath.chdir do
       q1 = 'q'
       q2 = 'q'
       all_eq(q1,q2)

data/test/tc/expand_path.rb

@@ -19,18 +19,18 @@ class TC_RIO_expand_path < Test::RIO::TestCase
     self.class.once unless @@once
   end
 
-  def test_expand_path_from_cwd
-    require 'tmpdir'
+#  def test_expand_path_from_cwd
+#    require 'tmpdir'
 
-    tmp = rio(::Dir.tmpdir)
-    tmp.chdir do
-      rel = rio('groovy')
-      exp = rio(tmp,rel)
-      ans = rel.expand_path
-      assert_kind_of(RIO::Rio,ans)
-      assert_equal(exp,ans)
-    end
-  end
+#    tmp = rio(::Dir.tmpdir)
+#    tmp.chdir do
+#      rel = rio('groovy')
+#      exp = rio(tmp,rel)
+#      ans = rel.expand_path
+#      assert_kind_of(RIO::Rio,ans)
+#      assert_equal(exp,ans)
+#    end
+#  end
 
   def test_expand_path_from_base_rio
     srel = 'groovy'
@@ -40,7 +40,7 @@ class TC_RIO_expand_path < Test::RIO::TestCase
     exp = File.expand_path(srel,sbase)
     ans = rel.expand_path(base)
     assert_kind_of(RIO::Rio,ans)
-    assert_equal(exp,ans)
+    assert_equal(exp,ans.to_s)
   end
 
   def test_expand_path_from_base_string
@@ -51,7 +51,7 @@ class TC_RIO_expand_path < Test::RIO::TestCase
     exp = File.expand_path(srel,sbase)
     ans = rel.expand_path(sbase)
     assert_kind_of(RIO::Rio,ans)
-    assert_equal(exp,ans)
+    assert_equal(exp,ans.to_s)
   end
 
   def test_expand_path_from_tilde
@@ -63,7 +63,7 @@ class TC_RIO_expand_path < Test::RIO::TestCase
     exp = File.expand_path(srel,sbase)
     ans = rel.expand_path(sbase)
     assert_kind_of(RIO::Rio,ans)
-    assert_equal(exp,ans)
+    assert_equal(exp,ans.to_s)
   end
 
 end

data/test/tc/ext.rb

@@ -116,21 +116,21 @@ class TC_ext < Test::RIO::TestCase
   def test_documented_example
     ario = rio('afile.txt')
     assert_equal('.txt',ario.ext?)
-    assert_equal('afile',ario.ext('.txt').basename)
+    assert_equal(rio('afile'),ario.ext('.txt').basename)
     assert_equal('.txt',ario.ext?)
-    assert_equal('afile.txt',ario.ext('.zip').basename)
+    assert_equal(rio('afile.txt'),ario.ext('.zip').basename)
     assert_equal('.zip',ario.ext?)
-    assert_equal('afile.txt',ario.basename('.tar'))
+    assert_equal(rio('afile.txt'),ario.basename('.tar'))
     assert_equal('.tar',ario.ext?)
-    assert_equal('afile',ario.ext.basename)
+    assert_equal(rio('afile'),ario.ext.basename)
     assert_equal('.txt',ario.ext?)
-    assert_equal('afile.txt',ario.noext.basename)
+    assert_equal(rio('afile.txt'),ario.noext.basename)
     assert_equal('',ario.ext?)
 
     ario = rio('afile.tar.gz')
     assert_equal('.gz',ario.ext?)
-    assert_equal('afile.tar',ario.basename)
-    assert_equal('afile',ario.ext('.tar.gz').basename)
+    assert_equal(rio('afile.tar'),ario.basename)
+    assert_equal(rio('afile'),ario.ext('.tar.gz').basename)
     assert_equal('.tar.gz',ario.ext?)
   end
 end

data/test/tc/fileno.rb

@@ -6,14 +6,15 @@ end
 
 require 'rio'
 require 'test/unit'
-require 'test/unit/testsuite'
+require 'qpdir'
+#require 'test/unit/testsuite'
 
 class TC_RIO_fileno < 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 fileno/) end
+  def tdir() rio($QPDIR,%w/fileno/) end
   def mkafile(*args)
     file = rio(*args)
     file < (0..1).map { |i| "L#{i}:#{file.to_s}\n" }

data/test/tc/files_select.rb

@@ -28,7 +28,7 @@ class TC_files_select < Test::RIO::TestCase
     rio('d0').files.each { |f|
       ans << f
     }
-    assert_equal(['d0/f2','d0/f3'],smap(ans))
+    assert_equal(['d0/f2','d0/f3'].sort,smap(ans).sort)
   end
   def test_files_method_with_dir_rio_each_skip
     #$trace_states = true

data/test/tc/getrec.rb

@@ -5,12 +5,11 @@ if $0 == __FILE__
 end
 require 'rio'
 require 'test/unit'
-require 'test/unit/testsuite'
+#require 'test/unit/testsuite'
 
 class TC_RIO_getrec < Test::Unit::TestCase
   def test_basic
-    qp = rio('qp')
-    rio(qp,'getrec').rmtree.mkpath.chdir do
+    rio($QPDIR,'getrec').rmtree.mkpath.chdir do
       (0..4).each do |n_lines|
         getrec_each(n_lines)
       end

data/test/tc/gzip.rb

@@ -42,9 +42,11 @@ class TC_gzip < Test::RIO::TestCase
     rio(?").gzip < src > ans
     assert_equal(str,ans.string)
     
-    ans.string = ""
-    src | rio(?").gzip | ans
-    assert_equal(str,ans.string)
+    # using files in the middle of a pipe not supported by fiber implementation
+    # of pipes
+    #ans.string = ""
+    #src | rio(?").gzip | ans
+    #assert_equal(str,ans.string)
     
   end
 

data/test/tc/likeio.rb

@@ -102,11 +102,11 @@ class TC_likeio < Test::RIO::TestCase
       check_read_method(fruby,frio,4,:gets,'e')
     }
   end
-  def test_getc
-    open_data(@@data['bytes']) { |fruby,frio|
-      check_read_method(fruby,frio,4,:getc)
-    }
-  end
+#  def test_getc
+#    open_data(@@data['bytes']) { |fruby,frio|
+#      check_read_method(fruby,frio,4,:getc)
+#    }
+#  end
   def test_readchar
     testdata = @@data['bytes'] 
     open_data(testdata) { |fruby,frio|

data/test/tc/lineno.rb

@@ -6,7 +6,7 @@ end
 
 require 'rio'
 require 'test/unit'
-require 'test/unit/testsuite'
+#require 'test/unit/testsuite'
 
 class TC_RIO_lineno < Test::Unit::TestCase
   def assert!(a,msg="negative assertion")

data/test/tc/lines.rb

@@ -5,13 +5,14 @@ if $0 == __FILE__
 end
 require 'rio'
 require 'test/unit'
-require 'test/unit/testsuite'
+require 'qpdir'
+#require 'test/unit/testsuite'
 
 class TC_RIO_lines < Test::Unit::TestCase
   def test_basic
     qp = rio('qp')
 
-    rio(qp,'test_lines').rmtree.mkpath.chdir {
+    rio($QPDIR,'test_lines').rmtree.mkpath.chdir {
       
       f = rio('basic.txt')
       0.upto(6) do |n|
@@ -46,10 +47,9 @@ class TC_RIO_lines < Test::Unit::TestCase
       
       
       expa = ["L1: 3:2\n", "L2: 6:4\n", "L4: 12:8\n", "L6: 18:12\n"]
+      assert_equal(expa,rio('basic.txt').lines[/2/])
       assert_equal(expa,rio('basic.txt').lines(/2/).to_a)
       
-      expa = ["L0: 0:0\nL1: 3:2\nL2: 6:4\nL3: 9:6\n", "L4: 12:8\nL5: 15:10\nL6: 18:12\nLin", "e Z\n"]
-      assert_equal(expa,rio('basic.txt').bytes(32).to_a)
       
 #      expa = [["15", "10"], ["18", "12"]]
 #      assert_equal(expa,rio('basic.txt').lines(/(\d\d):(\d\d)/).to_a)

data/test/tc/misc.rb

@@ -5,6 +5,8 @@ if $0 == __FILE__
 end
 require 'rio'
 require 'tc/testcase'
+require 'qpdir'
+
 #require 'dev-utils/debug'
 
 #require 'tc_myfirsttests'
@@ -14,25 +16,25 @@ require 'tc/testcase'
 class TC_RIO_misc < Test::Unit::TestCase
   def rio(*args) RIO.rio(*args) end
   def rootrio(*args) RIO.root(*args) end
-  def ttdir() RIO.rio('qp').mkpath end
+  def ttdir() RIO.rio($QPDIR).mkpath end
   def assert_equal_s(a,b) assert_equal(a.to_s,b.to_s) end
 
   def test_iomodes
     exp = (0..5).to_a.map { |n| "Line #{n}" }
-    f = rio('qp/rwlines.txt').chomp
+    f = rio($QPDIR,'rwlines.txt').chomp
     0.upto(4) do |n|
       f.puts("Line #{n}")
     end
     got =  f.a.puts("Line 5").readlines
     assert_equal(exp,got)
 
-    f = rio('qp/rwlines.txt').mode('w')
+    f = rio($QPDIR,'rwlines.txt').mode('w')
     0.upto(4) { |n| f.puts("Line #{n}") }
     assert_raise(IOError) {
       f.readlines
     }
 
-    f = rio('qp/rwlines.txt').a
+    f = rio($QPDIR,'rwlines.txt').a
     assert_equal_s('a',f.outputmode?)
     f.puts("Line 0\n\n")
 #    assert_match(/Output$/,.handled_by)
@@ -41,7 +43,7 @@ class TC_RIO_misc < Test::Unit::TestCase
     assert_equal_s('r',f.mode?)
 #    assert_match(/Input$/,f.handled_by)
 
-    f = rio('qp/rwlines.txt').a!
+    f = rio($QPDIR,'rwlines.txt').a!
     assert_equal_s('a+',f.outputmode?)
     f.puts("Line 0\n\n")
 #    assert_match(/InOut$/,f.puts("Line 0\n\n").handled_by)
@@ -50,7 +52,7 @@ class TC_RIO_misc < Test::Unit::TestCase
     assert_equal_s('a+',f.mode?)
 #    assert_match(/InOut$/,f.handled_by)
 
-    f = rio('qp/rwlines.txt').w
+    f = rio($QPDIR,'rwlines.txt').w
     assert_equal_s('w',f.outputmode?)
     f.puts("Line 0\n\n")
 #    assert_match(/Output$/,f.puts("Line 0\n\n").handled_by)
@@ -59,7 +61,7 @@ class TC_RIO_misc < Test::Unit::TestCase
     assert_equal_s('r',f.mode?)
 #    assert_match(/Input$/,f.handled_by)
 
-    f = rio('qp/rwlines.txt').w!
+    f = rio($QPDIR,'rwlines.txt').w!
     assert_equal_s('w+',f.outputmode?)
     f.puts("Line 0").puts("Line 1")
 #    assert_match(/InOut$/,f.puts("Line 0").puts("Line 1").handled_by)
@@ -68,7 +70,7 @@ class TC_RIO_misc < Test::Unit::TestCase
     assert_equal_s('w+',f.mode?)
 #    assert_match(/InOut$/,f.handled_by)
 
-    f = rio('qp/rwlines.txt').r
+    f = rio($QPDIR,'rwlines.txt').r
     assert_equal_s('r',f.inputmode?)
     f.puts("Line 0").puts("Line 1")
 #    assert_match(/Output$/,f.puts("Line 0").puts("Line 1").handled_by)
@@ -77,7 +79,7 @@ class TC_RIO_misc < Test::Unit::TestCase
     assert_equal_s('r',f.mode?)
 #    assert_match(/Input$/,f.handled_by)
 
-    f = rio('qp/rwlines.txt').r!
+    f = rio($QPDIR,'rwlines.txt').r!
     assert_equal_s('r+',f.inputmode?)
     f.puts("Line 0").puts("Line 1")
 #    assert_match(/InOut$/,f.puts("Line 0").puts("Line 1").handled_by)
@@ -91,7 +93,7 @@ class TC_RIO_misc < Test::Unit::TestCase
 
   def test_readwrite 
     require 'rio'
-    tdir = rio(%w/qp test_readwrite/)
+    tdir = rio($QPDIR,%w/test_readwrite/)
     tdir.rmtree.mkpath.chdir {
       exp = (0..5).to_a.map { |n| "Line #{n}" }
 
@@ -158,7 +160,7 @@ class TC_RIO_misc < Test::Unit::TestCase
   end
   def test_copy2
     require 'rio'
-    tdir = rio(%w/qp test_copy2/)
+    tdir = rio($QPDIR,%w/test_copy2/)
     tdir.rmtree.mkpath.chdir {
       txt = "Hello f1.txt"
       o = rio('o').puts(txt).close
@@ -216,45 +218,8 @@ class TC_RIO_misc < Test::Unit::TestCase
     smap(io.to_a).sort
   end
 
-  def test_find
-    s_dir = 'qp/test_find'
-    dir =  RIO.cwd(s_dir).rmtree.mkpath
-    f1 = RIO.rio(dir,'f1.txt').puts("This is f1")
-    f2 = RIO.rio(dir,'f2.txt').puts("This is f2")
-    d2 = RIO.rio(dir,'d1','d2').mkpath
-    f3 = RIO.rio(dir,'d1','f3.txt').puts("This is f3")
-    f4 = d2.join('f4.emp').touch
-    
-    io = rio(s_dir)
-    exp = %w{f1.txt f2.txt d1}
-    assert_equal(emap(s_dir,exp), gmap(io))
-
-    io = rio(s_dir).files('*.txt')
-    exp = %w{f1.txt f2.txt}
-    assert_equal(emap(s_dir,exp), gmap(io))
-    
-    io = rio(s_dir).dirs
-    exp = %w{d1}
-    assert_equal(emap(s_dir,exp), gmap(io))
-    
-    io = rio(s_dir).all.dirs
-    exp = %w{d1 d1/d2}
-    assert_equal(emap(s_dir,exp), gmap(io))
-    
-    io = rio(s_dir).all.dirs("*2")
-    exp = %w{d1/d2}
-    assert_equal(emap(s_dir,exp), gmap(io))
-
-    io = rio(s_dir).all.files("*.emp")
-    exp = %w{d1/d2/f4.emp}
-    assert_equal(emap(s_dir,exp), gmap(io))
-
-
-
-
-  end
   def test_mkdir
-    datadir = rio('qp/test_mkdir').rmtree.mkpath
+    datadir = rio($QPDIR,'test_mkdir').rmtree.mkpath
     dir2 = rio(datadir,'dir2').rmtree.mkpath
     dir2 = rio(datadir,'dir2').rmtree.mkpath
     #     sd1 > dir2
@@ -299,134 +264,27 @@ class TC_RIO_misc < Test::Unit::TestCase
     
   end
 
-  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.copy_to(dst1)
-    dst2 = rio(datadir,'dst2').mkdir
-    src.copy_to(dst2)
-    sline = rio(datadir,'src').readline
-    l1 = rio(datadir,'dst1').readline
-    l2 = rio(datadir,'dst2/src').readline
-    assert_equal(inline,sline)
-    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_to(dir2)
-    nline = rio(datadir,'dir2/sd1/f1.txt').readline
-    assert_equal(oline,nline)
-    
-  end
   def cmpfiles(z1,z2)
     o = rio(z1).contents
     n = rio(z2).contents
     o == n
   end
 
-#   def test_dirstream
-#     datadir = rio('qp','test_dirstream').rmtree.mkpath
-#     rio(datadir,'afile').touch.symlink(rio(datadir,'asymlink'))
-#     rio(datadir,'adir').mkdir
-
-#     #pp datadir.open
-#     positions = {}
-#     while 1
-#       ps = datadir.tell
-#       ent = datadir.read
-#       break if ent.nil?
-#       positions[ent] = ps
-#     end
-    
-#     positions.each { |k,v|
-#       datadir.seek(v)
-#       ent = datadir.read
-#       assert_equal(k.to_s,ent.to_s)
-#     }
-#   end
   def test_path
-    dir =  RIO.cwd(%w/qp test_path/).rmtree.mkpath
-    s_dir = 'qp/test_path'
-    assert_equal(true,::FileTest.directory?(s_dir))
-    f1 = RIO.rio(dir,'f1.txt').puts("This is f1")
-    assert_equal(true,::FileTest.file?(::File.join(s_dir,'f1.txt')))
-    f2 = RIO.rio(dir,'f2.txt').puts("This is f2")
-    assert_equal(true,::FileTest.file?(::File.join(s_dir,'f2.txt')))
-    f3 = RIO.rio(dir,'d1').mkpath.join('f3.txt').puts("This is f2")
-    assert_equal(true,::FileTest.directory?(::File.join(s_dir,'d1')))
-    assert_equal(true,::FileTest.file?(::File.join(s_dir,'d1/f3.txt')))
-    f4 = RIO.rio(dir,'d1').mkpath.join('f4.emp').touch
-    assert_equal(0,::FileTest.size(::File.join(s_dir,'d1/f4.emp')))
-  end
-  def test_glob
-  end
-
-  def test_sdio
-    
-    #    qpd = rio(%w/qp/).mkpath
-    #    rio(qpd,'hw.txt').puts("This\nis\na\nqesi")
-    #    ObjectSpace.each_object(File)    { |o|
-    #      p o.to_s
-    #    }
-
-    
-    #    io = rio(qpd,'hw.txt').readlines
-    #    p io.inspect
+    RIO.cwd.chdir do 
+      dir =  rio($QPDIR,%w/test_path/).rmtree.mkpath
+      s_dir = dir.to_s
+      
+      assert_equal(true,::FileTest.directory?(s_dir))
+      f1 = RIO.rio(dir,'f1.txt').puts("This is f1")
+      assert_equal(true,::FileTest.file?(::File.join(s_dir,'f1.txt')))
+      f2 = RIO.rio(dir,'f2.txt').puts("This is f2")
+      assert_equal(true,::FileTest.file?(::File.join(s_dir,'f2.txt')))
+      f3 = RIO.rio(dir,'d1').mkpath.join('f3.txt').puts("This is f2")
+      assert_equal(true,::FileTest.directory?(::File.join(s_dir,'d1')))
+      assert_equal(true,::FileTest.file?(::File.join(s_dir,'d1/f3.txt')))
+      f4 = RIO.rio(dir,'d1').mkpath.join('f4.emp').touch
+      assert_equal(0,::FileTest.size(::File.join(s_dir,'d1/f4.emp')))
+    end
   end
 end
-#     extend Forwardable
-#     def_instance_delegators(:state,
-#                             :to_i,
-#                             :mode,
-#                             :mkdir,:mkpath,
-#                             :rmdir,:rmtree,
-#                             :chdir,
-#                             :each_entry,:each_line,:each,:each_byte,
-#                             :each_tested,:each_file,:each_directory,:each_symlink,
-#                             :to_str,:to_a,:contents,
-#                             :length,:size,:zero?,
-#                             :eof?,
-#                             :read,:readchar,:readline,:readlines,
-#                             :putc,:puts,:print,:printf,
-#                             :chomp,:chop,
-#                             :atime,:ctime,:mtime,
-#                             :blockdev?,:chardev?,:pipe?,:socket?,:symlink?,:sticky?,
-#                             :dir?,:directory?,:file?,:exist?,
-#                             :executable?,:executable_real?,
-#                             :readable?,:readable_real?,:writeable?,:writeable_real?,
-#                             :grpowned?,:owned?,:setgid?,:setuid?,
-#                             :ftype,:extname,
-#                             :lstat,:stat,
-#                             :fnmatch?)
-# class LogDecorator
-#   def initialize(target)
-#     @target = target
-#   end
-#   def method_missing( sym, *args )
-#     call = "#{@target}.#{sym}(" + (args.map {|a|a.inspect}).join(",") + ")"
-#     puts "calling #{call}"
-#     result = @target.__send__( sym, *args )
-#     puts "returned #{result.inspect} from #{call}"
-#     result
-#   end
-# end
-
-#module RIO
-#  module RIOState
-#    def new_rio(*args)
-#      self.class.new(*args)
-#    end
-#  end
-#end # module RIO