filerenamer 0.0.0

data/lib/filerenamer/filerenamer.rb

@@ -0,0 +1,252 @@
+#! /usr/bin/env ruby
+# coding: utf-8
+
+require "fileutils"
+require "optparse"
+require "filerenamer/filerenameroptionparser.rb"
+
+require "rubygems"
+gem "builtinextension"
+require "string_escape_zsh.rb"
+require "string_width.rb"
+
+class FileRenamerNoRenameRuleError < Exception; end
+class FileRenamerOptionError < Exception; end
+
+# ファイル群の名前変更を一括して行うためのクラス。
+#
+# MEMO:
+# 一度 temporary directory にリネームして格納し、
+# これをカレントディレクトリからのパスに移動する形を取ると、
+# ディレクトリをまたぐリネームが非常に面倒なことになる。
+# - 他のリネームに依存する場合に順序問題。
+# - 相互依存のデッドロック
+# gem などで提供される temporary directory は
+# 基本的に 抜けたときに削除される筈なので、
+# 途中まで変換してから interrupt されたときに
+# 中にあるファイルごと消される可能性がありそう。
+# そのため、メソッド内で自分で temporary directory を作成する。
+# 
+# 没案
+#   rename_rule メソッドをデフォルトで例外にしておいて、
+#   コマンドスクリプト側で定義するという方法は、
+#   メソッドの引数で ArgumentError のもとになり、
+#   自由度が少なくなる。
+#   たとえば old_str, new_str を渡したい時と、
+#   更新時刻でリネームしたいときでは必要な引数の数が異なる。
+class FileRenamer
+
+  #:yes と :no が両方 true ならば例外。
+  #:copy, :move, :hardlink, :symlink のうち、1つ以下が true。
+  #全て nil ならば :move が true になる。
+  #:quiet が true ならば自動的に :yes が立てられる。
+  #:quiet が true で :no も true ならば例外。
+  def initialize(options)
+    @options = options
+
+    if (@options[:yes] && @options[:no])
+      raise FileRenamerOptionError,
+        "Conflict options: --yes and --no."
+    end
+
+    fileProcessModes = []
+    [:move, :copy, :hardlink, :symlink].each do |mode|
+      fileProcessModes << mode if @options[mode]
+    end
+    # 1つもなければ :move に。
+    @options[:move] = true if fileProcessModes == []
+    # 2つ以上あれば例外。
+    if fileProcessModes.size > 1
+      raise FileRenamerOptionError,
+        "File process modes duplicate: #{fileProcessModes.join(", ")}"
+    end
+    @command = "mv"     if @options[:move]
+    @command = "cp -r"  if @options[:copy]
+    @command = "ln"     if @options[:hardlink]
+    @command = "ln -s"  if @options[:symlink]
+
+    # :quiet ならば自動的に :yes
+    @options[:yes] = true if @options[:quiet]
+
+    # :quiet と同時に :no なら例外
+    if @options[:quiet] && @options[:no]
+      raise FileRenamerOptionError,
+        "Conflict options: --quiet and --no"
+    end
+  end
+
+  # 変更される名前のリストを表示し、ユーザの指示に従って実行する。
+  # ユーザの入力は [y|Y] で始まる文字列ならば実行、
+  # それ以外なら実行しない。
+  # files は対象のファイル名のリスト。
+  # 新しい名前の生成方法をブロックで渡す。
+  # ブロックがなければ例外 FileRenamerNoRenameRuleError
+  def execute(files, &block)
+    files = Dir::glob("*").sort if files.empty?
+
+    new_names = make_new_names(files, &block)
+
+    ok_files, ng_files = check_new_names(new_names)
+
+    unless @options[:quiet]
+      if ok_files.size > 0
+        puts "Enable files:"
+        max_width = ok_files.keys.max_by{|file| file.width}.width
+        ok_files.keys.sort.each do |old|
+          printf("  %s %s%s %s\n",
+            @command, old, " " * (max_width - old.width), ok_files[old]
+          )
+        end
+      end
+
+      if ng_files.size > 0
+        puts "Unable files:"
+        max_width = ng_files.keys.max_by{|file| file.width}.width
+        ng_files.keys.sort.each do |old|
+          printf("  %s %s%s %s\n",
+            @command, old, " " * (max_width - old.width), ng_files[old]
+          )
+        end
+      puts
+      end
+    end
+
+    if ok_files.empty?
+      puts "Done. No executable files." unless @options[:quiet]
+      return
+    elsif @options[:no]
+      puts "Execute? no"
+      return
+    end
+
+    if @options[:yes]
+      puts "Execute? yes" unless @options[:quiet]
+    elsif (! ask_yes?)
+      return
+    end
+    ok_files.each do |old, new|
+      run(old, new)
+    end
+  end
+
+  private
+
+  def make_new_names(files, &block)
+    results = {}
+    files.each { |i| results[i] = yield i }
+    return results
+  end
+
+  # 新しい名前リストを受け取り、問題なくリネームできるものと
+  # できないものを選別する。
+  # OK, NG の順に2つの配列を返す。
+  #
+  # 判断基準は、以下の AND 条件。
+  #   - 新しい名前が古い名前リストに含まれないこと。
+  #   - 新しい名前が新しい名前リストに1つ(自分)のみしかないこと。
+  #   - 新しい名前のファイルが既に存在しないこと。
+  #
+  # 没案
+  #   新しい名前が変換されない古い名前であれば、
+  #   これも NG リストに追加する。(表示用)
+  #   このルールにすると、変換に順序依存が生じる可能性があり、
+  #   temporary directory を経由する必要ができる。
+  #   その結果、リネーム過程で深い temporary directory を
+  #   作成したり削除したりしなければならなくなる。
+  def check_new_names(old_new_hash)
+    ok_files = {}
+    ng_files = {}
+
+    old_new_hash.each do |old, new|
+      # 変化がない場合はスルー
+      next if old == new
+
+      # 新しい名前に nil が定義されていてもスルー
+      next if new == nil
+
+      # 既に存在していれば、既に存在するファイルごと NG に登録。
+      if FileTest.exist?(new)
+        ng_files[old] = new
+        ng_files[new] = new
+        next
+      end
+
+      # new が複数 重複していれば、 NG。
+      if (old_new_hash.values.select{|name| name == new}.size > 1)
+        ng_files[old] = new
+        next
+      end
+
+      # new が old に含まれていれば、NG。
+      if (old_new_hash.keys.include?(new))
+        ng_files[old] = new
+        next
+      end
+
+      # 上記以外の場合ならば OK
+
+      ok_files[old] = new
+    end
+    return ok_files, ng_files
+  end
+
+  # ユーザに判断を求める。
+  # 標準入力から文字列を受け取り、
+  # [y|Y] から始まる文字列なら true を、
+  # それ以外なら false を返す。
+  def ask_yes?
+    puts "Execute?"
+    str = $stdin.gets
+    if /^y/i =~ str
+      return true
+    else
+      return false
+    end
+  end
+
+  # コマンドを表示しつつ実行。
+  # 既にファイルチェックされているはずなので、チェックはしない。
+  # 少なくとも当面は。
+  # ディレクトリが必要ならここで作成。
+  # ディレクトリが不要になればここで削除。
+  # 本来ここでない方が分かり易い気もするのだが、ここに追加するのが一番簡単なので。
+  def run(old, new)
+    # 変換先のディレクトリがなければ生成
+    #pp old, new; exit
+    paths(new).each do |directory|
+      unless FileTest.exist?(directory)
+        puts "  make directory: #{directory}" unless @options[:quiet]
+        FileUtils.mkdir_p(directory)
+      end
+    end
+
+    # 変換の実行
+    command = "  #{@command} #{old.escape_zsh} #{new.escape_zsh}"
+    puts command unless @options[:quiet]
+    system(command)
+
+    # 変換元のディレクトリが空になっていれば削除
+    dirs = paths(old)
+    dirs.reverse.each do |directory|
+      if Dir.entries(directory).size == 2 # . と .. のみ
+        puts "  remove directory: #{directory}" unless @options[:quiet]
+        Dir.rmdir(directory)
+      end
+    end
+  end
+
+  # パスに含まれるディレクトリ名を、階層ごとに切り分けたソート済配列にして返す。
+  # 最後の要素は含まない。
+  # e.g. foo/bar/baz.txt => ["foo", "foo/bar"]
+  # e.g. /foo/bar/baz.txt => ["/foo", "foo/bar"]
+  def paths(path)
+    dirs = path.split("/")
+    results = []
+    (dirs.size - 1).times do |i|
+      results << dirs[0..i].join("/")
+    end
+    results.delete_at(0) if results[0] == ""
+    return results
+  end
+end
+

data/lib/filerenamer/filerenameroptionparser.rb

@@ -0,0 +1,36 @@
+#! /usr/bin/env ruby
+# coding: utf-8
+
+require "optparse"
+
+# FileRenamer 用のオプション解析器。
+# ユーザはこれに任意のオプションを追加できる。
+#
+# 通常の OptionParser と異なり、インスタンス変数 @options に情報を格納する。
+# @options は attr_reader に指定されているので、外部から読み取れる。
+# @options は Hash であるので、ユーザが on で追加するブロックで
+# そのまま鍵と値を追加できる。
+# また、@options に追加せずに自前で何か適当な処理をしても良い。
+class FileRenamerOptionParser < OptionParser
+
+	attr_reader :options
+
+	def initialize
+		@options = {}
+		super
+		on("-y", "--yes"     , "Yes for all questions."){@options[:yes]     = true}
+		on("-n", "--no"      , "No  for all questions."){@options[:no]      = true}
+		on("-c", "--copy"    , "Copy mode."            ){@options[:copy]    = true}
+		on("-m", "--move"    , "Move mode.(default)"   ){@options[:move]    = true}
+		on("-h", "--hardlink", "Hardlink mode."        ){@options[:hardlink]= true}
+		on("-s", "--symlink" , "Symlink mode."         ){@options[:symlink] = true}
+		on("-q", "--quiet"   , "Quiet mode. Forced non-interactive."){
+			@options[:quiet] = true
+			#このオプションが設定されているときは強制的に --yes として扱われる。
+			#non_interactive_mode になる。
+		}
+	end
+
+end
+
+

data/test/helper.rb

@@ -0,0 +1,17 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'test/unit'
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'filerenamer'
+
+class Test::Unit::TestCase
+end

data/test/test_filerenamer.rb

@@ -0,0 +1,404 @@
+#! /usr/bin/env ruby
+# coding: utf-8
+
+require 'helper'
+
+require "test/unit"
+require "filerenamer/filerenamer.rb"
+require "stringio"
+require "rubygems"
+gem "capture_stdout"
+require "capture_stdout"
+
+class FileRenamer
+  public :check_new_names
+  public :ask_yes?
+  public :run
+  public :make_new_names
+  public :paths
+  attr_reader :options
+end
+
+class TC_FileRenamer < Test::Unit::TestCase
+  EXIST_FILE = "test/filerenamer/dummy.txt"
+
+  A_0 = "test/filerenamer/a0.txt"
+  A_1 = "test/filerenamer/a1.txt"
+
+  def setup
+    options = {}
+    @fr00 = FileRenamer.new(options)
+
+    options = {:copy => true, :yes => true}
+    @fr01 = FileRenamer.new(options)
+  end
+
+  def test_initialize
+    # yes and no
+    options = {
+      :yes => true,
+      :no => true,
+    }
+    assert_raise(FileRenamerOptionError){ FileRenamer.new(options) }
+
+    # ファイル操作モードがどれか1つのみ true なら OK。
+    options = { :copy => true, }
+    assert_nothing_raised{ FileRenamer.new(options) }
+
+    options = { :move => true, }
+    assert_nothing_raised{ FileRenamer.new(options) }
+
+    options = { :hardlink => true, }
+    assert_nothing_raised{ FileRenamer.new(options) }
+
+    options = { :symlink => true, }
+    assert_nothing_raised{ FileRenamer.new(options) }
+
+    # ファイル操作モードが空でも OK で、その場合は :move が true として扱われる。
+    options = { }
+    fr00 = FileRenamer.new(options)
+    assert_equal( {:move => true}, fr00.options )
+
+    # ファイル操作モードで矛盾する2つ以上が true なら例外。
+    options = {
+      :move => true,
+      :copy => true,
+    }
+    assert_raise(FileRenamerOptionError){ FileRenamer.new(options) }
+
+    options = {
+      :move => true,
+      :hardlink => true,
+    }
+    assert_raise(FileRenamerOptionError){ FileRenamer.new(options) }
+
+    options = {
+      :move => true,
+      :symlink => true,
+    }
+    assert_raise(FileRenamerOptionError){ FileRenamer.new(options) }
+
+    # :quiet が立てられれば、自動的に :yes も true になる。
+    options = {:quiet => true}
+    fr00 = FileRenamer.new(options)
+    assert_equal( {:quiet => true, :yes => true, :move => true}, fr00.options )
+
+    # :quiet が立てられれば、:yes が明示的に立っていても問題なし。
+    options = {:quiet => true, :yes => true}
+    fr00 = FileRenamer.new(options)
+    assert_equal( {:quiet => true, :yes => true, :move => true}, fr00.options )
+
+    # :quiet が立てられれば、:no が立っていれば例外。
+    options = {:quiet => true, :no => true}
+    assert_raise(FileRenamerOptionError){ FileRenamer.new(options) }
+  end
+
+  def test_execute
+    # :yes
+    # pre-process
+    FileUtils.rm(A_1) if FileTest.exist?(A_1)
+    #
+    options = {:copy => true, :yes => true}
+    fr01 = FileRenamer.new(options)
+    str = capture_stdout{fr01.execute([A_0]){ A_1 }}
+    assert_equal(true, FileTest.exist?(A_0))
+    assert_equal(true, FileTest.exist?(A_1))
+    FileUtils.rm(A_1)
+    #
+    correct = 
+      "Enable files:\n" +
+      "  cp -r #{A_0} #{A_1}\n" +
+      "Execute? yes\n" +
+      "  cp -r #{A_0} #{A_1}\n"
+    t = str
+    assert_equal(correct[0], t[0])
+    assert_equal(correct[1], t[1])
+    assert_equal(correct[2], t[2])
+    assert_equal(correct[3], t[3])
+    assert_equal(correct[4], t[4])
+
+    # :no
+    FileUtils.rm(A_1) if FileTest.exist?(A_1)
+    #
+    options = {:copy => true, :no => true}
+    fr01 = FileRenamer.new(options)
+    str = capture_stdout{ fr01.execute([A_0]){ A_1 }}
+    assert_equal(true , FileTest.exist?(A_0))
+    assert_equal(false, FileTest.exist?(A_1))
+    #
+    correct = 
+      "Enable files:\n" +
+      "  cp -r #{A_0} #{A_1}\n" +
+      "Execute? no\n"
+    t = str
+    assert_equal(correct[0], t[0])
+    assert_equal(correct[1], t[1])
+    assert_equal(correct[2], t[2])
+
+    #:quiet
+    FileUtils.rm(A_1) if FileTest.exist?(A_1)
+    io = StringIO.new
+    #
+    options = {:copy => true, :quiet => true}
+    fr01 = FileRenamer.new(options)
+    str = capture_stdout{fr01.execute([A_0]){ A_1 }}
+    assert_equal(true, FileTest.exist?(A_0))
+    assert_equal(true, FileTest.exist?(A_1))
+    FileUtils.rm(A_1)
+    #
+    assert_equal( "", str)
+
+    #ask
+    FileUtils.rm(A_1) if FileTest.exist?(A_1)
+    $stdin = StringIO.new
+    $stdin.puts "yes"
+    $stdin.rewind
+    output = StringIO.new
+    #
+    options = {:copy => true}
+    fr01 = FileRenamer.new(options)
+    str = capture_stdout{fr01.execute([A_0]){ A_1 }}
+    assert_equal(true, FileTest.exist?(A_0))
+    assert_equal(true, FileTest.exist?(A_1))
+    FileUtils.rm(A_1)
+    #
+    correct = 
+        "Enable files:\n" +
+        "  cp -r #{A_0} #{A_1}\n" +
+        "Execute?\n" +
+        "  cp -r #{A_0} #{A_1}\n"
+    t = str
+    assert_equal(correct[0], t[0])
+    assert_equal(correct[1], t[1])
+    assert_equal(correct[2], t[2])
+    assert_equal(correct[3], t[3])
+
+    $stdin = STDIN
+
+    #ask
+    #NG ファイルが存在するときの表示
+    FileUtils.rm(A_1) if FileTest.exist?(A_1)
+    $stdin = StringIO.new
+    $stdin.puts "yes"
+    $stdin.rewind
+    output = StringIO.new
+    #
+    options = {:copy => true}
+    fr01 = FileRenamer.new(options)
+    str = capture_stdout{fr01.execute([A_1]){ A_0 }}
+    assert_equal(true , FileTest.exist?(A_0))
+    assert_equal(false, FileTest.exist?(A_1))
+    #
+    correct = 
+      "Unable files:\n" +
+      "  cp -r #{A_0} #{A_0}\n" +
+      "  cp -r #{A_1} #{A_0}\n" +
+      "\n" +
+      "Done. No executable files.\n"
+    t = str
+    assert_equal(correct[0], t[0])
+    assert_equal(correct[1], t[1])
+    assert_equal(correct[2], t[2])
+    assert_equal(correct[3], t[3])
+    assert_equal(correct[4], t[4])
+    $stdin = STDIN
+
+    ## ファイルリストを与えないときはカレントディレクトリの全ファイルが対象。
+    #FileUtils.rm(A_1) if FileTest.exist?(A_1)
+    ##
+    #options = {:copy => true, :no => true}
+    #fr01 = FileRenamer.new(options)
+    #str = capture_stdout{ fr01.execute([]){|name| name + ".00"}}
+    ##
+    #correct = 
+    #  "Enable files:\n" +
+    #  "  cp -r Gemfile      Gemfile.00\n" +
+    #  "  cp -r Gemfile.lock Gemfile.lock.00\n" +
+    #  "  cp -r LICENSE.txt  LICENSE.txt.00\n" +
+    #  "  cp -r README.rdoc  README.rdoc.00\n" +
+    #  "  cp -r Rakefile     Rakefile.00\n" +
+    #  "  cp -r VERSION      VERSION.00\n" +
+    #  "  cp -r lib          lib.00\n" +
+    #  "  cp -r test         test.00\n" +
+    #  "Execute? no\n"
+    #assert_equal( correct, str)
+  end
+
+  def test_make_new_names
+    assert_equal(
+      {
+        A_0 => A_0 + "00",
+        A_1 => A_1 + "00",
+      },
+      @fr00.make_new_names([A_0, A_1]){ |old|
+        old.sub(/$/, "00")
+      }
+    )
+  end
+
+  def test_check_new_names
+    files = {
+      "alice.txt"   => EXIST_FILE,
+      "bcdefgh.txt" => EXIST_FILE,
+      "charly.txt"  => "C.txt",
+      "david.txt"   => "D.txt",
+      EXIST_FILE    => EXIST_FILE,
+      "eva.txt"     => "alice.txt",
+      "f.txt"       => "f.txt",
+      "g.txt"       => nil,
+    }
+    ok_list, ng_list = @fr00.check_new_names(files)
+    assert_equal(
+      { "charly.txt"  => "C.txt",
+        "david.txt"   => "D.txt",
+      },
+      ok_list
+    )
+    assert_equal(
+      { "alice.txt"   => EXIST_FILE,
+        "bcdefgh.txt" => EXIST_FILE,
+        EXIST_FILE    => EXIST_FILE,
+        "eva.txt"     => "alice.txt",
+      },
+      ng_list
+    )
+
+  end
+
+  def test_ask_yes?
+    $stdin = StringIO.new
+    $stdin.puts "Y"
+    $stdin.rewind
+    result = Object.new
+    str = capture_stdout{ result = @fr00.ask_yes?}
+    assert_equal(true , result)
+    assert_equal("Execute?\n" , str)
+
+    $stdin = StringIO.new
+    $stdin.puts "y"
+    $stdin.rewind
+    io = capture_stdout{ result = @fr00.ask_yes?}
+    assert_equal(true , result)
+
+    $stdin = StringIO.new
+    $stdin.puts "Yreqwj"
+    $stdin.rewind
+    io = capture_stdout{ result = @fr00.ask_yes?}
+    assert_equal(true , result)
+
+    $stdin = StringIO.new
+    $stdin.puts "yrqewv"
+    $stdin.rewind
+    io = capture_stdout{ result = @fr00.ask_yes?}
+    assert_equal(true , result)
+
+    $stdin = StringIO.new
+    $stdin.puts "n"
+    $stdin.rewind
+    io = capture_stdout{ result = @fr00.ask_yes?}
+    assert_equal(false, result)
+
+    $stdin = StringIO.new
+    $stdin.puts "N"
+    $stdin.rewind
+    io = capture_stdout{ result = @fr00.ask_yes?}
+    assert_equal(false, result)
+
+    $stdin = StringIO.new
+    $stdin.puts ""
+    $stdin.rewind
+    io = capture_stdout{ result = @fr00.ask_yes?}
+    assert_equal(false, result)
+  end
+
+  def test_run
+#		# ディレクトリ管理不要の場合
+#		FileUtils.rm(A_1) if FileTest.exist?(A_1)
+#		#
+#		@fr01.run(A_0, A_1)
+#		io = capture_stdout{ @fr01.run(A_0, A_1) }
+#		io.rewind
+#		assert_equal(["  cp -r #{A_0} #{A_1}\n"], io.readlines)
+#		#
+#		assert_equal(true, FileTest.exist?(A_0))
+#		assert_equal(true, FileTest.exist?(A_1))
+#		#
+#		# あとかたづけ
+#		FileUtils.rm(A_1)
+#
+#		# ディレクトリ生成が必要な場合
+#		FileUtils.rm("tmp/#{A_1}") if FileTest.exist?("tmp/#{A_1}")
+#		FileUtils.rmdir("tmp/test/FileRenamer") if FileTest.exist?("tmp/test/FileRenamer")
+#		FileUtils.rmdir("tmp/test") if FileTest.exist?("tmp/test")
+#		FileUtils.rmdir("tmp") if FileTest.exist?("tmp")
+#		#
+#		io = capture_stdout{ @fr01.run(A_0, "tmp/"+A_1) }
+#		io.rewind
+#		t = io.readlines
+#		assert_equal("  make directory: tmp\n", t[0])
+#		assert_equal("  make directory: tmp/test\n", t[1])
+#		assert_equal("  make directory: tmp/test/FileRenamer\n", t[2])
+#		assert_equal("  cp -r #{A_0} tmp/#{A_1}\n", t[3])
+#		assert_equal(4, t.size)
+#		#
+#		assert_equal(true, FileTest.exist?(A_0))
+#		assert_equal(true, FileTest.exist?("tmp/#{A_1}"))
+#		assert_equal(true, FileTest.exist?("tmp/test/FileRenamer"))
+#		assert_equal(true, FileTest.exist?("tmp/test"            ))
+#		assert_equal(true, FileTest.exist?("tmp"                 ))
+#		#
+#		# あとかたづけ
+#		FileUtils.rm("tmp/#{A_1}")
+#		FileUtils.rmdir("tmp/test/FileRenamer")
+#		FileUtils.rmdir("tmp/test"            )
+#		FileUtils.rmdir("tmp"                 )
+
+    # ディレクトリ消去が必要な場合
+    FileUtils.rm("tmp1/dir/a1.txt") if FileTest.exist?("tmp1/dir/a1.txt")
+    FileUtils.rm("tmp2/dir/a1.txt") if FileTest.exist?("tmp2/dir/a1.txt")
+    FileUtils.rmdir("tmp1/dir") if FileTest.exist?("tmp1")
+    FileUtils.rmdir("tmp2/dir") if FileTest.exist?("tmp2")
+    FileUtils.rmdir("tmp1") if FileTest.exist?("tmp1")
+    FileUtils.rmdir("tmp2") if FileTest.exist?("tmp2")
+    #
+    FileUtils.mkdir("tmp1")
+    FileUtils.mkdir("tmp1/dir")
+    FileUtils.cp(A_0, "tmp1/dir/a1.txt")
+    #
+    assert_equal(false, FileTest.exist?("tmp2/dir/a2")) #実行前に変換先が存在しないことを確認。
+    #@fr00.run("tmp1/dir/a1.txt", "tmp2/dir/a1.txt")
+    str = capture_stdout{ @fr00.run("tmp1/dir/a1.txt", "tmp2/dir/a1.txt") }
+    t = str
+    correct = "  make directory: tmp2\n" +
+      "  make directory: tmp2/dir\n" +
+      "  mv tmp1/dir/a1.txt tmp2/dir/a1.txt\n" +
+      "  remove directory: tmp1/dir\n" +
+      "  remove directory: tmp1\n"
+    assert_equal(correct, t)
+    #
+    assert_equal(false, FileTest.exist?("tmp1"))
+    assert_equal(true , FileTest.exist?("tmp2/dir/a1.txt")) #実行後に変換先が存在することを確認。
+    #
+    # あとかたづけ
+    FileUtils.rmdir("tmp1/dir")
+    FileUtils.rmdir("tmp1")
+    FileUtils.rm("tmp2/dir/a1.txt")
+    FileUtils.rmdir("tmp2/dir")
+    FileUtils.rmdir("tmp2")
+  end
+
+  def test_paths
+    assert_equal(["foo", "foo/bar"], @fr00.paths("foo/bar/baz.txt"))
+    assert_equal([], @fr00.paths("baz.txt"))
+    assert_equal(["/foo", "/foo/bar"], @fr00.paths("/foo/bar/baz.txt"))
+  end
+
+  #undef test_initialize
+  #undef test_make_new_names
+  #undef test_check_new_names
+  #undef test_ask_yes?
+  #undef test_execute
+  #undef test_run
+
+end
+