rio 0.4.2 → 0.5.1

data/test/ftp/tc/anon_special.rb

@@ -0,0 +1,37 @@
+require 'rio'
+require 'ftp/testdef'
+require 'lib/assertions'
+require 'riotest/util'
+
+module RIO::FTP::UnitTest
+  module AnonSpecial
+    module Tests
+      include Test::RIO::FTP::Const
+      include RIOTest::Assertions
+      include RioTest::Util
+      def test_mkpath
+        rwdir = rio(FTP_RWROOT)
+        tpath = rwdir/'as_mkpath0'/'as_mkpath1'/'as_mkpath2'
+        tpath.mkpath
+        assert(tpath.dir?)
+      end
+      def test_rmtree
+        rwdir = rio(FTP_RWROOT)
+        tpath = rwdir/'as_rmtree0'/'as_rmtree1'/'as_rmtree2'
+        tpath.mkpath
+        assert(tpath.dir?)
+        rwdir/'as_rmtree0'/'as_rmtree0' < "a file"
+        rwdir/'as_rmtree0'/'as_rmtree1'/'as_rmtree1' < "a file"
+        d0 = rio(rwdir,'as_rmtree0').rmtree
+        assert!(d0.exist?)
+        #    tpath.mkpath
+        #    assert(tpath.dir?)
+        #    d0 = rio(rwdir,'as_rmtree0').rmtree
+        #    assert!(d0.exist?)
+      end
+
+    end
+    
+  end
+end
+

data/test/ftp/tc/anon_write.rb

@@ -0,0 +1,68 @@
+require 'rio'
+require 'ftp/testdef'
+
+
+module RIO::FTP::UnitTest
+  module AnonWrite
+    module Tests
+      include Test::RIO::FTP::Const
+      
+      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 setup
+        rio(SRCDIR).delete!.mkdir.chdir do 
+          rio('f0').touch
+          rio('d0').mkdir.chdir do |d|
+            rio('f1').touch
+            rio('d1').mkdir
+          end
+        end
+      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
+        #$trace_states = true
+        dname = 'd0/'
+        loc = SRCDIR/dname
+        rem = FTP_RWROOT.dup
+        rem < loc
+        rpath =  FTP_RWROOT/dname
+        lpath = loc
+        ans =  rpath[].map{|el| el.rel(FTP_RWROOT)}
+        exp =  lpath[].map{|el| el.rel(SRCDIR.abs)}
+        assert_equal(exp,ans)
+      end
+      def test_cp_dir_right
+        dname = 'd0'
+        loc = SRCDIR/dname
+        rem = FTP_RWROOT.dup
+        loc > rem
+        rpath =  FTP_RWROOT/dname
+        lpath = loc
+        ans =  rpath[].map{|el| el.rel(FTP_RWROOT)}
+        exp =  lpath[].map{|el| el.rel(SRCDIR.abs)}
+        assert_equal(exp,ans)
+      end
+
+
+    end
+    
+  end
+end
+

data/test/ftp/tc/copy.rb

@@ -0,0 +1,35 @@
+require 'rio'
+require 'ftp/testdef'
+
+
+module RIO::FTP::UnitTest
+  module Copy
+    module Tests
+      include Test::RIO::FTP::Const
+
+      def test_cp_http2ftp
+        http_url = 'http://localhost/riotest/lines.txt.gz'
+        ftp_url = 'ftp://localhost/riotest/rw/lines.txt.gz'
+        rio(ftp_url).rm
+        assert(!rio(ftp_url).exist?)
+        rio(ftp_url) < rio(http_url)
+        assert(rio(ftp_url).exist?)
+      end
+
+      def test_cp_gunzip_http2ftp
+        http_url = 'http://localhost/riotest/lines.txt.gz'
+        ftp_url = 'ftp://localhost/riotest/rw/lines.txt'
+        rio(ftp_url).rm
+        assert(!rio(ftp_url).exist?)
+        rio(http_url).gzip.lines(3,7,9) > rio(ftp_url)
+        # exp = rio(http_url).gzip.chomp.lines[3,7,9]
+        exp = ['Line 3','Line 7','Line 9']
+        ans = rio(ftp_url).chomp[]
+        assert_equal(exp,ans)
+      end
+
+    end
+    
+  end
+end
+

data/test/ftp/tc/empty.rb

@@ -0,0 +1,16 @@
+require 'rio'
+require 'ftp/testdef'
+require "test/unit"
+
+
+module RIO::FTP::UnitTest
+  module EMTPY
+    module Tests
+      include Test::RIO::FTP::Const
+
+
+    end
+    
+  end
+end
+

data/test/ftp/tc/ftp2ftp.rb

@@ -0,0 +1,42 @@
+require 'rio'
+require 'ftp/testdef'
+
+
+module RIO::FTP::UnitTest
+  module FTP2FTP
+    module Tests
+      include Test::RIO::FTP::Const
+
+      def test_cp_ro2rw_file1
+        fname = 'f0'
+        src = FTP_ROROOT/fname
+        dst = FTP_RWROOT/fname
+        dst < src
+        assert_equal(src.chomp[],dst.chomp[])
+      end
+      def test_cp_ro2rw_file2
+        fname = 'f0'
+        src = FTP_ROROOT/fname
+        dst = FTP_RWROOT
+        dst < src
+        fdst = dst/fname
+        assert_equal(src.chomp[],fdst.chomp[])
+      end
+
+      def smap(a) a.map(&:to_s) 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
+    
+  end
+end
+

data/test/ftp/tc/ftp_fs.rb

@@ -0,0 +1,333 @@
+require 'rio'
+require 'ftp/testdef'
+require "test/unit"
+
+
+module RIO::FTP::UnitTest
+  module FTPFS
+    module Tests
+      include Test::RIO::FTP::Const
+      def assert!(a,msg="negative assertion")
+        assert((!(a)),msg)
+      end
+
+
+      def test_initialize
+        ustr = 'ftp://frenzy/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal(u,fs.uri)
+      end
+
+      def test_create
+        ustr = 'ftp://frenzy/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.create(u)
+        assert_equal(u,fs.uri)
+      end
+
+      def test_anon_remote_root
+        ustr = 'ftp://frenzy/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal("/",fs.remote_root)
+      end
+
+      def test_user_remote_root
+        ustr = 'ftp://riotest:riotest@localhost/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal("/home/riotest/",fs.remote_root)
+      end
+
+
+      def test_user_pwd
+        ustr = 'ftp://riotest:riotest@localhost/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('/home/riotest',fs.pwd)
+      end
+
+      def test_anon_pwd
+        ustr = 'ftp://frenzy/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('/',fs.pwd)
+      end
+
+      def test_user_getwd
+        ustr = 'ftp://riotest:riotest@localhost/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('/home/riotest',fs.getwd)
+      end
+
+      def test_anon_getwd
+        ustr = 'ftp://frenzy/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('/',fs.getwd)
+      end
+
+      def test_anon_root
+        ustr = 'ftp://frenzy/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('ftp://frenzy/',fs.root)
+      end
+
+      def test_user_root
+        ustr = 'ftp://riotest:riotest@localhost/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('ftp://riotest@localhost/',fs.root)
+      end
+
+      def test_user_cwd
+        ustr = 'ftp://riotest:riotest@localhost/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('ftp://riotest@localhost/',fs.cwd)
+      end
+
+      def test_anon_cwd
+        ustr = 'ftp://frenzy/riotest/ro/'
+        u = Alt::URI.parse(ustr)
+        fs = RIO::FTP::FS.new(u)
+        assert_equal('ftp://frenzy/',fs.cwd)
+      end
+
+
+      def test_anon_remote_path
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        pth = 'riotest/ro'
+        rpth = fs.remote_path(pth)
+        #p "ustr=#{ustr} fs.remote_path(#{pth})=#{fs.remote_path(pth)}"
+        assert_equal("/riotest/ro",fs.remote_path(pth))
+      end
+
+      def test_anon_root_remote_path
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        pth = '/riotest/ro'
+        rpth = fs.remote_path(pth)
+        #p "ustr=#{ustr} fs.remote_path(#{pth})=#{fs.remote_path(pth)}"
+        assert_equal("/riotest/ro",rpth)
+      end
+
+      def test_user_remote_path
+        ustr = 'ftp://riotest:riotest@localhost/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        pth = 'riotest/ro'
+        rpth = fs.remote_path(pth)
+        #p "ustr=#{ustr} fs.remote_path(#{pth})=#{fs.remote_path(pth)}"
+
+        assert_equal("/home/riotest/riotest/ro",fs.remote_path('riotest/ro'))
+      end
+
+      def test_user_root_remote_path
+        ustr = 'ftp://riotest:riotest@localhost/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        pth = '/riotest/ro'
+        rpth = fs.remote_path(pth)
+        #p "ustr=#{ustr} fs.remote_path(#{pth})=#{fs.remote_path(pth)}"
+
+        assert_equal("/riotest/ro",fs.remote_path(pth))
+      end
+
+      def test_anon_chdir
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        fs.chdir('riotest/ro/')
+        assert_equal("/riotest/ro",fs.getwd)
+        fs.chdir(fs.remote_root)
+      end
+
+      def test_anon_root_chdir
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        fs.chdir('/riotest/ro/')
+        assert_equal("/riotest/ro",fs.getwd)
+        fs.chdir(fs.remote_root)
+      end
+
+      def test_user_chdir
+        ustr = 'ftp://riotest:riotest@localhost/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        fs.chdir('home/riotest/')
+        assert_equal("/home/riotest/home/riotest",fs.getwd)
+        fs.chdir(fs.remote_root)
+      end
+
+      def test_user_root_chdir
+        ustr = 'ftp://riotest:riotest@localhost/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        fs.chdir('/home/riotest/')
+        assert_equal("/home/riotest",fs.getwd)
+        fs.chdir(fs.remote_root)
+      end
+
+      def test_anon_mkdir
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = 'riotest/rw/'
+        newdir = rwdir + 'anonmd1'
+        fs.mkdir(newdir)
+        assert(fs.directory?(newdir))
+        fs.rmdir(newdir)
+      end
+
+      def test_user_mkdir
+        ustr = 'ftp://riotest:riotest@localhost/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = 'riotest/rw/'
+        newdir = rwdir + 'usermd1'
+        fs.mkdir(newdir)
+        assert(fs.directory?(newdir))
+        fs.rmdir(newdir)
+      end
+
+      def test_anon_mkpath
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = 'riotest/rw/'
+        newdir1 = rwdir + 'anonmp1'
+        newdir2 = newdir1 + '/anonmp2'
+        fs.mkpath(newdir2)
+        assert(fs.directory?(newdir2))
+        fs.rmdir(newdir2)
+        fs.rmdir(newdir1)
+      end
+
+      def test_anon_chdir_remote_path
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        dpth = 'riotest/ro'
+        fs.chdir(dpth)
+        pth = 'd0'
+        rpth = fs.remote_path(pth)
+        # p "ustr=#{ustr} fs.remote_path(#{pth})=#{fs.remote_path(pth)}"
+        assert_equal("/riotest/ro/d0",fs.remote_path(pth))
+        fs.chdir(fs.remote_root)
+      end
+
+
+      def test_anon_block_chdir
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        assert_equal(fs.remote_root,fs.remote_wd)
+        dstr = 'riotest/ro/'
+        dwd = fs.remote_root + dstr
+        fs.chdir(dstr) do |d|
+          assert_equal(dwd,d)
+          assert_equal(dwd,fs.remote_wd)
+        end
+        assert_equal(fs.remote_root,fs.remote_wd)
+      end
+
+      def test_anon_rmtree
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = 'riotest/rw/'
+        fs.chdir(rwdir) do 
+          newdir1 = 'anonrt1'
+          newdir2 = newdir1 + '/anonrt2'
+          fs.mkdir(newdir1)
+          fs.mkdir(newdir2)
+          assert(fs.directory?(newdir2))
+          fs.rmtree(newdir1)
+          assert!(fs.exist?(newdir2))
+          assert!(fs.exist?(newdir1))
+        end
+        #fs.chdir(fs.remote_root)
+      end
+
+      def test_anon_root_mkpath
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = '/riotest/rw/'
+        newdir1 = rwdir + 'anonmp1'
+        newdir2 = newdir1 + '/anonmp2'
+        fs.mkpath(newdir2)
+        assert(fs.directory?(newdir2))
+        fs.rmdir(newdir2)
+        fs.rmdir(newdir1)
+      end
+
+      def test_user_root_mkpath
+        ustr = 'ftp://riotest:riotest@localhost/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = '/home/riotest/riotest/rw/'
+        newdir1 = rwdir + 'usermp1'
+        newdir2 = newdir1 + '/usermp2'
+        fs.mkpath(newdir2)
+        assert(fs.directory?(newdir2))
+        fs.rmdir(newdir2)
+        fs.rmdir(newdir1)
+      end
+
+      def test_anon_put
+        fname = 'anon_put.txt'
+        fcont = "ftp_anon_put"
+        rio(fname).puts!(fcont)
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = 'riotest/rw/'
+        fs.chdir(rwdir) do
+          begin
+            fs.put(fname)
+            assert(fs.file?(fname))
+          ensure
+            fs.rm(fname)
+          end
+        end
+      end
+
+      def test_anon_size
+        fname = 'anon_size.txt'
+        fcont = "ftp_anon_put"
+        locfile = rio(fname).puts!(fcont)
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = 'riotest/rw/'
+        fs.chdir(rwdir) do
+          begin
+            fs.put(fname)
+            assert_equal(locfile.size,fs.size(fname))
+          ensure
+            fs.rm(fname)
+          end
+        end
+      end
+
+      def test_anon_mv
+        fname = 'anon_put.txt'
+        cname = 'copy_anon_put.txt'
+        fcont = "ftp_anon_put"
+        rio(fname).puts!(fcont)
+        ustr = 'ftp://frenzy/'
+        fs = RIO::FTP::FS.new(Alt::URI.parse(ustr))
+        rwdir = 'riotest/rw/'
+        fs.chdir(rwdir) do
+          begin
+            fs.put(fname)
+            assert(fs.file?(fname))
+            sz = fs.size(fname)
+            fs.mv(fname,cname)
+            assert!(fs.exist?(fname))
+            assert(fs.file?(cname))
+            assert_equal(sz,fs.size(cname))
+          ensure
+            fs.rm(cname)
+          end
+        end
+      end
+
+
+
+    end
+    
+  end
+end
+