########################################################################
# test_clean.rb
#
# Test suite for the Pathname2#clean method.
########################################################################
require 'test-unit'
require 'pathname2'

class TC_Pathname2_Clean < Test::Unit::TestCase
  def setup
    @path = Pathname2.new("C:\\foo\\..\\bar\\.\\baz")
  end

  test "clean basic functionality" do
    assert_respond_to(@path, :clean)
    assert_nothing_raised{ @path.clean }
    assert_kind_of(Pathname2, @path.clean)
  end

  test "clean returns expected results for unclean paths" do
    assert_equal("C:\\a\\c", Pathname2.new("C:\\a\\.\\b\\..\\c").clean)
    assert_equal("C:\\a", Pathname2.new("C:\\.\\a").clean)
    assert_equal("C:\\a\\b", Pathname2.new("C:\\a\\.\\b").clean)
    assert_equal("C:\\b", Pathname2.new("C:\\a\\..\\b").clean)
    assert_equal("C:\\a", Pathname2.new("C:\\a\\.").clean)
    assert_equal("C:\\d", Pathname2.new("C:\\..\\..\\..\\d").clean)
  end

  test "clean returns already clean paths unmodified" do
    assert_equal("C:\\", Pathname2.new("C:\\").clean)
    assert_equal("C:\\a", Pathname2.new("C:\\a").clean)
    assert_equal("C:\\a\\", Pathname2.new("C:\\a\\").clean)
    assert_equal("\\\\foo\\bar", Pathname2.new("\\\\foo\\bar").clean)
    assert_equal("a", Pathname2.new("a").clean)
  end

  test "clean returns a slash for . and .." do
    assert_equal("\\", Pathname2.new(".").clean)
    assert_equal("\\", Pathname2.new("..").clean)
  end

  test "clean does not modify receiver" do
    @path.clean
    assert_equal("C:\\foo\\..\\bar\\.\\baz", @path)
  end

  def teardown
    @path = nil
  end
end
