tap 0.7.9 → 0.8.0

data/test/test/env_vars_test.rb

@@ -0,0 +1,48 @@
+require File.join(File.dirname(__FILE__), '../tap_test_helper.rb') 
+
+class EnvVarsTest < Test::Unit::TestCase
+  include Tap::Test::EnvVars
+	
+	def setup
+	  @env_hold = {}
+	  ENV.each_pair do |key, value|
+	    @env_hold[key] = value
+	  end
+		ENV.clear
+	end
+	
+	def teardown
+	  ENV.clear
+	  @env_hold.each_pair do |key, value|
+	    ENV[key] = value
+	  end
+	end
+	
+	#
+	# env test
+	#
+	
+	def test_env_access_is_case_insensitive
+		ENV['key1'] = "value"
+		assert_equal 'value', env('key1')
+		assert_equal 'value', env('KEY1')
+		
+		ENV['KEY2'] = "VALUE"
+		assert_equal 'VALUE', env('key2')
+		assert_equal 'VALUE', env('KEY2')
+	end
+	
+	def test_env_raises_error_if_multiple_values_can_be_selected
+		ENV['key'] = "value"
+		ENV['KEY'] = "VALUE"
+    
+    # Some platforms (ex Windows) already make ENV case-independent
+    # Filter for the platforms that do not by checking that ENV has both
+    # expected keys
+    if ENV.length == 2
+		  assert_raise(RuntimeError) { env('key') }
+		  assert_raise(RuntimeError) { env('Key') }
+    end
+	end
+
+end

data/test/test/file_methods/test_assert_output_files_equal/expected/one.txt

@@ -0,0 +1 @@
+processed file one

data/test/test/file_methods/test_assert_output_files_equal/expected/two.txt

@@ -0,0 +1 @@
+processed file two

data/test/test/file_methods/test_assert_output_files_equal/input/one.txt

@@ -0,0 +1 @@
+file one

data/test/test/file_methods/test_assert_output_files_equal/input/two.txt

@@ -0,0 +1 @@
+file two

data/test/test/file_methods_test.rb

@@ -0,0 +1,204 @@
+require File.join(File.dirname(__FILE__), '../tap_test_helper.rb') 
+require 'tap/test/file_methods'
+
+class FileMethodsTest < Test::Unit::TestCase
+  include Tap::Test::SubsetMethods
+  acts_as_file_test
+  
+  def test_method_name_returns_test_method_name1
+    assert_equal "test_method_name_returns_test_method_name1", method_name  
+  end
+  
+  def test_method_name_returns_test_method_name2
+    assert_equal "test_method_name_returns_test_method_name2", method_name  
+  end
+  
+	def test_make_test_directories 
+    root = File.expand_path(File.join(File.dirname(__FILE__), "file_methods"))
+    begin
+		  assert_equal root, trs[:root]
+		  assert_equal({
+				  :input => 'input', 
+				  :output => 'output', 
+				  :expected => 'expected'}, trs.directories)
+      
+      trs.directories.values.each do |dir|
+        assert !File.exists?(File.join(root, "test_make_test_directories", dir.to_s)), dir
+      end
+      
+      make_test_directories # alias for make_test_directories
+   
+      trs.directories.values.each do |dir|
+        assert File.exists?(File.join(root, "test_make_test_directories", dir.to_s)), dir
+      end
+    ensure
+      dir =  File.join(File.join(root, "test_make_test_directories"))
+      FileUtils.rm_r dir if File.exists?(dir)
+    end
+	end
+
+	#
+	# method filepath tests
+	#
+
+	def test_method_dir_adds_method_to_path	
+		assert_equal File.join(trs.root, method_name, "input"), method_dir(:input)
+	end
+	
+	def test_method_filepath_adds_method_to_path
+    input_root = File.join(trs.root, method_name, "input")
+		assert_equal File.join(input_root, "file.txt"), method_filepath(:input, 'file.txt')
+		assert_equal File.join(input_root, "folder/file.txt"), method_filepath(:input, 'folder', 'file.txt')
+	end
+
+	#
+	# method relative filepath tests
+	#
+
+	def test_method_relative_filepath_removes_method_dir	
+    input_root = File.join(trs.root, method_name, "input")
+		assert_equal 'file.txt', method_relative_filepath(:input,  File.join(input_root, "file.txt"))
+		assert_equal 'folder/file.txt', method_relative_filepath(:input, File.join(input_root, "folder/file.txt"))
+	end
+
+	def test_method_relative_filepath_expands_filepaths
+    input_root = File.join(trs.root, method_name, "input")
+		assert_equal 'file.txt', method_relative_filepath(:input, File.join(input_root, "folder/.././file.txt") )
+	end
+	
+	def test_method_relative_filepath_raises_error_unless_filepath_begins_with_method_dir
+		assert_raise(RuntimeError) { method_relative_filepath(:input, File.join('some/path', trs[:input], 'file.txt') ) }
+	end
+	
+	#
+	# method translate tests
+	#
+	
+	def test_method_translate
+		['file.txt', 'folder/file.txt'].each do |path|
+			filepath = File.join(trs.root, method_name, "input", path)
+			expected = File.join(trs.root, method_name, "output", path)
+		
+			assert_equal expected, method_translate(filepath, :input, :output)
+		end
+	end	
+	
+	#
+	# method glob tests
+	#
+	
+	def test_method_glob
+		{
+			[:expected] => ["file.yml", "file_1.txt", "file_2.txt"],
+			[:expected, "*"] => ["file.yml", "file_1.txt", "file_2.txt"],
+			[:expected, "*.txt"] => ["file_1.txt", "file_2.txt"],
+			[:expected, "*.txt", "*.yml"] => ["file.yml", "file_1.txt", "file_2.txt"]
+		}.each_pair do |testcase, expected|
+			expected.collect! { |file| method_filepath(:expected, file) }
+			
+			assert_equal expected.sort, method_glob(*testcase).sort
+		end
+	end	
+	
+	#
+	# tempfile test
+	#
+	
+	def test_tempfile_returns_new_file_in_output_dir
+    output_root = File.join(trs.root, method_name, "output")
+    
+		filepath =File.join(output_root, "file#{$$}.0")
+		assert_equal filepath, tempfile('file')
+		
+		filepath = File.join(output_root,  "file#{$$}.0")
+		assert_equal filepath, tempfile('file')
+		
+		FileUtils.touch filepath
+		filepath = File.join(output_root,  "file#{$$}.1")
+		assert_equal filepath, tempfile('file')
+		
+		FileUtils.touch filepath
+		filepath = File.join(output_root,  "file#{$$}.2")
+		assert_equal filepath, tempfile('file')
+	end
+	
+	#
+	# files equal test
+	#
+	
+	def test_file_compare
+		count = 0
+		each_pair(method_glob(:input, "*1*"), method_glob(:expected, "*1*") ) do |a, b|
+			assert files_equal?(a, b)
+			count += 1
+		end
+		assert_equal 1, count
+		
+		each_pair(method_glob(:input, "*2*"), method_glob(:expected, "*2*") ) do |a, b|
+			assert !files_equal?(a, b)
+			count += 1
+		end
+		assert_equal 2, count
+	end
+	
+	#
+	# yml equal test
+	#
+	
+	def test_yml_compare
+		count = 0
+		each_pair(method_glob(:input, "*1*"), method_glob(:expected, "*1*") ) do |a, b|
+			assert yml_equal?(a, b)
+			count += 1
+		end
+		assert_equal 1, count
+		
+		each_pair(method_glob(:input, "*2*"), method_glob(:expected, "*2*") ) do |a, b|
+			assert !yml_equal?(a, b)
+			count += 1
+		end
+		assert_equal 2, count
+	end
+  
+  #
+  # assert_output_files_equal
+  #
+  
+  def setup_file(dir, path, content)
+    path = method_filepath(dir, path)
+    dir = File.dirname(path)
+    FileUtils.mkdir_p(dir) unless File.exists?(dir)
+    
+    File.open(path, "w") {|f| f << content}
+    path
+  end
+  
+  def test_assert_output_files_equal
+    setup_file :input, "one.txt", "file one"
+    setup_file :input, "two.txt", "file two"
+    setup_file :expected, "one.txt", "processed file one"
+    setup_file :expected, "two.txt", "processed file two"
+    
+    assert_output_files_equal(:iterate_inputs => true) do |input_file|
+      target = method_filepath(:output, File.basename(input_file))
+      File.open(target, "w") do |file|
+        file << "processed "
+        file << File.read(input_file)
+      end
+      target
+    end
+  end
+end
+
+class FileTestTestWithOptions < Test::Unit::TestCase
+	acts_as_file_test :root => "some/root/dir"
+	
+	def test_test_setup
+		assert_equal File.expand_path("some/root/dir"), trs[:root]
+		assert_equal({
+				:input => 'input', 
+				:output => 'output', 
+				:expected => 'expected'}, trs.directories)
+	end
+end
+

data/test/test/subset_methods_test.rb

@@ -3,10 +3,7 @@ require 'tap/test/subset_methods'
 
 class SubsetMethodsTest < Test::Unit::TestCase
   include Tap::Test::SubsetMethods
-	
-	# TODO - replace ENV[] with env() throughout,
-	# and override env() so ENV is absolutely NOT
-	# modified
+	include Benchmark
 	
 	def setup
 	  @env_hold = {}
@@ -43,7 +40,48 @@ class SubsetMethodsTest < Test::Unit::TestCase
 		ENV['type'] = "TRUE"
 		assert env_true?('type')
 	end
-
+	
+	#
+	# extended_test test
+	#
+	
+	def test_extended_test_runs_only_if_extended_true
+	  was_in_test = false
+	  extended_test { was_in_test = true }
+	  assert !was_in_test
+	  
+	  ENV['EXTENDED'] = 'true'
+	  extended_test { was_in_test = true }
+	  assert was_in_test
+	end
+	
+	#
+	# condition test
+	#
+	
+	condition(:is_true) {true}
+	condition(:is_false) {false}
+	
+	def test_conditional_test_runs_only_if_all_conditions_are_true
+	  test_ran = false
+	  condition_test(:is_true) { test_ran = true}
+	  assert test_ran
+	  
+	  test_ran = false
+	  condition_test(:is_false) { test_ran = true}
+	  assert !test_ran
+	  
+	  test_ran = false
+	  condition_test(:is_true, :is_false) { test_ran = true}
+	  assert !test_ran
+	end
+	
+	#
+	# benchmark_test test
+	#
+	
+	# TODO - find a way to test this is a quiet fashion
+	
 	#
 	# run subset test
 	#
@@ -84,32 +122,54 @@ class SubsetMethodsTest < Test::Unit::TestCase
 	def test_match_regexp_returns_default_unless_ENV_type_is_set
 		assert_equal "default", match_regexp?('type', 1, "default")
 	end
-	
-	#
-	# calling method tests
-	#
-	
-	def nested_call_to_calling_method
-		assert_equal 'test_calling_method', calling_method
-	end
-	
-	def nested_call_with_alternate_pattern
-		assert_equal 'nested_call_with_alternate_pattern', calling_method(/^nested/)
-	end
-	
-	def test_calling_method
-		assert_equal 'test_calling_method', calling_method
-		nested_call_to_calling_method
-		nested_call_with_alternate_pattern
-	end
-	
-	#
-	# singleline pp test
-	#
-	
-	def test_format_pps_input
-		[1, "two", [:three, 4]].each do |input|
-			assert_equal PP.singleline_pp(input, ''), spp(input)
-		end
-	end
+end
+
+class SkippedTest < Test::Unit::TestCase
+  include Tap::Test::SubsetMethods
+  
+  if !conditions.empty?
+    raise "conditions were NOT empty in subclass"
+  end
+  
+  condition(:unsatisfied) do 
+    false
+  end
+  
+  unless satisfied?(:unsatisfied)
+    skip_test
+  end
+  
+  def test_method
+    flunk "test WAS run"
+  end
+end
+
+class SkippedSubTest < SkippedTest
+  if conditions.empty?
+    raise "conditions WERE empty in subclass"
+  end
+  
+  condition(:unsatisfied) do 
+    true
+  end
+
+  def test_method
+    assert true
+  end
+end
+
+class NonSkippedTest < Test::Unit::TestCase
+  include Tap::Test::SubsetMethods
+  
+  condition(:unsatisfied) do 
+    true    
+  end
+  
+  unless satisfied?(:unsatisfied)
+    skip_test
+  end
+  
+  def test_method
+    assert true
+  end
 end