edavis10-cerberus 0.7.8

data/test/config_test.rb

@@ -0,0 +1,46 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+require 'cerberus/config'
+
+class ConfigTest < Test::Unit::TestCase
+  def test_config
+    dump_yml(HOME + "/config.yml", {'a'=>'conf', 'd'=>'conf', 'm' => 'conf'})
+    dump_yml(HOME + "/config/abra.yml", {'a'=>'app', 'd'=>'app', 'g' => 'app'})
+    cfg = Cerberus::Config.new('abra', :a => 'cli', :b=>'cli', :e=>'cli')
+
+    assert_equal nil, cfg[:mamba]
+    assert_equal 'cli', cfg[:a]
+    assert_equal 'cli', cfg[:b]
+    assert_equal 'app', cfg[:d]
+    assert_equal 'app', cfg[:g]
+    assert_equal 'conf', cfg[:m]
+
+  
+    assert_equal nil, cfg['mamba']
+    assert_equal 'cli', cfg['a']
+    assert_equal 'cli', cfg['b']
+    assert_equal 'app', cfg['d']
+    assert_equal 'app', cfg['g']
+    assert_equal 'conf', cfg['m']
+  end
+
+  def test_deep_merge
+    cfg = Cerberus::Config.new
+    cfg.merge!(:hello => {'msg' => {:a202 => 'bye'}})
+    cfg.merge!(:hello => {:msg => {:a203 => 'hello'}})
+    cfg.merge!(:hello => {:msg => {:a203 => 'another'}})
+    cfg.merge!(:hello => {:bread => {:a204 => 'bread'}})
+
+    assert_equal 'bye', cfg[:hello, :msg, :a202]
+    assert_equal 'another', cfg[:hello, :msg, :a203]
+    assert_equal 'bread', cfg[:hello, :bread, :a204]
+  end
+
+  def test_deep_merge_not_overwrite
+    cfg = Cerberus::Config.new
+    cfg.merge!({:hello => {'msg' => {:a202 => 'bye'}}}, false)
+    cfg.merge!({:hello => {:msg => {:a202 => 'hello'}}}, false)
+
+    assert_equal 'bye', cfg[:hello, :msg, :a202]
+  end
+end

data/test/cron_string_test.rb

@@ -0,0 +1,94 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+require 'cerberus/utils'
+
+class CronStringTest < Test::Unit::TestCase
+
+  def test_simple_number
+    assert "1".cron_match?(1)
+  end
+
+  def test_star
+    assert "*".cron_match?(0)
+    assert "*".cron_match?(1000)
+  end
+
+  def test_not_match_simple
+    assert_equal false, "1".cron_match?(2)
+  end
+
+  def test_separate_numbers
+    str = "1,3,5"
+    assert str.cron_match?(1)
+    assert str.cron_match?(3)
+    assert str.cron_match?(5)
+    assert(!str.cron_match?(0))
+    assert(!str.cron_match?(2))
+    assert(!str.cron_match?(4))
+    assert(!str.cron_match?(6))
+  end
+  
+  def test_range
+    str = "2-4"
+    assert(!str.cron_match?(1))
+    assert str.cron_match?(2)
+    assert str.cron_match?(3)
+    assert str.cron_match?(4)
+    assert(!str.cron_match?(5))
+  end
+
+  def test_comma_and_range
+    str = "3-4,7-8"
+    assert(!str.cron_match?(2))
+    assert str.cron_match?(3)
+    assert str.cron_match?(4)
+    assert(!str.cron_match?(5))
+    assert(!str.cron_match?(6))
+    assert str.cron_match?(7)
+    assert str.cron_match?(8)
+    assert(!str.cron_match?(9))
+  end
+
+  def test_divisor
+    str = "1-6/2"
+    assert(!str.cron_match?(0))
+    assert str.cron_match?(1)
+    assert(!str.cron_match?(2))
+    assert str.cron_match?(3)
+    assert(!str.cron_match?(4))
+    assert str.cron_match?(5)
+    assert(!str.cron_match?(6))
+  end
+
+  def test_garble
+    assert(!"1,x".cron_match?(6))
+    assert(!",".cron_match?(6))
+    assert(!"x".cron_match?(6))
+    assert(!"1-10/x".cron_match?(6))
+    assert(!"~-10/2".cron_match?(6))
+  end
+
+  def test_star_and_divisor
+    str = "*/3"
+    assert str.cron_match?(0)
+    assert(!str.cron_match?(1))
+    assert(!str.cron_match?(2))
+    assert str.cron_match?(3)
+    assert(!str.cron_match?(4))
+    assert(!str.cron_match?(5))
+    assert str.cron_match?(6)
+    assert str.cron_match?(9)
+    assert str.cron_match?(12)
+    assert str.cron_match?(129)
+  end
+
+  def test_star_with_letters
+    assert(!"*".cron_match?('A'))
+  end
+
+  def test_star_in_wrong_place
+    assert(!"*-12".cron_match?('1'))
+    assert(!"*-12/2".cron_match?('2'))
+  end
+
+end

data/test/data/subversion.dump

@@ -0,0 +1,127 @@
+SVN-fs-dump-format-version: 2
+
+UUID: 3ede5f56-4031-f743-bcde-a87e4ff3590e
+
+Revision-number: 0
+Prop-content-length: 56
+Content-length: 56
+
+K 8
+svn:date
+V 27
+2006-06-29T09:59:06.497680Z
+PROPS-END
+
+Revision-number: 1
+Prop-content-length: 113
+Content-length: 113
+
+K 7
+svn:log
+V 10
+Added test
+K 10
+svn:author
+V 8
+Apomozov
+K 8
+svn:date
+V 27
+2006-06-29T10:48:02.581619Z
+PROPS-END
+
+Node-path: Rakefile
+Node-kind: file
+Node-action: add
+Prop-content-length: 10
+Text-content-length: 220
+Text-content-md5: b3f8886d55aca8f73578c7a896d1779a
+Content-length: 230
+
+PROPS-END
+require 'rake'
+require 'rake/testtask'
+
+task :default => :test
+
+desc "Run the unit tests in test/unit"
+Rake::TestTask.new(:test) do |t|
+  t.libs << "test"
+  t.pattern = 'test/*_test.rb'
+  t.verbose = true
+end
+
+
+Node-path: test
+Node-kind: dir
+Node-action: add
+Prop-content-length: 10
+Content-length: 10
+
+PROPS-END
+
+
+Node-path: test/a_test.rb
+Node-kind: file
+Node-action: add
+Prop-content-length: 10
+Text-content-length: 101
+Text-content-md5: 566f0fba7037bdfe73a4dc77368dabdc
+Content-length: 111
+
+PROPS-END
+require 'test/unit'
+
+class ATest < Test::Unit::TestCase
+  def test_ok
+    assert true
+  end
+end
+
+Revision-number: 2
+Prop-content-length: 127
+Content-length: 127
+
+K 7
+svn:log
+V 24
+Added custom rake tasks
+
+K 10
+svn:author
+V 8
+Apomozov
+K 8
+svn:date
+V 27
+2006-08-21T12:15:18.697839Z
+PROPS-END
+
+Node-path: Rakefile
+Node-kind: file
+Node-action: change
+Text-content-length: 354
+Text-content-md5: f2c9b7345783c55045e523e052ddaf9e
+Content-length: 354
+
+require 'rake'
+require 'rake/testtask'
+
+task :default => :test
+
+desc "Run the unit tests in test/unit"
+Rake::TestTask.new(:test) do |t|
+  t.libs << "test"
+  t.pattern = 'test/*_test.rb'
+  t.verbose = true
+end
+
+task :custom1 do
+  puts "Task 'custom1' has been invoked"
+end
+
+task :custom2 do
+  puts "Task 'custom2' has been invoked"
+end
+
+

data/test/functional_test.rb

@@ -0,0 +1,442 @@
+require File.dirname(__FILE__) + '/test_helper'
+require 'mock/marshmallow'
+require 'cerberus/cli'
+
+require 'action_mailer'
+
+class FunctionalTest < Test::Unit::TestCase
+  def setup
+    # Its better to remove on setup than teardown incase we need to debug
+    FileUtils.rm_rf HOME
+    ActionMailer::Base.deliveries.clear
+  end
+
+  def teardown
+    dir = HOME + '/../'
+    # We need change working directory to some non-removable dir otherwise we would have warning after removing that working directory absent
+    Dir.chdir(dir) if test(?d, dir) 
+  end
+
+  def test_add_by_url
+    assert !File.exists?(HOME + '/config/svn_repo.yml')
+
+    command = Cerberus::AddCommand.new("    #{SVN_URL}   ", :quiet => true)
+    command.run
+
+    assert File.exists?(HOME + '/config/svn_repo.yml')
+    scm_conf = load_yml(HOME + '/config/svn_repo.yml')['scm']
+    assert_equal 'svn', scm_conf['type']
+    assert_equal SVN_URL, scm_conf['url']
+
+    assert File.exists?(HOME + '/config.yml')
+  end
+
+  def test_add_by_dir
+    sources_dir = File.expand_path(File.dirname(__FILE__) + '/__workdir/svn_working_dir')
+    FileUtils.rm_rf(sources_dir)
+    `svn co #{SVN_URL} #{sources_dir}`
+    
+    command = Cerberus::AddCommand.new(sources_dir, :quiet => true)
+    command.run
+
+    project_config = HOME + "/config/#{File.basename(File.expand_path(sources_dir))}.yml" #name of added application should be calculated from File System path
+
+    assert File.exists?(project_config)
+    scm_conf = load_yml(project_config)['scm']
+    assert_equal 'svn', scm_conf['type']
+    scm_uri = URI.parse(scm_conf['url'])
+    # FIXME - this assert needs to be fixed
+    # assert_match 'rubyforge.org', scm_uri.host
+
+    assert File.exists?(HOME + '/config.yml')
+  end
+
+  def test_build
+    add_application('myapp', SVN_URL)
+
+    build = Cerberus::BuildCommand.new('myapp', :changeset_url => 'http://someurl.changeset.com/')
+    build.run
+    assert_equal 1, ActionMailer::Base.deliveries.size #first email that project was setup
+    mail = ActionMailer::Base.deliveries[0]
+    output = mail.body
+
+    #Check outpus that run needed tasks
+    assert_match /1 tests, 1 assertions, 0 failures, 0 errors/, output
+    assert output !~ /Task 'custom1' has been invoked/
+    assert_equal '[myapp] Cerberus set up for project (2)', mail.subject
+    assert output =~ %r{http://someurl.changeset.com/2}
+
+    status_file = HOME + '/work/myapp/status.log'
+    assert File.exists?(status_file)
+    assert build_successful?(status_file)
+    assert 1, Dir[HOME + "/work/rake_cust/logs/*-setup.log"].size
+
+    FileUtils.rm status_file
+    build = Cerberus::BuildCommand.new('myapp')
+    build.run
+    assert File.exists?(status_file)
+    assert build_successful?(status_file)
+    assert_equal :setup, build.status.current_state
+    assert_equal 2, ActionMailer::Base.deliveries.size #first email that project was setup
+    assert 2, Dir[HOME + "/work/rake_cust/logs/*.log"].size
+
+    build = Cerberus::BuildCommand.new('myapp', :force => true)
+    build.run
+    assert_equal :successful, build.status.current_state
+    assert_equal 2, ActionMailer::Base.deliveries.size #Number of mails not changed
+    assert 2, Dir[HOME + "/work/rake_cust/logs/*.log"].size #even if sources unchanged
+
+    #remove status file to run project again
+    FileUtils.rm status_file
+    add_test_case_to_project('myapp', 'assert false') #if assertion failed
+    build = Cerberus::BuildCommand.new('myapp')
+    build.run
+    assert !build_successful?(status_file)
+    assert_equal :broken, build.status.current_state
+    assert_equal 3, ActionMailer::Base.deliveries.size #We should receive mail if project fails
+
+    add_test_case_to_project('myapp', 'raise "Some exception here"') #if we have exception
+    build = Cerberus::BuildCommand.new('myapp', :force => true)
+    build.run
+    assert !build_successful?(status_file)
+    assert_equal :broken, build.status.current_state
+  
+    subject = ActionMailer::Base.deliveries.last.subject
+    assert_match /and getting worse/, subject
+
+    #remove status file to run project again
+    FileUtils.rm status_file
+    build = Cerberus::BuildCommand.new('myapp')
+    build.run
+    assert !build_successful?(status_file)
+    assert_equal :broken, build.status.current_state
+  end
+
+  def test_have_no_awkward_header
+    add_application('myapp', SVN_URL, 'publisher' => {'active' => 'mail'})
+
+    build = Cerberus::BuildCommand.new('myapp')
+    build.run
+
+    assert build.scm.last_commit_message !~ /-rHEAD -v/
+    assert_equal 0, build.scm.last_commit_message.index('-' * 72)
+  end
+
+  def test_send_on_different_events
+    # FIXME - This currently throws an exit code stoping all tests
+    # add_application('myapp', SVN_URL, 'publisher' => {'mail' => {'on_event' => 'none'}, 'on_event' => 'all'})
+    # build = Cerberus::BuildCommand.new('myapp')
+    # build.run
+    # assert_equal 0, ActionMailer::Base.deliveries.size
+    # 
+    # 
+    # add_application('myapp', SVN_URL, 'publisher' => {'mail' => {'on_event' => 'all'}, 'on_event' => 'none'})
+    # build = Cerberus::BuildCommand.new('myapp')
+    # build.run
+    # assert_equal 1, ActionMailer::Base.deliveries.size
+  end
+
+  def test_multiple_publishers_without_configuration
+    add_application('myapp', SVN_URL, 'publisher' => {'active' => 'mail ,  jabber , irc,    dddd'})
+
+    build = Cerberus::BuildCommand.new('myapp')
+
+    begin
+      build.run
+    rescue RuntimeError => e
+      assert_equal 'Publisher have no configuration: jabber', e.message
+    else
+      assert false
+    end
+  end
+
+  def test_application_and_config_together
+    add_config('publisher' => {'active' => 'jabber'})
+    add_application('myapp', SVN_URL)
+    build = Cerberus::BuildCommand.new('myapp')
+
+    begin
+      build.run
+    rescue RuntimeError => e
+      assert_equal 'Publisher have no configuration: jabber', e.message
+    else
+      assert false
+    end
+  end
+
+  def test_batch_running
+    add_application('myapp1', SVN_URL)
+    add_application('myapp2', SVN_URL)
+    add_application('myapp3', SVN_URL)
+    add_application('myapp4', SVN_URL)
+
+    build = Cerberus::BuildAllCommand.new
+    build.run
+
+    for i in 1..4 do
+      status_file = HOME + "/work/myapp#{i}/status.log"
+      assert File.exists?(status_file)
+      assert build_successful?(status_file)
+    end
+  end
+
+  def test_custom_task_for_rake
+    add_application('rake_cust', SVN_URL, 'builder' => {'rake' => {'task' => 'custom1 custom2'}})
+    build = Cerberus::BuildAllCommand.new
+    build.run
+    assert_equal 1, ActionMailer::Base.deliveries.size
+    output = ActionMailer::Base.deliveries[0].body
+    assert_match /Task 'custom1' has been invoked/, output
+    assert_match /Task 'custom2' has been invoked/, output
+  end
+
+  def test_build_setup_script
+    add_application('rake_cust', SVN_URL, {
+        'builder' => {'rake' => {'task' => 'custom1'}},
+        'setup_script' => "echo 'setup script has been invoked' ",
+      }
+    )
+    
+    build = Cerberus::BuildAllCommand.new
+    build.run
+    assert_equal 1, ActionMailer::Base.deliveries.size
+    output = ActionMailer::Base.deliveries[0].body
+    assert_match /setup script has been invoked/, output
+    assert_match /Task 'custom1' has been invoked/, output
+  end
+
+  def test_logs_disabled
+    add_application('rake_cust', SVN_URL, 'log' => {'enable' => false})
+    build = Cerberus::BuildAllCommand.new
+    build.run
+
+    assert !File.exists?(HOME + "/work/rake_cust/logs")
+  end
+
+  def test_darcs
+    # add_application('darcsapp', DARCS_URL, :scm => {:type => 'darcs'})
+
+    # build = Cerberus::BuildCommand.new('darcsapp')
+    # build.run
+    # assert build.scm.has_changes?
+    # assert_equal 1, ActionMailer::Base.deliveries.size #first email that project was setup
+    # mail = ActionMailer::Base.deliveries[0]
+    # output = mail.body
+
+    # #Check outpus that run needed tasks
+    # assert_match /1 tests, 1 assertions, 0 failures, 0 errors/, output
+    # assert output !~ /Task 'custom1' has been invoked/
+    # assert_equal '[darcsapp] Cerberus set up for project (#20061010090920)', mail.subject
+
+    # status_file = HOME + '/work/darcsapp/status.log'
+    # assert File.exists?(status_file)
+    # assert build_successful?(status_file)
+    # assert 1, Dir[HOME + "/work/darcsapp/logs/*.log"].size
+
+    # #There were no changes - no reaction should be
+    # build = Cerberus::BuildCommand.new('darcsapp')
+    # build.run
+    # assert_equal false, build.scm.has_changes?
+    # assert_equal 1, ActionMailer::Base.deliveries.size #first email that project was setup
+    # assert 1, Dir[HOME + "/work/darcsapp/logs/*.log"].size
+
+    # #now we add new broken test
+    # test_case_name = "test/#{rand(10000)}_test.rb"
+    # File.open(DARCS_REPO + '/' + test_case_name, 'w') { |f|
+    #   f << "require 'test/unit'
+    #     class A#{rand(10000)}Test < Test::Unit::TestCase
+    #       def test_ok
+    #         assert false
+    #       end
+    #     end"
+    # }
+
+    # curr_dir = Dir.pwd
+    # Dir.chdir DARCS_REPO
+    # `darcs add #{test_case_name}`
+    # `darcs record -a -A test@gmail.com -m somepatch`
+    # Dir.chdir curr_dir
+
+    # build = Cerberus::BuildCommand.new('darcsapp')
+    # build.run
+    # assert build.scm.has_changes?
+    # assert_equal 2, ActionMailer::Base.deliveries.size #first email that project was setup
+    # assert 2, Dir[HOME + "/work/darcsapp/logs/*.log"].size
+
+    # build = Cerberus::BuildCommand.new('darcsapp')
+    # build.run
+    # assert_equal false, build.scm.has_changes?
+    # assert_equal 2, ActionMailer::Base.deliveries.size #first email that project was setup
+    # assert 2, Dir[HOME + "/work/darcsapp/logs/*.log"].size
+
+    # #Now we broke remote repository (imiitate that network unaccessage)
+    # FileUtils.rm_rf DARCS_REPO
+    # build = Cerberus::BuildCommand.new('darcsapp')
+    # build.run
+    # assert_equal false, build.scm.has_changes?
+  end
+
+  def test_git
+    add_application('gitapp', GIT_URL, :scm => {:type => 'git'})
+
+    build = Cerberus::BuildCommand.new('gitapp')
+    build.run
+    assert build.scm.has_changes?
+    assert_equal 1, ActionMailer::Base.deliveries.size #first email that project was setup
+    mail = ActionMailer::Base.deliveries[0]
+    output = mail.body
+
+    #Check output that run needed tasks
+    assert_match /1 tests, 1 assertions, 0 failures, 0 errors/, output
+    assert output !~ /Task 'custom1' has been invoked/
+    assert_match  /\[gitapp\] Cerberus set up for project/, mail.subject
+
+    status_file = HOME + '/work/gitapp/status.log'
+    assert File.exists?(status_file)
+    assert build_successful?(status_file)
+    assert 1, Dir[HOME + "/work/gitapp/logs/*.log"].size
+
+    #There were no changes - no reaction should be
+    build = Cerberus::BuildCommand.new('gitapp')
+    build.run
+    assert_equal false, build.scm.has_changes?
+    assert_equal 1, ActionMailer::Base.deliveries.size #first email that project was setup
+    assert 1, Dir[HOME + "/work/gitapp/logs/*.log"].size
+
+    #now we add new broken test
+    rand_val = rand(10000)
+    test_case_name = "test/#{rand_val}_test.rb"
+    File.open(GIT_REPO + '/' + test_case_name, 'w') { |f|
+      f << %Q( require 'test/unit'
+        class A#{rand_val}Test < Test::Unit::TestCase
+          def test_ok
+            assert false
+          end
+        end )
+    }
+
+    curr_dir = Dir.pwd
+    Dir.chdir GIT_REPO
+    `git add #{test_case_name}`
+    `git commit -a -m 'somepatch'`
+    Dir.chdir curr_dir
+
+    build = Cerberus::BuildCommand.new('gitapp')
+    build.run
+    assert build.scm.has_changes?
+    assert_equal 2, ActionMailer::Base.deliveries.size #first email that project was setup plus new alert email
+    assert 2, Dir[HOME + "/work/gitsapp/logs/*.log"].size
+
+    build = Cerberus::BuildCommand.new('gitapp')
+    build.run
+    assert_equal false, build.scm.has_changes?
+    assert_equal 2, ActionMailer::Base.deliveries.size #first email that project was setup
+    assert 2, Dir[HOME + "/work/gitapp/logs/*.log"].size
+
+    # test git branch features
+    add_application('gitapp2', GIT_URL, 'scm' => {'type' => 'git', 'branch' => 'cerberus'})
+    build = Cerberus::BuildCommand.new('gitapp2')
+    build.run
+    assert build.scm.has_changes?
+
+    #Now we broke remote repository (imitate that network unaccessable)
+    FileUtils.rm_rf GIT_REPO
+    build = Cerberus::BuildCommand.new('gitapp')
+    build.run
+    assert_equal false, build.scm.has_changes?
+  end
+  
+  def test_mercurial
+    add_application('hgapp', HG_URL, :scm => {:type => 'hg'})
+    
+    build = Cerberus::BuildCommand.new('hgapp')
+    build.run
+    assert build.scm.has_changes?
+    assert_equal 1, ActionMailer::Base.deliveries.size #first email that project was setup
+    mail = ActionMailer::Base.deliveries[0]
+    output = mail.body
+    
+    #Check output that run needed tasks
+    assert_match /1 tests, 1 assertions, 0 failures, 0 errors/, output
+    assert output !~ /Task 'custom1' has been invoked/
+    assert_match  /\[hgapp\] Cerberus set up for project/, mail.subject
+    
+    status_file = HOME + '/work/hgapp/status.log'
+    assert File.exists?(status_file)
+    assert build_successful?(status_file)
+    assert 1, Dir[HOME + "/work/hgapp/logs/*.log"].size
+    
+    #There were no changes - no reaction should be
+    build = Cerberus::BuildCommand.new('hgapp')
+    build.run
+    assert_equal false, build.scm.has_changes?
+    assert_equal 1, ActionMailer::Base.deliveries.size #first email that project was setup
+    assert 1, Dir[HOME + "/work/hgapp/logs/*.log"].size
+    
+    #now we add new broken test
+    rand_val = rand(10000)
+    test_case_name = "test/#{rand_val}_test.rb"
+    File.open(HG_REPO + '/' + test_case_name, 'w') { |f|
+      f << %Q( require 'test/unit'
+        class A#{rand_val}Test < Test::Unit::TestCase
+          def test_ok
+            assert false
+          end
+        end )
+    }
+    
+    curr_dir = Dir.pwd
+    Dir.chdir HG_REPO
+    `hg add #{test_case_name}`
+    `hg commit -m 'somepatch' --config ui.username='Fake User <fake.user@example.com>'`
+    Dir.chdir curr_dir
+    
+    build = Cerberus::BuildCommand.new('hgapp')
+    build.run
+    assert build.scm.has_changes?
+    assert_equal 2, ActionMailer::Base.deliveries.size #first email that project was setup plus new alert email
+    assert 2, Dir[HOME + "/work/hgapp/logs/*.log"].size
+    
+    build = Cerberus::BuildCommand.new('hgapp')
+    build.run
+    assert_equal false, build.scm.has_changes?
+    assert_equal 2, ActionMailer::Base.deliveries.size #first email that project was setup
+    assert 2, Dir[HOME + "/work/hgapp/logs/*.log"].size
+    
+    #Now we broke remote repository (imitate that network unaccessable)
+    FileUtils.rm_rf HG_REPO
+    build = Cerberus::BuildCommand.new('hgapp')
+    build.run
+    assert_equal false, build.scm.has_changes?
+  end
+
+  def test_campfire_publisher
+    # there were not any messages causing login/password is incorrect. We just check that there was no any exceptions
+    add_application('campapp', SVN_URL, 'publisher' => {'active' => 'campfire', 'campfire' => 
+      {'url' => 'http://mail@gmail.com:somepwd@cerberustool.campfirenow.com/room/5166022'}
+    })
+
+    build = Cerberus::BuildCommand.new('campapp')
+    build.run
+
+    assert_equal 2, Marshmallow.counter
+  end
+
+  def test_correct_migration_from_previous_status
+    status_fn = TEMP_DIR + '/test_status_file.log'
+
+    status = Cerberus::Status.new(status_fn)
+    assert_equal nil, status.previous_build_successful
+    assert_equal nil, status.current_build_successful
+    
+    IO.write(status_fn, 'failed')
+    status = Cerberus::Status.new(status_fn)
+    assert_equal nil, status.current_build_successful
+    assert_equal false, status.previous_build_successful
+
+    status.keep(true, 1232, 0)
+    assert_equal true, status.current_build_successful
+    assert_equal false, status.previous_build_successful
+    assert_equal :revival, status.current_state
+  end
+end