#!/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