monitr 0.0.1

data/ext/monitr/extconf.rb

@@ -0,0 +1,55 @@
+require 'mkmf'
+
+fail = false
+
+def create_dummy_makefile
+  File.open("Makefile", 'w') do |f|
+    f.puts "all:"
+    f.puts "install:"
+  end
+end
+
+case RUBY_PLATFORM
+when /bsd/i, /darwin/i
+  unless have_header('sys/event.h')
+    puts
+    puts "Missing 'sys/event.h' header"
+    fail = true
+  end
+  
+  if fail
+    puts
+    puts "Events handler could not be compiled (see above error). Your monitr installation will not support event conditions."
+    create_dummy_makefile
+  else
+    create_makefile 'kqueue_handler_ext'
+  end
+when /linux/i
+  unless have_header('linux/netlink.h')
+    puts
+    puts "Missing 'linux/netlink.h' header(s)"
+    puts "You may need to install a header package for your system"
+    fail = true
+  end
+  
+  unless have_header('linux/connector.h') && have_header('linux/cn_proc.h')
+    puts
+    puts "Missing 'linux/connector.h', or 'linux/cn_proc.h' header(s)"
+    puts "These are only available in Linux kernel 2.6.15 and later (run `uname -a` to find yours)"
+    puts "You may need to install a header package for your system"
+    fail = true
+  end
+  
+  if fail
+    puts
+    puts "Events handler could not be compiled (see above error). Your monitr installation will not support event conditions."
+    create_dummy_makefile
+  else
+    create_makefile 'netlink_handler_ext'
+  end
+else
+  puts
+  puts "Unsupported platform '#{RUBY_PLATFORM}'. Supported platforms are BSD, DARWIN, and LINUX."
+  puts "Your monitr installation will not support event conditions."
+  create_dummy_makefile
+end

data/test/test_behavior.rb

@@ -0,0 +1,21 @@
+require File.dirname(__FILE__) + '/helper'
+
+class TestBehavior < Test::Unit::TestCase
+  def test_generate_should_return_an_object_corresponding_to_the_given_type
+    assert_equal Behaviors::FakeBehavior, Behavior.generate(:fake_behavior, nil).class
+  end
+  
+  def test_generate_should_raise_on_invalid_type
+    assert_raise NoSuchBehaviorError do
+      Behavior.generate(:foo, nil)
+    end
+  end
+  
+  def test_complain
+    Syslog.expects(:err).with('foo')
+    # Kernel.expects(:puts).with('foo')
+    no_stdout do
+      assert !Behavior.allocate.bypass.complain('foo')
+    end
+  end
+end

data/test/test_campfire.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/helper'
+require 'tinder'
+
+class TestCampfire < Test::Unit::TestCase
+  def test_exists
+    Monitr::Contacts::Campfire
+  end
+  
+  # should notify
+  def test_campfire_delivery_method_for_notify
+    assert_nothing_raised do
+      
+      room = mock()
+      room.expects(:speak).returns(nil)
+      
+      g = Monitr::Contacts::Campfire.new
+      Monitr::Contacts::Campfire.format.expects(:call).with(:a,:e)
+      g.expects(:room).returns(room)
+      g.notify(:a, :b, :c, :d, :e)
+      assert_equal "notified campfire: ", g.info
+    end
+  end
+  
+  # should not establish a new connection because the older is alive
+  def test_campfire_room_method
+   assert_nothing_raised do
+     room = mock()
+     g = Monitr::Contacts::Campfire.new
+     g.instance_variable_set(:@room,room)
+     assert_equal g.send(:room), room
+   end
+  end
+  
+  # should raise because the connections parameters have not been set
+  def test_campfire_delivery_method_for_notify_without_campfire_params
+    LOG.expects(:log).times(3) # 3 calls: 2 debug (credentials, backtrace) + 1 info (failed message)
+    g = Monitr::Contacts::Campfire.new
+    g.notify(:a, :b, :c, :d, :e)
+  end
+  
+end

data/test/test_condition.rb

@@ -0,0 +1,50 @@
+require File.dirname(__FILE__) + '/helper'
+
+class BadlyImplementedCondition < PollCondition
+end
+
+class TestCondition < Test::Unit::TestCase
+  
+  # generate
+  
+  def test_generate_should_return_an_object_corresponding_to_the_given_type
+    assert_equal Conditions::ProcessRunning, Condition.generate(:process_running, nil).class
+  end
+  
+  def test_generate_should_raise_on_invalid_type
+    assert_raise NoSuchConditionError do
+      Condition.generate(:foo, nil)
+    end
+  end
+  
+  def test_generate_should_abort_on_event_condition_without_loaded_event_system
+    Monitr::EventHandler.stubs(:operational?).returns(false)
+    assert_abort do
+      Monitr::EventHandler.start
+      Condition.generate(:process_exits, nil).class
+    end
+  end
+  
+  def test_generate_should_return_a_good_error_message_for_invalid_types
+    emsg = "No Condition found with the class name Monitr::Conditions::FooBar"
+    rmsg = nil
+    
+    begin
+      Condition.generate(:foo_bar, nil)
+    rescue => e
+      rmsg = e.message
+    end
+    
+    assert_equal emsg, rmsg
+  end
+  
+  # test
+  
+  def test_test_should_raise_if_not_defined_in_subclass
+    c = BadlyImplementedCondition.new
+    
+    assert_raise AbstractMethodNotOverriddenError do
+      c.test
+    end
+  end
+end

data/test/test_conditions_disk_usage.rb

@@ -0,0 +1,56 @@
+require File.dirname(__FILE__) + '/helper'
+
+class TestConditionsDiskUsage < Test::Unit::TestCase
+  # valid?
+  
+  def test_valid_should_return_false_if_no_above_given
+    c = Conditions::DiskUsage.new
+    c.mount_point = '/'
+    c.watch = stub(:name => 'foo')
+    
+    no_stdout do
+      assert_equal false, c.valid?
+    end
+  end
+  
+  def test_valid_should_return_false_if_no_mount_point_given
+    c = Conditions::DiskUsage.new
+    c.above = 90
+    c.watch = stub(:name => 'foo')
+    
+    no_stdout do
+      assert_equal false, c.valid?
+    end
+  end
+  
+  def test_valid_should_return_true_if_required_options_all_set
+    c = Conditions::DiskUsage.new
+    c.above = 90
+    c.mount_point = '/'
+    c.watch = stub(:name => 'foo')
+    
+    assert_equal true, c.valid?
+  end
+  
+  # test
+  
+  def test_test_should_return_true_if_above_limit
+    c = Conditions::DiskUsage.new
+    c.above = 90
+    c.mount_point = '/'
+    
+    c.expects(:`).returns('91')
+    
+    assert_equal true, c.test
+  end
+  
+  def test_test_should_return_false_if_below_limit
+    c = Conditions::DiskUsage.new
+    c.above = 90
+    c.mount_point = '/'
+    
+    c.expects(:`).returns('90')
+    
+    assert_equal false, c.test
+  end
+end

data/test/test_conditions_http_response_code.rb

@@ -0,0 +1,109 @@
+require File.dirname(__FILE__) + '/helper'
+
+class TestHttpResponseCode < Test::Unit::TestCase
+  def valid_condition
+    c = Conditions::HttpResponseCode.new()
+    c.watch = stub(:name => 'foo')
+    c.host = 'localhost'
+    c.port = 8080
+    c.path = '/'
+    c.timeout = 10
+    c.code_is = 200
+    c.times = 1
+    yield(c) if block_given?
+    c.prepare
+    c
+  end
+  
+  # valid?
+  
+  def test_valid_condition_is_valid
+    c = valid_condition
+    assert c.valid?
+  end
+  
+  def test_valid_should_return_false_if_both_code_is_and_code_is_not_are_set
+    c = valid_condition do |cc|
+      cc.code_is_not = 500
+    end
+    no_stdout { assert !c.valid? }
+  end
+  
+  def test_valid_should_return_false_if_no_host_set
+    c = valid_condition do |cc|
+      cc.host = nil
+    end
+    no_stdout { assert !c.valid? }
+  end
+  
+  # test
+  
+  def test_test_should_return_false_if_code_is_is_set_to_200_but_response_is_500
+    c = valid_condition
+    Net::HTTP.expects(:start).yields(stub(:read_timeout= => nil, :get => stub(:code => 500)))
+    assert_equal false, c.test
+  end
+  
+  def test_test_should_return_false_if_code_is_not_is_set_to_200_and_response_is_200
+    c = valid_condition do |cc|
+      cc.code_is = nil
+      cc.code_is_not = [200]
+    end
+    Net::HTTP.expects(:start).yields(stub(:read_timeout= => nil, :get => stub(:code => 200)))
+    assert_equal false, c.test
+  end
+  
+  def test_test_should_return_true_if_code_is_is_set_to_200_and_response_is_200
+    c = valid_condition
+    Net::HTTP.expects(:start).yields(stub(:read_timeout= => nil, :get => stub(:code => 200)))
+    assert_equal true, c.test
+  end
+  
+  def test_test_should_return_false_if_code_is_not_is_set_to_200_but_response_is_500
+    c = valid_condition do |cc|
+      cc.code_is = nil
+      cc.code_is_not = [200]
+    end
+    Net::HTTP.expects(:start).yields(stub(:read_timeout= => nil, :get => stub(:code => 500)))
+    assert_equal true, c.test
+  end
+  
+  def test_test_should_return_false_if_code_is_is_set_to_200_but_response_times_out
+    c = valid_condition
+    Net::HTTP.expects(:start).raises(Timeout::Error, '')
+    assert_equal false, c.test
+  end
+  
+  def test_test_should_return_true_if_code_is_not_is_set_to_200_and_response_times_out
+    c = valid_condition do |cc|
+      cc.code_is = nil
+      cc.code_is_not = [200]
+    end
+    Net::HTTP.expects(:start).raises(Timeout::Error, '')
+    assert_equal true, c.test
+  end
+  
+  def test_test_should_return_false_if_code_is_is_set_to_200_but_cant_connect
+    c = valid_condition
+    Net::HTTP.expects(:start).raises(Errno::ECONNREFUSED, '')
+    assert_equal false, c.test
+  end
+  
+  def test_test_should_return_true_if_code_is_not_is_set_to_200_and_cant_connect
+    c = valid_condition do |cc|
+      cc.code_is = nil
+      cc.code_is_not = [200]
+    end
+    Net::HTTP.expects(:start).raises(Errno::ECONNREFUSED, '')
+    assert_equal true, c.test
+  end
+  
+  def test_test_should_return_true_if_code_is_is_set_to_200_and_response_is_200_twice_for_times_two_of_two
+    c = valid_condition do |cc|
+      cc.times = [2, 2]
+    end
+    Net::HTTP.expects(:start).yields(stub(:read_timeout= => nil, :get => stub(:code => 200))).times(2)
+    assert_equal false, c.test
+    assert_equal true, c.test
+  end
+end

data/test/test_conditions_process_running.rb

@@ -0,0 +1,44 @@
+require File.dirname(__FILE__) + '/helper'
+
+class TestConditionsProcessRunning < Test::Unit::TestCase
+  def test_missing_pid_file_returns_opposite
+    [true, false].each do |r|
+      c = Conditions::ProcessRunning.new
+      c.running = r
+    
+      c.stubs(:watch).returns(stub(:pid => 99999999, :name => 'foo'))
+    
+      # no_stdout do
+        assert_equal !r, c.test
+      # end
+    end
+  end
+  
+  def test_not_running_returns_opposite
+    [true, false].each do |r|
+      c = Conditions::ProcessRunning.new
+      c.running = r
+    
+      File.stubs(:exist?).returns(true)
+      c.stubs(:watch).returns(stub(:pid => 123))
+      File.stubs(:read).returns('5')
+      System::Process.any_instance.stubs(:exists?).returns(false)
+    
+      assert_equal !r, c.test
+    end
+  end
+  
+  def test_running_returns_same
+    [true, false].each do |r|
+      c = Conditions::ProcessRunning.new
+      c.running = r
+    
+      File.stubs(:exist?).returns(true)
+      c.stubs(:watch).returns(stub(:pid => 123))
+      File.stubs(:read).returns('5')
+      System::Process.any_instance.stubs(:exists?).returns(true)
+    
+      assert_equal r, c.test
+    end
+  end
+end

data/test/test_conditions_tries.rb

@@ -0,0 +1,67 @@
+require File.dirname(__FILE__) + '/helper'
+
+class TestConditionsTries < Test::Unit::TestCase
+  # valid?
+  
+  def test_valid_should_return_false_if_times_not_set
+    c = Conditions::Tries.new
+    c.watch = stub(:name => 'foo')
+    no_stdout { assert !c.valid? }
+  end
+end
+
+
+class TestConditionsTries < Test::Unit::TestCase
+  def setup
+    @c = Conditions::Tries.new
+    @c.times = 3
+    @c.prepare
+  end
+  
+  # prepare
+  
+  def test_prepare_should_create_timeline
+    assert 3, @c.instance_variable_get(:@timeline).instance_variable_get(:@max_size)
+  end
+  
+  # test
+  
+  def test_test_should_return_true_if_called_three_times_within_one_second
+    assert !@c.test
+    assert !@c.test
+    assert @c.test
+  end
+  
+  # reset
+  
+  def test_test_should_return_false_on_fourth_call_if_called_three_times_within_one_second
+    3.times { @c.test }
+    @c.reset
+    assert !@c.test
+  end
+end
+
+
+class TestConditionsTriesWithin < Test::Unit::TestCase
+  def setup
+    @c = Conditions::Tries.new
+    @c.times = 3
+    @c.within = 1.seconds
+    @c.prepare
+  end
+  
+  # test
+  
+  def test_test_should_return_true_if_called_three_times_within_one_second
+    assert !@c.test
+    assert !@c.test
+    assert @c.test
+  end
+  
+  def test_test_should_return_false_if_called_three_times_within_two_seconds
+    assert !@c.test
+    assert !@c.test
+    assert sleep(1.1)
+    assert !@c.test
+  end
+end