# Copyright, 2012, by Samuel G. D. Williams. <http://www.codeotaku.com>
# 
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
# 
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
# 
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.

require 'build/files'
require 'build/files/path'

require 'pathname'

module Build::Files::PathSpec
	include Build::Files
	
	describe Build::Files::Path do
		let(:path) {Path.new("/foo/bar/baz", "/foo")}
		
		it "should convert to path" do
			pathname = Pathname("/foo/bar/baz")
			
			expect(Path[pathname]).to be == path
			expect(Path["/foo/bar/baz"]).to be == path
		end
		
		it "should be equal" do
			expect(path).to be_eql path
			expect(path).to be == path
			
			different_root_path = Path.join("/foo/bar", "baz")
			expect(path).to_not be_eql different_root_path
			expect(path).to be == different_root_path
		end
		
		it "should convert to string" do
			expect(path.to_s).to be == "/foo/bar/baz"
			
			# The to_str method should return the full path (i.e. the same as to_s):
			expect(path.to_s).to be == path.to_str
			
			# Check the equality operator:
			expect(path).to be == path.dup
			
			# The length should be reported correctly:
			expect(path.length).to be == path.to_s.length
			
			# Check the return types:
			expect(path).to be_kind_of Path
			expect(path.root).to be_kind_of String
			expect(path.relative_path).to be_kind_of String
		end
		
		it "should consist of parts" do
			expect(path.parts).to be == ["", "foo", "bar", "baz"]
			
			expect(path.root).to be == "/foo"
			
			expect(path.relative_path).to be == "bar/baz"
			
			expect(path.relative_parts).to be == ["bar", "baz"]
		end
		
		it "should have a new extension" do
			renamed_path = path.with(root: '/tmp', extension: '.txt')
			
			expect(renamed_path.root).to be == '/tmp'
			
			expect(renamed_path.relative_path).to be == 'bar/baz.txt'
			
			object_path = path.append(".o")
		
			expect(object_path.root).to be == "/foo"
			expect(object_path.relative_path).to be == "bar/baz.o"
		end
		
		it "should give the shortest path for outer paths" do
			spec_path = Path.new(__FILE__)
			source_path = Path.new(File.expand_path("../../../lib/build/files/list.rb"))
			
			input = Path.new("/a/b/c/file.cpp")
			output = Path.new("/a/b/c/d/e/")
			
			expect(input.root).to be == "/a/b/c"
			expect(output.root).to be == "/a/b/c/d/e"
			
			short = input.shortest_path(output)
			
			expect(short).to be == "../../file.cpp"
			
			expect(File.expand_path(short, output)).to be == input
		end
		
		it "should give the shortest path for inner paths" do
			input = Path.new("/a/b/c/file.cpp")
			output = Path.new("/a/")
			
			expect(input.root).to be == "/a/b/c"
			expect(output.root).to be == "/a"
			
			short = input.shortest_path(output)
			
			expect(short).to be == "b/c/file.cpp"
			
			expect(File.expand_path(short, output)).to be == input
		end
		
		it "should append a path" do
			path = Path.new("/a/b/c")
			
			expect(path + "d/e/f").to be == "/a/b/c/d/e/f"
		end
		
		it "should have a new root" do
			rerooted_path = path / "cat"
			
			expect(rerooted_path.root).to be == "/foo/bar/baz"
			expect(rerooted_path.relative_path).to be == "cat"
		end
	end
end