DTR 0.0.1 → 0.0.2

data/lib/dtr/service_provider.rb

@@ -0,0 +1,91 @@
+require 'dtr/env_store'
+require 'drb'
+require 'rinda/ring'
+require 'rinda/tuplespace'
+
+module DTR
+  class ServiceProvider
+  
+    def self.broadcast_list=(list)
+      EnvStore.new[:broadcast_list] = list
+    end
+    
+    PORT = 3344
+    BROADCAST_LIST = []
+    
+    def initialize
+      puts "-- Initializing drb service..."
+      env_store = EnvStore.new
+      (env_store[:broadcast_list] || ['localhost']).each do |broadcast|
+        BROADCAST_LIST << broadcast.untaint
+        puts "-- Added broadcast: #{broadcast}"
+      end
+      DRb.start_service
+    end
+    
+    # start DTR server
+    def start
+      puts '-- Booting DTR server...'
+      Rinda::RingServer.new Rinda::TupleSpace.new, PORT
+      puts "-- DTR server started on port #{PORT}"
+      #set safe level to 1 here, now, runner can't set to 1, cause test should can do anything
+      #......
+      $SAFE = 1 unless $DEBUG   # disable eval() and friends
+      # Wait until the user explicitly kills the server.
+      DRb.thread.join
+    end
+    
+    def provide(runner)
+      renewer = Rinda::SimpleRenewer.new
+      tuple = [:name, :'DTR::Runner', runner.freeze, "DTR remote runner #{runner.name}"]
+      lookup_ring.write(tuple, renewer)
+    end
+    
+    def lookup_runner
+      lookup_ring.take([:name, :'DTR::Runner', nil, nil])[2]
+    end
+    
+    def runners
+      lookup_ring.read_all([:name, :'DTR::Runner', nil, nil]).collect {|rt| rt[2]}
+    end
+    
+    def wait_until_teardown
+      lookup_ring.notify(nil, [:working_env, nil]).pop
+    end
+
+    def working_env
+      lookup_ring.read([:working_env, nil])[1]
+    end
+    
+    def setup_working_env(env)
+      clear_workspace
+      lookup_ring.write [:working_env, env]
+    end
+    
+    def teardown_working_env
+      clear_workspace
+    end
+
+    def start_service
+      DRb.start_service
+    end
+    
+    def stop_service
+      DRb.stop_service
+    end
+    
+    def clear_workspace
+      runners.size.times do
+        lookup_runner.shutdown rescue nil
+      end
+      lookup_ring.read_all([:working_env, nil]).size.times do
+        lookup_ring.take [:working_env, nil] rescue nil
+      end rescue nil
+    end
+
+    private
+    def lookup_ring
+      Rinda::TupleSpaceProxy.new(Rinda::RingFinger.new(BROADCAST_LIST, PORT).lookup_ring_any)
+    end
+  end
+end

data/lib/dtr/svn.rb

@@ -0,0 +1,20 @@
+module DTR
+  class SvnRepository
+    def revision
+      output = %x[svn info]
+      if /Revision: (\d+)/ =~ output
+        $1.to_i
+      else
+        $stderr.puts "Can't get svn revision, 'svn info' output: \n#{output}"
+      end
+    end
+    
+    def update_to(revision)
+      return nil if revision.nil?
+      return "echo 'code base is #{revision}'" if revision == self.revision
+      return "svn update -r #{revision}" if revision && (revision == 'HEAD' || revision > 0)
+      $stderr.puts "Error revision number: #{revision.inspect}"
+      nil
+    end
+  end
+end

data/test/inject_test.rb

@@ -0,0 +1,25 @@
+require File.dirname(__FILE__) + '/test_helper'
+require 'dtr/inject.rb'
+
+class InjectTest < Test::Unit::TestCase
+  
+  def teardown
+    DTR.reject
+  end
+  
+  def test_inject
+    DTR.inject
+    assert Test::Unit::TestCase.method_defined?(:__run__)
+    assert Test::Unit::TestSuite.method_defined?(:__run__)
+    assert Test::Unit::TestSuite.method_defined?(:dtr_injected?)
+  end
+  
+  def test_reject
+    DTR.inject
+    DTR.reject
+    test_case = Test::Unit::TestCase.new('name')
+    assert_false test_case.respond_to?(:__run__)
+    assert test_case.respond_to?(:run)
+  end
+  
+end

data/test/scenario_tests.rb

@@ -0,0 +1,172 @@
+require File.dirname(__FILE__) + '/test_helper'
+require 'test/unit/ui/console/testrunner'
+require 'dtr/service_provider'
+require 'dtr/inject'
+require 'dtr'
+$be_silent = true
+$repository = NullObject.new
+
+module Test
+  module Unit
+    class TestResult
+      attr_reader :errors
+    end
+  end
+end
+
+class ScenarioTests < Test::Unit::TestCase
+
+  def setup
+    unless defined?(ATestCase)
+      require 'a_test_case'
+      require 'a_test_case2'
+      require 'a_failed_test_case'
+      require 'an_error_test_case'
+      require 'test_case_revision63_failed_but_revision64_passed'
+      require 'a_file_system_test_case'
+    end
+    DTR.inject
+  end
+  
+  def teardown
+    DTR.reject
+    $argv_dup = nil
+  end
+  
+  def test_run_test_passed
+    $argv_dup = ['a_test_case.rb', 'a_test_case2.rb', 'a_file_system_test_case.rb']
+    suite = Test::Unit::TestSuite.new('run_test_passed')
+    suite << ATestCase.suite
+    suite << ATestCase2.suite
+    suite << AFileSystemTestCase.suite
+
+    @result = runit(suite)
+    
+    assert @result.passed?
+    assert_equal 3, @result.run_count
+    assert_equal 0, @result.failure_count
+    assert_equal 0, @result.error_count
+  end
+  
+  def test_run_test_failed
+    $argv_dup = ['a_test_case.rb', 'a_failed_test_case.rb']
+    suite = Test::Unit::TestSuite.new('test_run_test_failed')
+    suite << ATestCase.suite
+    suite << AFailedTestCase.suite
+    
+    @result = runit(suite)
+
+    assert !@result.passed?
+    assert_equal 2, @result.run_count
+    assert_equal 1, @result.failure_count
+    assert_equal 0, @result.error_count
+  end
+   
+  def test_run_test_error
+    $argv_dup = ['a_test_case.rb', 'an_error_test_case.rb']
+    suite = Test::Unit::TestSuite.new('test_run_test_error')
+    suite << ATestCase.suite
+    suite << AnErrorTestCase.suite
+    
+    logger.debug { "dtr_injected: #{Test::Unit::TestSuite.method_defined?(:dtr_injected?)}" }
+    @result = runit(suite)
+    
+    assert_false @result.passed?
+    assert_equal 2, @result.run_count
+    assert_equal 0, @result.failure_count
+    assert_equal 1, @result.error_count
+  end
+  
+  def test_run_suite_should_be_independence
+    $argv_dup = ['an_error_test_case.rb']
+    suite = Test::Unit::TestSuite.new('test_run_suite_should_be_independence 1')
+    suite << AnErrorTestCase.suite
+    
+    @result = runit(suite)
+    
+    assert_false @result.passed?
+    assert_equal 1, @result.run_count
+    assert_equal 0, @result.failure_count
+    assert_equal 1, @result.error_count
+
+    $argv_dup = ['a_test_case.rb']
+    suite = Test::Unit::TestSuite.new('test_run_suite_should_be_independence 2')
+    suite << ATestCase.suite
+
+    @result = runit(suite)
+
+    assert @result.passed?
+    assert_equal 1, @result.run_count
+    assert_equal 0, @result.failure_count
+    assert_equal 0, @result.error_count
+  end
+  
+  def test_should_ignore_environment_file_not_exists
+    $argv_dup = ['a_test_case.rb', 'test_file_not_exists.rb']
+    suite = Test::Unit::TestSuite.new('test_run_test_file_not_exist')
+    suite << ATestCase.suite
+
+    @result = runit(suite)
+
+    assert @result.passed?
+    assert_equal 1, @result.run_count
+    assert_equal 0, @result.failure_count
+    assert_equal 0, @result.error_count
+  end
+  
+  def test_run_empty_test_suite_and_no_test_files_in_environment
+    $argv_dup = []
+    suite = Test::Unit::TestSuite.new('test_run_without_test_files')
+
+    @result = runit(suite)
+
+    assert @result.passed?
+    assert_equal 0, @result.run_count
+    assert_equal 0, @result.failure_count
+    assert_equal 0, @result.error_count
+  end
+  
+  def runit(suite)
+    Test::Unit::UI::Console::TestRunner.run(suite, Test::Unit::UI::SILENT)
+  end
+  
+  # def test_run_specific_revision_test
+  #   new_injected_env ['test_case_revision63_failed_but_revision64_passed.rb'], 63
+  #   suite = Test::Unit::TestSuite.new('test_run_revision63')
+  #   suite << TestCaseRevision63FailedButRevision64Passed.suite
+  #   @result = runit(suite)
+  #   
+  #   assert_false @result.passed?
+  #   assert_equal 1, @result.run_count
+  #   assert_equal 1, @result.failure_count
+  #   assert_equal 0, @result.error_count
+  #   
+  #   new_injected_env ['test_case_revision63_failed_but_revision64_passed.rb'], 'HEAD'
+  #   suite = Test::Unit::TestSuite.new('test_run_revision64')
+  #   suite << TestCaseRevision63FailedButRevision64Passed.suite
+  #   @result = runit(suite)
+  #   
+  #   assert @result.passed?
+  #   assert_equal 1, @result.run_count
+  #   assert_equal 0, @result.failure_count
+  #   assert_equal 0, @result.error_count
+  # end
+  
+  def test_run_test_specified_by_load_path
+    lib_path = File.expand_path(File.dirname(__FILE__) + '/../testdata/lib')
+    $LOAD_PATH.unshift lib_path
+    require 'lib_test_case'
+    $argv_dup = ['lib_test_case.rb']
+    suite = Test::Unit::TestSuite.new('test_run_test_specified_by_load_path')
+    suite << LibTestCase.suite
+
+    @result = runit(suite)
+    
+    assert @result.passed?
+    assert_equal 1, @result.run_count
+    assert_equal 0, @result.failure_count
+    assert_equal 0, @result.error_count
+  ensure
+    $LOAD_PATH.delete lib_path
+  end
+end

data/test/svn_test.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/test_helper'
+require 'dtr/svn'
+
+class SvnTest < Test::Unit::TestCase
+  
+  def test_revision
+    revision = DTR::SvnRepository.new.revision
+    assert(revision > 40)
+  end
+  
+end

data/test/test_helper.rb

@@ -1,108 +1,25 @@
-require 'test/unit'
-require 'fileutils'
-require 'ostruct'
-
-$LOAD_PATH.unshift File.expand_path(File.dirname(__FILE__) + '/../lib')
-require 'dtr'
-
-FileUtils.makedirs DTROPTIONS[:tmp_dir]
-DTROPTIONS.merge!({:client_name => "dtr client", :setup => "echo \"setup_dtr_client\"", :wait_a_moment => false})
-
-class NoResponseClient
-  attr_reader :report_signature
-  
-  def self.server=(server)
-    @@server = server
-  end
-
-  def name
-    'test client'
-  end
-  
-  def server_signature
-    @@server.server_signature
-  end
-  
-  def idle?
-    (@executing_test_files ||= nil).nil?
-  end
-  
-  def setup(signature)
-    @log = log + 'setup ' + signature
-    @report_signature = signature
-  end
-
-  def run(runner_name, test_files, signature)
-    @report_signature = signature
-    raise 'I am busy, should not ask me do anymore' unless idle?
-    @executing_test_files = test_files
-  end
-  
-  def log
-    @log ||= ''
-  end
-end
-
-module Test
-  module Unit
-    class TestCase
-      def assert_false(o)
-        assert !o
-      end
-
-      def new_successful_test_file
-        new_test_file do |file, num|
-          file.syswrite(%{
-require 'test/unit'
-class TestFile#{num} < Test::Unit::TestCase
-  def test_succeeded
-    assert true
-  end
-end
-          })
-        end
-      end
-
-      def new_failed_test_file
-        new_test_file do |file, num|
-          file.syswrite(%{
-require 'test/unit'
-class TestFile#{num} < Test::Unit::TestCase
-  def test_failed
-    assert false
-  end
-end
-          })
-        end
-      end
-
-      def new_error_test_file
-        new_test_file do |file, num|
-          file.syswrite(%{
-require 'test/unit'
-class TestFile#{num} < Test::Unit::TestCase
-  def test_error
-    raise 'error'
-  end
-
-  def test_runtime_error
-    should.raise.runtime.error
-  end
-end
-          })
-        end
-      end
-
-      def new_test_file
-        @test_file_num ||= 0
-        @test_file_num += 1
-        file_name = "#{DTROPTIONS[:tmp_dir]}/test_file#{@test_file_num}.rb"
-        File.open(file_name, 'w') do |file|
-          yield file, @test_file_num
-        end
-
-        file_name
-      end
-    end
-  end
-end
+require 'test/unit'
+$LOAD_PATH.unshift File.expand_path(File.dirname(__FILE__) + '/../lib')
+$LOAD_PATH.unshift File.expand_path(File.dirname(__FILE__) + '/../testdata')
+
+module Test
+  module Unit
+    class TestCase
+      def assert_false(o)
+        assert !o
+      end
+    end
+  end
+end
+
+class TestRepository
+  attr_accessor :revision
+  
+  def initialize
+    @revision = 1
+  end
+  
+  def update_to(revision)
+    "echo 'update to #{revision}'"
+  end
+end