Immutable clone test.

Author: ioquatix

fixtures/teapot/command/a_clone.rb

@@ -6,12 +6,16 @@
 require "sus/shared"
 require "build/files"
 
+require "sus/fixtures/temporary_directory_context"
+
 module Teapot
 	module Command
 		# Scratch directory used by clone integration tests.
 		# The test deletes and recreates this directory during the run.
-		AClone = Sus::Shared("teapot/command/clone fixture") do
-			let(:root) {::Build::Files::Path.new(File.expand_path("clone", __dir__))}
+		AClone = Sus::Shared("a clone") do
+			include Sus::Fixtures::TemporaryDirectoryContext
+			
+			let(:template_root) {::Build::Files::Path.new(File.expand_path("clone", __dir__))}
 		end
 	end
 end

fixtures/teapot/command/a_fetch.rb

@@ -13,10 +13,10 @@ module Command
 		AFetch = Sus::Shared("a fetch") do
 			include Sus::Fixtures::TemporaryDirectoryContext
 
-			let(:fetch_root) {::Build::Files::Path.new(File.expand_path("fetch", __dir__))}
+			let(:template_root) {::Build::Files::Path.new(File.expand_path("fetch", __dir__))}
 
 			before do
-				FileUtils.cp_r(File.join(fetch_root, "test-project"), root)
+				FileUtils.cp_r(File.join(template_root, "test-project"), root)
 			end
 		end
 	end

test/teapot/command/clone.rb

@@ -7,23 +7,20 @@
 require "teapot/command/a_clone"
 
 describe Teapot::Command::Clone do
-	include_context Teapot::Command::AClone
+	include Teapot::Command::AClone
 
 	let(:source) {"https://github.com/kurocha/tagged-format"}
 
-	let(:top) {Teapot::Command::Top["--root", root.to_s]}
-	
-	before do
-		root.delete
-	end
+	let(:project_root) {File.join(root, "project")}
+	let(:top) {Teapot::Command::Top["--root", project_root.to_s]}
 
 	with "clone remote source" do
-		let(:subject) {top["clone", source]}
+		let(:subject) {top["clone", template_root.to_s]}
 
 		it "should checkout files" do
 			subject.call
 
-			expect(File).to be(:exist?, root + "teapot.rb")
+			expect(File).to be(:exist?, File.join(project_root, "teapot.rb"))
 
 			selection = top.context.select