* test/fileutils/fileassertions.rb: new file.

* test/fileutils/test_fileutils.rb: new file.
* test/fileutils/test_nowrite.rb: new file.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4564 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

3 files changed, 452 insertions, 0 deletions

diff --git a/test/fileutils/fileasserts.rb b/test/fileutils/fileasserts.rb
new file mode 100644
index 0000000000..0b3d67bd30
--- /dev/null
+++ b/test/fileutils/fileasserts.rb
@@ -0,0 +1,43 @@
+#
+# test/fileutils/fileasserts.rb
+#
+
+module Test
+  module Unit
+    module Assertions   # redefine
+
+      def assert_same_file( from, to )
+        _wrap_assertion {
+          assert_block("file #{from} != #{to}") {
+            File.read(from) == File.read(to)
+          }
+        }
+      end
+
+      def assert_file_exist( file )
+        _wrap_assertion {
+          assert_block("file not exist: #{file}") {
+            File.exist?(file)
+          }
+        }
+      end
+
+      def assert_file_not_exist( file )
+        _wrap_assertion {
+          assert_block("file not exist: #{file}") {
+            not File.exist?(file)
+          }
+        }
+      end
+
+      def assert_is_directory( file )
+        _wrap_assertion {
+          assert_block("is not directory: #{file}") {
+            File.directory?(file)
+          }
+        }
+      end
+
+    end
+  end
+end
diff --git a/test/fileutils/test_fileutils.rb b/test/fileutils/test_fileutils.rb
new file mode 100644
index 0000000000..2370af1795
--- /dev/null
+++ b/test/fileutils/test_fileutils.rb
@@ -0,0 +1,335 @@
+#
+# test/fileutils/test_fileutils.rb
+#
+
+$:.unshift File.dirname(__FILE__)
+
+require 'fileutils'
+require 'test/unit'
+require 'fileasserts'
+
+
+class TestFileUtils < Test::Unit::TestCase
+
+  include FileUtils
+
+  def my_rm_rf( path )
+    if File.exist?('/bin/rm')
+      system "/bin/rm -rf #{path}"
+    else
+      rm_rf path    # use FileUtils.
+    end
+  end
+
+  def setup
+    my_rm_rf 'data'; Dir.mkdir 'data'
+    my_rm_rf 'tmp';  Dir.mkdir 'tmp'
+    prepare_data_file
+    prepare_time_data
+  end
+
+  def teardown
+    my_rm_rf 'data'
+    my_rm_rf 'tmp'
+  end
+
+
+  TARGETS = %w( data/same data/all data/random data/zero )
+
+  def prepare_data_file
+    same_chars = 'a' * 50
+    File.open('data/same', 'w') {|f|
+      32.times do
+        f.puts same_chars
+      end
+    }
+
+    all_chars = (0..255).map {|n| n.chr }.join('')
+    File.open('data/all', 'w') {|f|
+      32.times do
+        f.puts all_chars
+      end
+    }
+
+    random_chars = (0...50).map { rand(256).chr }.join('')
+    File.open('data/random', 'w') {|f|
+      32.times do
+        f.puts random_chars
+      end
+    }
+
+    File.open('data/zero', 'w') {|f|
+      ;
+    }
+  end
+
+  BIGFILE = 'data/big'
+
+  def prepare_big_file
+    File.open('data/big', 'w') {|f|
+      (4 * 1024 * 1024 / 256).times do   # 4MB
+        f.print "aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa\n"
+      end
+    }
+  end
+
+  def prepare_time_data
+    File.open('data/old',    'w') {|f| f.puts 'dummy' }
+    File.open('data/newer',  'w') {|f| f.puts 'dummy' }
+    File.open('data/newest', 'w') {|f| f.puts 'dummy' }
+    t = Time.now
+    File.utime t-8, t-8, 'data/old'
+    File.utime t-4, t-4, 'data/newer'
+  end
+
+
+  def test_pwd
+    assert_equal Dir.pwd, pwd()
+    cd('/') {
+      assert_equal '/', pwd()
+    }
+    assert_equal Dir.pwd, pwd()
+  end
+
+  def test_cmp
+    TARGETS.each do |fname|
+      assert cmp(fname, fname), 'not same?'
+    end
+    assert_raises(ArgumentError) {
+      cmp TARGETS[0], TARGETS[0], :undefinedoption => true
+    }
+  end
+
+  def test_cp
+    TARGETS.each do |fname|
+      cp fname, 'tmp/cp'
+      assert_same_file fname, 'tmp/cp'
+
+      cp fname, 'tmp'
+      assert_same_file fname, 'tmp/' + File.basename(fname)
+
+      cp fname, 'tmp/preserve', :preserve => true
+      assert_same_file fname, 'tmp/preserve'
+      a = File.stat(fname)
+      b = File.stat('tmp/preserve')
+      assert_equal a.mode, b.mode
+      assert_equal a.mtime, b.mtime
+      assert_equal a.uid, b.uid
+      assert_equal a.gid, b.gid
+    end
+  end
+
+  def test_cp_r
+    cp_r 'data', 'tmp'
+    TARGETS.each do |fname|
+      assert_same_file fname, "tmp/#{fname}"
+    end
+  end
+
+  def test_mv
+    TARGETS.each do |fname|
+      cp fname, 'tmp/mvsrc'
+      mv 'tmp/mvsrc', 'tmp/mvdest'
+      assert_same_file fname, 'tmp/mvdest'
+    end
+  end
+
+  def test_rm
+    TARGETS.each do |fname|
+      cp fname, 'tmp/rmsrc'
+      rm 'tmp/rmsrc'
+      assert_file_not_exist 'tmp/rmsrc'
+    end
+  end
+
+  def test_rm_f
+    TARGETS.each do |fname|
+      cp fname, 'tmp/rmsrc'
+      rm_f 'tmp/rmsrc'
+      assert_file_not_exist 'tmp/rmsrc'
+    end
+
+    File.open('tmp/lnf_symlink_src', 'w') {|f| f.puts 'dummy' }
+    File.symlink 'tmp/lnf_symlink_src', 'tmp/lnf_symlink_dest'
+    rm_f 'tmp/lnf_symlink_dest'
+    assert_file_not_exist 'tmp/lnf_symlink_dest'
+    assert_file_exist     'tmp/lnf_symlink_src'
+
+    rm_f 'notexistdatafile'
+    rm_f 'tmp/notexistdatafile'
+    my_rm_rf 'tmpdatadir'
+    Dir.mkdir 'tmpdatadir'
+    # rm_f 'tmpdatadir'
+    Dir.rmdir 'tmpdatadir'
+  end
+
+  def test_rm_r
+    my_rm_rf 'tmpdatadir'
+
+    Dir.mkdir 'tmpdatadir'
+    rm_r 'tmpdatadir'
+    assert_file_not_exist 'tmpdatadir'
+
+    Dir.mkdir 'tmpdatadir'
+    rm_r 'tmpdatadir/'
+    assert_file_not_exist 'tmpdatadir'
+
+    Dir.mkdir 'tmp/tmpdir'
+    rm_r 'tmp/tmpdir/'
+    assert_file_not_exist 'tmp/tmpdir'
+    assert_file_exist     'tmp'
+
+    Dir.mkdir 'tmp/tmpdir'
+    rm_r 'tmp/tmpdir'
+    assert_file_not_exist 'tmp/tmpdir'
+    assert_file_exist     'tmp'
+
+    Dir.mkdir 'tmp/tmpdir'
+    File.open('tmp/tmpdir/a', 'w') {|f| f.puts 'dummy' }
+    File.open('tmp/tmpdir/b', 'w') {|f| f.puts 'dummy' }
+    File.open('tmp/tmpdir/c', 'w') {|f| f.puts 'dummy' }
+    rm_r 'tmp/tmpdir'
+    assert_file_not_exist 'tmp/tmpdir'
+    assert_file_exist     'tmp'
+  end
+
+  def test_with_big_file
+    prepare_big_file
+
+    cp BIGFILE, 'tmp/cpdest'
+    assert_same_file BIGFILE, 'tmp/cpdest'
+    assert cmp(BIGFILE, 'tmp/cpdest'), 'orig != copied'
+
+    mv 'tmp/cpdest', 'tmp/mvdest'
+    assert_same_file BIGFILE, 'tmp/mvdest'
+    assert_file_not_exist 'tmp/cpdest'
+
+    rm 'tmp/mvdest'
+    assert_file_not_exist 'tmp/mvdest'
+  end
+
+  def test_ln
+    TARGETS.each do |fname|
+      ln fname, 'tmp/lndest'
+      assert_same_file fname, 'tmp/lndest'
+      File.unlink 'tmp/lndest'
+    end
+
+    ln TARGETS, 'tmp'
+    TARGETS.each do |fname|
+      assert_same_file fname, 'tmp/' + File.basename(fname)
+    end
+    TARGETS.each do |fname|
+      File.unlink 'tmp/' + File.basename(fname)
+    end
+  end
+
+  def test_ln_s
+    TARGETS.each do |fname|
+      ln_s fname, 'tmp/lnsdest'
+      assert FileTest.symlink?('tmp/lnsdest'), 'not symlink'
+      assert_equal fname, File.readlink('tmp/lnsdest')
+      rm_f 'tmp/lnsdest'
+    end
+  end
+
+  def test_ln_sf
+    TARGETS.each do |fname|
+      ln_sf fname, 'tmp/lnsdest'
+      assert FileTest.symlink?('tmp/lnsdest'), 'not symlink'
+      assert_equal fname, File.readlink('tmp/lnsdest')
+      ln_sf fname, 'tmp/lnsdest'
+      ln_sf fname, 'tmp/lnsdest'
+    end
+  end
+
+  def test_mkdir
+    my_rm_rf 'tmpdatadir'
+    mkdir 'tmpdatadir'
+    assert_is_directory 'tmpdatadir'
+    Dir.rmdir 'tmpdatadir'
+
+    mkdir 'tmp/mkdirdest'
+    assert_is_directory 'tmp/mkdirdest'
+    Dir.rmdir 'tmp/mkdirdest'
+
+    mkdir 'tmp/tmp', :mode => 0700
+    assert_is_directory 'tmp/tmp'
+    assert_equal 0700, (File.stat('tmp/tmp').mode & 0777)
+    Dir.rmdir 'tmp/tmp'
+  end
+
+  def test_mkdir_p
+    dirs = %w(
+      tmpdir/dir/
+      tmpdir/dir/./
+      tmpdir/dir/./.././dir/
+      tmpdir/a
+      tmpdir/a/
+      tmpdir/a/b
+      tmpdir/a/b/
+      tmpdir/a/b/c/
+      tmpdir/a/b/c
+      tmpdir/a/a/a/a/a/a/a/a/a/a/a/a/a/a/a/a/a/a
+      tmpdir/a/a
+    )
+    rm_rf 'tmpdir'
+    dirs.each do |d|
+      mkdir_p d
+      assert_is_directory d
+      assert_file_not_exist "#{d}/a"
+      assert_file_not_exist "#{d}/b"
+      assert_file_not_exist "#{d}/c"
+      rm_rf 'tmpdir'
+    end
+    dirs.each do |d|
+      mkdir_p d
+      assert_is_directory d
+    end
+    rm_rf 'tmpdir'
+
+    mkdir_p 'tmp/tmp/tmp', :mode => 0700
+    assert_is_directory 'tmp/tmp'
+    assert_is_directory 'tmp/tmp/tmp'
+    assert_equal 0700, (File.stat('tmp/tmp').mode & 0777)
+    assert_equal 0700, (File.stat('tmp/tmp/tmp').mode & 0777)
+    rm_rf 'tmp/tmp'
+  end
+
+  def try_mkdirp( dirs, del )
+  end
+
+  def test_uptodate?
+    Dir.chdir('data') {
+      assert(   uptodate?('newest', %w(old newer notexist)) )
+      assert( ! uptodate?('newer', %w(old newest notexist)) )
+      assert( ! uptodate?('notexist', %w(old newest newer)) )
+    }
+  end
+
+  def test_install
+    File.open('tmp/aaa', 'w') {|f| f.puts 'aaa' }
+    File.open('tmp/bbb', 'w') {|f| f.puts 'bbb' }
+    install 'tmp/aaa', 'tmp/bbb', :mode => 0600
+    assert_equal "aaa\n", File.read('tmp/bbb')
+    assert_equal 0600, (File.stat('tmp/bbb').mode & 0777)
+
+    t = File.mtime('tmp/bbb')
+    install 'tmp/aaa', 'tmp/bbb'
+    assert_equal "aaa\n", File.read('tmp/bbb')
+    assert_equal 0600, (File.stat('tmp/bbb').mode & 0777)
+    assert_equal t, File.mtime('tmp/bbb')
+
+    File.unlink 'tmp/aaa'
+    File.unlink 'tmp/bbb'
+  end
+
+end
+
+
+__END__
+#if $0 == __FILE__
+#  require 'test/unit/ui/console/testrunner'
+#
+#  Test::Unit::UI::Consle::TestRunner.run(TestFileUtils.suite)
+end
diff --git a/test/fileutils/test_nowrite.rb b/test/fileutils/test_nowrite.rb
new file mode 100644
index 0000000000..dc9408f3c1
--- /dev/null
+++ b/test/fileutils/test_nowrite.rb
@@ -0,0 +1,74 @@
+#
+#
+#
+
+$:.unshift File.dirname(__FILE__)
+
+require 'fileutils'
+require 'test/unit'
+require 'fileasserts'
+
+
+class TestNoWrite < Test::Unit::TestCase
+
+  include FileUtils::NoWrite
+
+  SRC  = 'data/src'
+  COPY = 'data/copy'
+
+  def setup
+    system 'rm -rf data; mkdir data'
+    system 'rm -rf tmp; mkdir tmp'
+    File.open( SRC,  'w' ) {|f| f.puts 'dummy' }
+    File.open( COPY, 'w' ) {|f| f.puts 'dummy' }
+  end
+
+  def teardown
+    system 'rm -rf data tmp'
+  end
+
+  def test_cp
+    cp SRC, 'tmp/cp'
+    check 'tmp/cp'
+  end
+
+  def test_mv
+    mv SRC, 'tmp/mv'
+    check 'tmp/mv'
+  end
+
+  def check( dest )
+    assert_file_not_exist dest
+    assert_file_exist SRC
+    assert_same_file SRC, COPY
+  end
+
+  def test_rm
+    rm SRC
+    assert_file_exist SRC
+    assert_same_file SRC, COPY
+  end
+
+  def test_rm_f
+    rm_f SRC
+    assert_file_exist SRC
+    assert_same_file SRC, COPY
+  end
+
+  def test_rm_rf
+    rm_rf SRC
+    assert_file_exist SRC
+    assert_same_file SRC, COPY
+  end
+
+  def test_mkdir
+    mkdir 'dir'
+    assert_file_not_exist 'dir'
+  end
+
+  def test_mkdir_p
+    mkdir 'dir/dir/dir'
+    assert_file_not_exist 'dir'
+  end
+
+end