rio 0.3.1 → 0.3.2

data/lib/rio/version.rb

@@ -39,7 +39,7 @@
 module RIO
   # :stopdoc:
   module Version #:nodoc: all
-    VERSION = '0.3.1'
+    VERSION = '0.3.2'
 
     N = VERSION.split('.').freeze
     MAJOR = N[0].freeze

data/test/tc/all.rb

@@ -1,5 +1,9 @@
 require 'test/unit'
 require 'tc/testcase'
+require 'tc/temp'
+require 'tc/tempfile'
+require 'tc/tempdir'
+require 'tc/riorl'
 require 'tc/abs'
 require 'tc/closeoneof'
 require 'tc/clearsel'

data/test/tc/copylines.rb

@@ -3,38 +3,44 @@ if $0 == __FILE__
   Dir.chdir File.dirname(__FILE__)+'/../'
   $:.unshift File.expand_path('../lib/')
 end
+
 require 'rio'
-require 'test/unit'
-class TC_RIO_copylines < Test::Unit::TestCase
-  def test_copylines
-    qp = RIO.rio('qp')
-    rio(qp,'test_copylines').rmtree.mkpath.chdir {
-      str = 'peter piper picked a peck of pickled peppers'
-      words = str.split(/\s+/)
-      line = words.map { |w| w+"\n" }.join('')
-      src = rio('src').print!(line)
-      
-      #$trace_states = true
-      out = rio('$')
-      rio('src').chomp.lines(/^[^p]/) > out
-      out.close
-      $trace_states = false
-      assert_equal('aof',out.contents)
-      
-      out < rio('src').lines(/^[^p]/)
-      assert_equal("a\nof\n",out.contents)
-      
-      aout = Array.new
-      rio('src').chomp.lines(1,4..6) > aout
-      assert_equal(%w{piper peck of pickled},aout)
-      
-      out < rio('src').chomp.lines(0..1)
-      assert_equal("peterpiper",out.contents)
-      
-      rio('src').chomp.lines(0..1) > aout
-      assert_equal(%w{peter piper},aout)
-      rio('src').chomp.lines(0..1) >> aout
-      assert_equal(%w{peter piper peter piper},aout)
-    }
+require 'tc/testcase'
+
+class TC_copylines < Test::RIO::TestCase
+  @@once = false
+  STR = 'peter piper picked a peck of pickled peppers'
+  WORDS = STR.split(/\s+/)
+  LINE = WORDS.map { |w| w+"\n" }.join('')
+  def self.once
+    @@once = true
+    src = rio('src').print!(LINE)
+  end
+  def setup
+    super
+    self.class.once unless @@once
+  end
+  def test_basic
+    out = rio(?")
+    rio('src').chomp.lines(/^[^p]/) > out
+    assert(out.closed?, "copy closed")
+
+    assert_equal('aof',out.contents)
+    
+    out < rio('src').lines(/^[^p]/)
+    assert_equal("a\nof\n",out.contents)
+    
+    aout = Array.new
+    rio('src').chomp.lines(1,4..6) > aout
+    assert_equal(%w{piper peck of pickled},aout)
+    
+    out < rio('src').chomp.lines(0..1)
+    assert_equal("peterpiper",out.contents)
+    
+    rio('src').chomp.lines(0..1) > aout
+    assert_equal(%w{peter piper},aout)
+
+    rio('src').chomp.lines(0..1) >> aout
+    assert_equal(%w{peter piper peter piper},aout)
   end
 end

data/test/tc/riorl.rb

@@ -0,0 +1,104 @@
+#!/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'
+require 'tmpdir'
+
+class TC_riorl < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @tmpdir = "#{::Dir::tmpdir}"
+    @tmppath = "#{@tmpdir}/rio"
+  end
+
+  def pathinfo(ario)
+    h = {}
+    [:scheme,:opaque,:path,:fspath,:to_s,:to_url,:to_uri].each do |sym|
+      begin
+        h[sym] = ario.__send__(sym)
+      rescue
+        h[sym] = 'error'
+      end
+    end
+    h
+  end
+  def pinfo(fmt,pi)
+    printf(fmt, pi[:scheme].inspect,pi[:opaque].inspect,pi[:path].inspect,
+           pi[:fspath].inspect,pi[:to_s].inspect,pi[:to_url].inspect)
+  end
+  def mkrios1()
+    rinfo = {
+      ?- => ['stdio',"",nil,nil,"stdio:","stdio:"],
+      ?= => ['stderr',"",nil,nil,"stderr:","stderr:"],
+      ?" => ['strio',"",nil,nil,"strio:","strio:"],
+      ?? => ['temp',@tmppath,nil,nil,"temp:#{@tmppath}","temp:#{@tmppath}"],
+    }
+    siopq = sprintf("0x%08x",$stdout.object_id)
+    rinfo[?_] = ['sysio',siopq,nil,nil,"sysio:#{siopq}","sysio:#{siopq}"]
+    rinfo[?`] = ['cmdio','echo%20x',nil,nil,'echo x','cmdio:echo%20x']
+    rinfo[?#] = ['fd','1',nil,nil,'fd:1','fd:1']
+    rios = {
+      ?- => rio(?-),
+      ?= => rio(?=),
+      ?" => rio(?"),
+      ?? => rio(??),
+      ?_ => rio($stdout),
+      ?` => rio(?`,'echo x'),
+      ?# => rio(?#,1),
+    }
+    [rios,rinfo]
+  end
+  def mkrios2()
+    rinfo = {
+      ?- => ['stdout',/^$/,nil,nil,/^stdout:$/,/^stdout:$/],
+      ?? => ['file',%r|//#{@tmppath}\d+\.\d+|,%r|#{@tmppath}\d+\.\d+|,%r|#{@tmppath}\d+\.\d+|,/#{@tmppath}\d+\.\d+/,/#{@tmppath}\d+\.\d+/],
+    }
+    siopq = sprintf("0x%08x",$stdout.object_id)
+    rios = {
+      ?- => rio(?-).print("."),
+      ?? => rio(??).puts("hw"),
+    }
+    [rios,rinfo]
+  end
+  def test_specialpaths
+    fmt = "%-12s %-12s %-8s %-8s %-20s %-20s\n"
+    #printf(fmt,'scheme','opaque','path','fspath','to_s','url')
+    rios,rinfo = mkrios1()
+    rios.each do |k,r|
+      #pinfo(fmt,pathinfo(r))
+      assert_equal(r.scheme,rinfo[k][0])
+      assert_equal(r.opaque,rinfo[k][1])
+      assert_equal(r.path,rinfo[k][2])
+      assert_equal(r.fspath,rinfo[k][3])
+      assert_equal(r.to_s,rinfo[k][4])
+      assert_equal(r.to_url,rinfo[k][5])
+    end
+  end
+
+  def test_specialpaths_op
+    fmt = "%-12s %-12s %-8s %-8s %-20s %-20s\n"
+    #printf(fmt,'scheme','opaque','path','fspath','to_s','url')
+    rios,rinfo = mkrios2()
+    rios.each do |k,r|
+      #pinfo(fmt,pathinfo(r))
+      assert_equal(rinfo[k][0],r.scheme)
+      assert(r.opaque =~ rinfo[k][1])
+      assert(r.to_s =~ rinfo[k][4])
+      assert(r.to_url =~ rinfo[k][5])
+    end
+    assert(rinfo[??][2] =~ rios[??].path)
+    assert(rinfo[??][3] =~ rios[??].fspath)
+  end
+end

data/test/tc/temp.rb

@@ -0,0 +1,155 @@
+#!/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'
+require 'tmpdir'
+
+class TC_tempfile < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @tmpdir = ::Dir::tmpdir
+    @pfx = 'rio'
+  end
+
+  def pathinfo(ario)
+    [:scheme,:opaque,:path,:fspath,:to_s,:to_url,:to_uri].each do |sym|
+      puts "#{sym}: #{ario.__send__(sym)}"
+    end
+  end
+
+  def test_new
+    tmp = rio(??)
+    assert_equal('temp',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+  end
+
+  def test_dir
+    tmp = rio(??).dir
+    assert(tmp.dir?)
+    assert_equal('file',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_dir_chdir
+    rio(??).chdir { |tmp|
+      assert(tmp.dir?)
+      assert_equal('path',tmp.scheme)
+      assert_equal('.',tmp.dirname.to_s)
+      assert_equal('.',tmp.filename.to_s)
+      tmp.close
+    }
+  end
+#   def test_dir_chdir2
+#     tmp = rio(??).chdir 
+#     assert(tmp.dir?)
+#     assert_equal('path',tmp.scheme)
+#     assert_equal('.',tmp.dirname.to_s)
+#     assert_equal('.',tmp.filename.to_s)
+#     tmp.close
+#   end
+  def test_dir_mkdir
+    tmp = rio(??).mkdir
+    assert(tmp.dir?)
+    assert_equal('file',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_file
+    tmp = rio(??).file
+    assert(tmp.file?)
+    assert_equal('file',tmp.scheme)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    assert_match(/^rio/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_dir_prefix
+    tmp = rio(??,'zippy').dir
+    assert(tmp.dir?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_prefix
+    tmp = rio(??,'zippy').file
+    assert(tmp.file?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_equal(::Dir::tmpdir,tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_dir_tmpdir
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio(??,'zippy','riotmpdir').dir
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_tmpdir
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio(??,'zippy','riotmpdir').file
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_dir_prefix_url
+    tmp = rio('temp:zippy').dir
+    assert_match(/^zippy/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_file_prefix_url
+    tmp = rio('temp:zippy').file
+    assert_match(/^zippy/,tmp.filename.to_s)
+    tmp.close
+  end
+
+  def test_dir_tmpdir_url
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio('temp:riotmpdir/zippy').dir
+    assert(tmp.dir?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_tmpdir_url
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio('temp:riotmpdir/zippy').file
+    assert(tmp.file?)
+    assert_match(/^zippy/,tmp.filename.to_s)
+    assert_match('riotmpdir',tmp.dirname.to_s)
+    tmp.close
+  end
+
+  def test_file_write
+    rio('riotmpdir').delete!.mkdir
+    tmp = rio('temp:riotmpdir/zippy')
+    tmp.puts("Hello Tempfile")
+    assert(tmp.file?)
+    assert(tmp.open?)
+    tmp.close
+  end
+
+
+end

data/test/tc/tempdir.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 'test/unit'
+require 'test/unit/testsuite'
+require 'extensions/symbol'
+require 'tc/testcase'
+require 'tmpdir'
+
+class TC_tempfile < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @tmpdir = ::Dir::tmpdir
+    @pfx = 'rio'
+  end
+
+  def pathinfo(ario)
+    [:scheme,:opaque,:path,:fspath,:to_s,:to_url,:to_uri].each do |sym|
+      puts "#{sym}: #{ario.__send__(sym)}"
+    end
+  end
+
+  def test_new
+    tmpdir = rio('tempdir:')
+    assert(tmpdir.dir?)
+    assert_equal(::Dir::tmpdir,tmpdir.dirname.to_s)
+  end
+
+  def test_prefix
+    tmpdir = rio('tempdir:','zippy')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+  end
+
+  def test_tmpdir
+    rio('riotmpdir').delete!.mkdir
+    tmpdir = rio('tempdir:','zippy','riotmpdir')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+    assert_match('riotmpdir',tmpdir.dirname.to_s)
+  end
+
+  def test_prefix_url
+    tmpdir = rio('tempdir:zippy')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+  end
+
+  def test_tmpdir_url
+    rio('riotmpdir').delete!.mkdir
+    tmpdir = rio('tempdir:riotmpdir/zippy')
+    assert_match(/^zippy/,tmpdir.filename.to_s)
+    assert_match('riotmpdir',tmpdir.dirname.to_s)
+  end
+
+
+end

data/test/tc/tempfile.rb

@@ -0,0 +1,38 @@
+#!/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'
+require 'tmpdir'
+
+class TC_tempfile < Test::RIO::TestCase
+  @@once = false
+  def self.once
+    @@once = true
+  end
+  def setup
+    super
+    self.class.once unless @@once
+    @tmpdir = ::Dir::tmpdir
+    @pfx = 'rio'
+  end
+
+  def pathinfo(ario)
+    [:scheme,:opaque,:path,:fspath,:to_s,:to_url,:to_uri].each do |sym|
+      puts "#{sym}: #{ario.__send__(sym)}"
+    end
+  end
+
+  def test_io
+    str = "Hello Tempfile"
+    assert_equal(str,rio(??).puts(str).rewind.chomp.gets)
+  end
+
+
+end