summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorelijah <elijah@riseup.net>2013-12-09 23:06:19 -0800
committerelijah <elijah@riseup.net>2013-12-09 23:06:19 -0800
commit68328b6e15a38a74261ee46b06091b8e63f85499 (patch)
treedc8328e92113d5ceaa4bbea00048eb8b13f65b80 /bin
parente23dc7849d1118ed2dfe7f37a6109ffbeefa959c (diff)
added initial white-box tests for couchdb and webapp nodes
Diffstat (limited to 'bin')
-rwxr-xr-xbin/run_tests101
1 files changed, 86 insertions, 15 deletions
diff --git a/bin/run_tests b/bin/run_tests
index 91c742c5..8c5fb492 100755
--- a/bin/run_tests
+++ b/bin/run_tests
@@ -14,6 +14,7 @@
require 'minitest/unit'
require 'yaml'
require 'tsort'
+require 'net/http'
##
## EXCEPTIONS
@@ -61,11 +62,84 @@ class LeapTest < MiniTest::Unit::TestCase
end
#
+ # the default fail() is part of the kernel and it just throws a runtime exception. for tests,
+ # we want the same behavior as assert(false)
+ #
+ def fail(msg=nil)
+ assert(false, msg)
+ end
+
# Always runs test methods within a test class in alphanumeric order
#
def self.test_order
:alpha
end
+
+ #
+ # attempts a http GET on the url, yields |body, response, error|
+ #
+ def get(url, params=nil)
+ uri = URI(url)
+ if params
+ uri.query = URI.encode_www_form(params)
+ end
+ response = Net::HTTP.get_response(uri)
+ if response.is_a?(Net::HTTPSuccess)
+ yield response.body, response, nil
+ else
+ yield nil, response, nil
+ end
+ rescue => exc
+ yield nil, nil, exc
+ end
+
+ def assert_get(url, params=nil)
+ get(url, params) do |body, response, error|
+ if body
+ yield body
+ elsif response
+ fail "Expected a 200 status code from #{url}, but got #{response.code} instead."
+ else
+ fail "Expected a response from #{url}, but got \"#{error}\" instead."
+ end
+ end
+ end
+
+ #
+ # Matches the regexp in the file, and returns the first matched string (or fails if no match).
+ #
+ def file_match(filename, regexp)
+ if match = File.read(filename).match(regexp)
+ match.captures.first
+ else
+ fail "Regexp #{regexp.inspect} not found in file #{filename.inspect}."
+ end
+ end
+
+ #
+ # Matches the regexp in the file, and returns array of matched strings (or fails if no match).
+ #
+ def file_matches(filename, regexp)
+ if match = File.read(filename).match(regexp)
+ match.captures
+ else
+ fail "Regexp #{regexp.inspect} not found in file #{filename.inspect}."
+ end
+ end
+
+ #
+ # checks to make sure the given property path exists in $node (e.g. hiera.yaml)
+ # and returns the value
+ #
+ def assert_property(property)
+ latest = $node
+ property.split('.').each do |segment|
+ latest = latest[segment]
+ fail "Required node property `#{property}` is missing." if latest.nil?
+ end
+ return latest
+ end
+
end
#
@@ -93,16 +167,12 @@ class LeapRunner < MiniTest::Unit
results = _run_suites(suites, :test)
@test_count = results.inject(0) { |sum, (tc, _)| sum + tc }
@assertion_count = results.inject(0) { |sum, (_, ac)| sum + ac }
- report.each {|msg| output.puts msg}
status
rescue Interrupt
- report.each {|msg| output.puts msg}
abort 'Tests halted on interrupt.'
rescue TestFailure
- report.each {|msg| output.puts msg}
abort 'Tests halted on failure (because of --no-continue).'
rescue TestError
- report.each {|msg| output.puts msg}
abort 'Tests halted on error (because of --no-continue).'
end
@@ -114,21 +184,21 @@ class LeapRunner < MiniTest::Unit
when MiniTest::Skip then
@skips += 1
#if @verbose
- @report << report_line("SKIP", klass, meth, e, e.message)
+ report_line("SKIP", klass, meth, e, e.message)
#end
when LeapTest::Pass then
@passes += 1
@report << report_line("PASS", klass, meth)
when MiniTest::Assertion then
@failures += 1
- @report << report_line("FAIL", klass, meth, e, e.message)
+ report_line("FAIL", klass, meth, e, e.message)
if $halt_on_failure
raise TestFailure.new
end
else
@errors += 1
bt = MiniTest::filter_backtrace(e.backtrace).join "\n"
- @report << report_line("ERROR", klass, meth, e, "#{e.class}: #{e.message}\n#{bt}")
+ report_line("ERROR", klass, meth, e, "#{e.class}: #{e.message}\n#{bt}")
if $halt_on_failure
raise TestError.new
end
@@ -141,7 +211,7 @@ class LeapRunner < MiniTest::Unit
#
def status(io = self.output)
format = "%d tests, %d assertions, %d passes, %d failures, %d errors, %d skips"
- io.puts format % [test_count, assertion_count, passes, failures, errors, skips]
+ output.puts format % [test_count, assertion_count, passes, failures, errors, skips]
end
private
@@ -151,13 +221,14 @@ class LeapRunner < MiniTest::Unit
#
def report_line(prefix, klass, meth, e=nil, message=nil)
if e && message
- #indent = "\n" + (" " * (prefix.length+4))
indent = "\n "
msg_txt = indent + message.split("\n").join(indent)
- "#{prefix}: #{readable(klass.name)} > #{readable(meth)} [#{File.basename(location(e))}]:#{msg_txt}\n"
+ output.puts "#{prefix}: #{readable(klass.name)} > #{readable(meth)} [#{File.basename(location(e))}]:#{msg_txt}"
else
- "#{prefix}: #{readable(klass.name)} > #{readable(meth)}\n"
+ output.puts "#{prefix}: #{readable(klass.name)} > #{readable(meth)}"
end
+ # I don't understand at all why, but adding a very tiny sleep here will
+ sleep(0.0001) # keep lines from being joined together by the logger. output.flush doesn't.
end
#
@@ -167,8 +238,8 @@ class LeapRunner < MiniTest::Unit
str.gsub(/([A-Z]+)([A-Z][a-z])/, '\1 \2').
gsub(/([a-z])([A-Z])/, '\1 \2').
gsub(/_/, ' ').
- sub(/^test /i, '').
- downcase
+ sub(/^test (\d* )?/i, '').
+ downcase.capitalize
end
end
@@ -211,11 +282,11 @@ end
if File.exists?('/etc/leap/hiera.yaml')
$node = YAML.load_file('/etc/leap/hiera.yaml')
else
- $node = {"services" => ['webapp'], "dummy" => true}
+ $node = {"services" => [], "dummy" => true}
end
# load all test classes
-Dir[File.expand_path('../../tests/*.rb', __FILE__)].each do |test_file|
+Dir[File.expand_path('../../tests/white-box/*.rb', __FILE__)].each do |test_file|
begin
require test_file
rescue SkipTest