rcov 0.5.0.1

data/test/sample_01.rb

@@ -0,0 +1,7 @@
+a = 1
+if a == 2
+  b = 1
+else
+  b = 2
+end
+10.times{ b += 1 }

data/test/sample_02.rb

@@ -0,0 +1,5 @@
+module Rcov; module Test; module Temporary; module Sample02
+  def self.foo(a,b)
+    a + b
+  end
+end end end end

data/test/sample_03.rb

@@ -0,0 +1,20 @@
+
+module Rcov; module Test; module Temporary; class Sample03
+  def f1                # MUST NOT CHANGE the position or the tests will break
+    10.times { f2 }
+  end
+
+  def f2; 1 end
+
+  def f3
+    10.times{ f1 }
+    100.times{ f2 }
+  end                   
+  
+  def self.g1
+    10.times{ g2 }
+  end
+
+  def self.g2; 1 end
+  # safe from here ...
+end end end end

data/test/test_CallSiteAnalyzer.rb

@@ -0,0 +1,172 @@
+
+
+require 'test/unit'
+require 'rcov'
+
+class Test_CallSiteAnalyzer < Test::Unit::TestCase
+
+  sample_file = File.join(File.dirname(__FILE__), "sample_03.rb")
+  load sample_file
+
+  def setup
+    @a = Rcov::CallSiteAnalyzer.new
+    @o = Rcov::Test::Temporary::Sample03.new
+  end
+
+  def verify_callsites_equal(expected, actual)
+    callsites = expected.inject({}) do |s,(desc, count)| 
+      s[Rcov::CallSiteAnalyzer::CallSite.new(desc)] = count
+      s
+    end
+    assert_equal(callsites, actual)
+  end
+
+  def verify_defsite_equal(expected, actual)
+    assert_equal(Rcov::CallSiteAnalyzer::DefSite.new(*expected), actual)
+  end
+
+  def test_callsite_compute_raw_difference
+    src = [ 
+            { ["Foo", "foo"] => {"bar" => 1},
+              ["Foo", "bar"] => {"baz" => 10} }, 
+            { ["Foo", "foo"] => ["foo.rb", 10] } 
+          ]
+    dst = [ 
+            { ["Foo", "foo"] => {"bar" => 1, "fubar" => 10},
+              ["Foo", "baz"] => {"baz" => 10} },
+            { ["Foo", "foo"] => ["fooredef.rb", 10],
+              ["Foo", "baz"] => ["foo.rb", 20]}
+          ]
+    expected = [ 
+                 { ["Foo", "foo"] => {"fubar" => 10},
+                   ["Foo", "baz"] => {"baz"   => 10} },
+                 { ["Foo", "foo"] => ["fooredef.rb", 10],
+                   ["Foo", "baz"] => ["foo.rb", 20] } 
+    ]
+               
+    assert_equal(expected, 
+                 @a.instance_eval{ compute_raw_data_difference(src, dst) } )
+  end
+
+  def test_return_values_when_no_match
+    @a.run_hooked{ @o.f1 }
+    assert_equal(nil, @a.defsite("Foobar#bogus"))
+    assert_equal(nil, @a.defsite("Foobar", "bogus"))
+    assert_equal(nil, @a.callsites("Foobar", "bogus"))
+    assert_equal(nil, @a.callsites("Foobar.bogus"))
+    assert_equal(nil, @a.callsites("<Class:Foobar>", "bogus"))
+  end
+
+  def test_basic_defsite_recording
+    @a.run_hooked{ @o.f1 }
+    verify_defsite_equal(["./test/sample_03.rb", 3], 
+                 @a.defsite("Rcov::Test::Temporary::Sample03", "f1"))
+    verify_defsite_equal(["./test/sample_03.rb", 7], 
+                 @a.defsite("Rcov::Test::Temporary::Sample03", "f2"))
+    verify_defsite_equal(["./test/sample_03.rb", 7], 
+                 @a.defsite("Rcov::Test::Temporary::Sample03#f2"))
+  end
+
+  def test_basic_callsite_recording
+    @a.run_hooked{ @o.f1 }
+    assert(@a.analyzed_classes.include?("Rcov::Test::Temporary::Sample03"))
+    assert_equal(%w[f1 f2], @a.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 10}, 
+                 @a.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 10}, 
+                 @a.callsites("Rcov::Test::Temporary::Sample03#f2"))
+  end
+
+  def test_basic_callsite_recording_API
+    @a.run_hooked{ @o.f1 }
+    assert(@a.analyzed_classes.include?("Rcov::Test::Temporary::Sample03"))
+    assert_equal(%w[f1 f2], @a.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 10}, 
+                 @a.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+    callsites = @a.callsites("Rcov::Test::Temporary::Sample03", "f2")
+    callsite = callsites.keys[0]
+    assert_equal("./test/sample_03.rb", callsite.file)
+    assert_equal(4, callsite.line)
+    assert_equal("f1", callsite.calling_method)
+  end
+  
+  def test_basic_callsite_recording_with_singleton_classes
+    @a.run_hooked{ @o.class.g1 }
+    assert(@a.analyzed_classes.include?("#<Class:Rcov::Test::Temporary::Sample03>"))
+    assert_equal(%w[g1 g2], @a.analyzed_methods("#<Class:Rcov::Test::Temporary::Sample03>"))
+    verify_callsites_equal({["./test/sample_03.rb:15:in `g1'"] => 10}, 
+                 @a.callsites("Rcov::Test::Temporary::Sample03.g2"))
+    verify_callsites_equal({["./test/sample_03.rb:15:in `g1'"] => 10}, 
+                 @a.callsites("#<Class:Rcov::Test::Temporary::Sample03>","g2"))
+  end
+
+
+  def test_differential_callsite_recording
+    @a.run_hooked{ @o.f1 }
+    assert(@a.analyzed_classes.include?("Rcov::Test::Temporary::Sample03"))
+    assert_equal(%w[f1 f2], @a.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 10}, 
+                 @a.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+
+    @a.run_hooked{ @o.f1 }
+    assert(@a.analyzed_classes.include?("Rcov::Test::Temporary::Sample03"))
+    assert_equal(%w[f1 f2], @a.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 20}, 
+                 @a.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+    
+    @a.run_hooked{ @o.f3 }
+    assert_equal(%w[f1 f2 f3], @a.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 120,
+                  ["./test/sample_03.rb:11:in `f3'"]=>100 },
+                 @a.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+  end
+
+  def test_reset
+    @a.run_hooked do
+      10.times{ @o.f1 }
+      @a.reset
+      @o.f1
+    end
+    assert(@a.analyzed_classes.include?("Rcov::Test::Temporary::Sample03"))
+    assert_equal(%w[f1 f2], @a.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 10}, 
+                 @a.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+
+  end
+
+  def test_nested_callsite_recording
+    a = Rcov::CallSiteAnalyzer.new
+    b = Rcov::CallSiteAnalyzer.new
+    a.run_hooked do 
+      b.run_hooked { @o.f1 }
+      assert(b.analyzed_classes.include?("Rcov::Test::Temporary::Sample03"))
+      assert_equal(%w[f1 f2], b.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+      verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 10}, 
+                   b.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+
+      @o.f1
+      assert_equal(%w[f1 f2], b.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+      verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 10}, 
+                   b.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+      
+      assert(a.analyzed_classes.include?("Rcov::Test::Temporary::Sample03"))
+      assert_equal(%w[f1 f2], a.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+      verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 20}, 
+                   a.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+    end
+    b.run_hooked{ @o.f3 }
+    assert_equal(%w[f1 f2 f3], b.analyzed_methods("Rcov::Test::Temporary::Sample03"))
+    verify_callsites_equal({["./test/sample_03.rb:4:in `f1'"] => 110,
+                  ["./test/sample_03.rb:11:in `f3'"]=>100 },
+                 b.callsites("Rcov::Test::Temporary::Sample03", "f2"))
+  end
+
+  def test_expand_name
+    assert_equal(["Foo", "foo"], @a.instance_eval{ expand_name("Foo#foo") })
+    assert_equal(["Foo", "foo"], @a.instance_eval{ expand_name("Foo", "foo") })
+    assert_equal(["#<Class:Foo>", "foo"], 
+                 @a.instance_eval{ expand_name("Foo.foo") })
+    assert_equal(["#<Class:Foo>", "foo"], 
+                 @a.instance_eval{ expand_name("#<Class:Foo>", "foo") })
+  end
+end

data/test/test_CodeCoverageAnalyzer.rb

@@ -0,0 +1,183 @@
+
+require 'test/unit'
+require 'rcov'
+
+class Test_CodeCoverageAnalyzer < Test::Unit::TestCase
+    LINES = <<-EOF.to_a
+puts 1
+if foo
+  bar
+  baz
+end
+5.times do
+  foo
+  bar if baz
+end
+EOF
+
+  def setup
+    if defined? Rcov::Test::Temporary
+      Rcov::Test::Temporary.constants.each do |name|
+        Rcov::Test::Temporary.module_eval{ remove_const(name) }
+      end
+    end
+  end
+
+  def test_refine_coverage_info
+    analyzer = Rcov::CodeCoverageAnalyzer.new
+    cover = [1, 1, nil, nil, 0, 5, 5, 5, 0]
+    line_info, marked_info, 
+      count_info = analyzer.instance_eval{ refine_coverage_info(LINES, cover) }
+    assert_equal(LINES.map{|l| l.chomp}, line_info)
+    assert_equal([true] * 2 + [false] * 3 + [true] * 3 + [false], marked_info)
+    assert_equal([1, 1, 0, 0, 0, 5, 5, 5, 0], count_info)
+  end
+
+  def test_analyzed_files_no_analysis
+    analyzer = Rcov::CodeCoverageAnalyzer.new
+    assert_equal([], analyzer.analyzed_files)
+  end
+
+  def test_raw_coverage_info
+    sample_file = File.join(File.dirname(__FILE__), "sample_01.rb")
+    lines = File.readlines(sample_file)
+    analyzer = Rcov::CodeCoverageAnalyzer.new
+    analyzer.run_hooked{ load sample_file }
+    
+    assert_equal(lines, SCRIPT_LINES__[sample_file][0, lines.size])
+    assert(analyzer.analyzed_files.include?(sample_file))
+    line_info, cov_info, count_info = analyzer.data(sample_file)
+    assert_equal(lines.map{|l| l.chomp}, line_info)
+    assert_equal([true, true, false, false, true, false, true], cov_info)
+    assert_equal([1, 2, 0, 0, 1, 0, 11], count_info)
+    analyzer.reset
+    assert_equal(nil, analyzer.data(sample_file))
+    assert_equal([], analyzer.analyzed_files)
+  end
+
+  def test_script_lines_workaround_detects_correctly
+    analyzer = Rcov::CodeCoverageAnalyzer.new
+    lines = ["puts a", "foo", "bar"] * 3
+    coverage = [true] * 3 + [false] * 6
+    counts = [1] * 3 + [0] * 6
+    nlines, ncoverage, ncounts = analyzer.instance_eval do 
+      script_lines_workaround(lines, coverage, counts)
+    end
+   
+    assert_equal(["puts a", "foo", "bar"], nlines)
+    assert_equal([true, true, true], ncoverage)
+    assert_equal([1, 1, 1], ncounts)
+  end
+
+  def test_script_lines_workaround_no_false_positives
+    analyzer = Rcov::CodeCoverageAnalyzer.new
+    lines = ["puts a", "foo", "bar"] * 2 + ["puts a", "foo", "baz"]
+    coverage = [true] * 9
+    counts = [1] * 9
+    nlines, ncoverage, ncounts = analyzer.instance_eval do 
+      script_lines_workaround(lines, coverage, counts)
+    end
+    assert_equal(lines, nlines)
+    assert_equal(coverage, ncoverage)
+    assert_equal(counts, ncounts)
+  end
+
+  def test_differential_coverage_data
+    sample_file = File.join(File.dirname(__FILE__), "sample_01.rb")
+    lines = File.readlines(sample_file)
+    analyzer = Rcov::CodeCoverageAnalyzer.new
+    analyzer.run_hooked{ load sample_file }
+    line_info, cov_info, count_info = analyzer.data(sample_file)
+    assert_equal([1, 2, 0, 0, 1, 0, 11], count_info)
+    
+    analyzer.reset
+    
+    sample_file = File.join(File.dirname(__FILE__), "sample_02.rb")
+    analyzer.run_hooked{ load sample_file }
+    line_info, cov_info, count_info = analyzer.data(sample_file)
+    assert_equal([8, 1, 0, 0, 0], count_info)
+    
+    analyzer.reset
+    assert_equal([], analyzer.analyzed_files)
+    analyzer.run_hooked{ Rcov::Test::Temporary::Sample02.foo(1, 1) }
+    line_info, cov_info, count_info = analyzer.data(sample_file)
+    assert_equal([0, 1, 1, 1, 0], count_info)
+    analyzer.run_hooked do 
+      10.times{ Rcov::Test::Temporary::Sample02.foo(1, 1) }
+    end
+    line_info, cov_info, count_info = analyzer.data(sample_file)
+    assert_equal([0, 11, 11, 11, 0], count_info)
+    10.times{ analyzer.run_hooked{ Rcov::Test::Temporary::Sample02.foo(1, 1) } }
+    line_info, cov_info, count_info = analyzer.data(sample_file)
+    assert_equal([0, 21, 21, 21, 0], count_info)
+
+    count_info2 = nil
+    10.times do |i|
+      analyzer.run_hooked do 
+        Rcov::Test::Temporary::Sample02.foo(1, 1)
+        line_info, cov_info, count_info = analyzer.data(sample_file) if i == 3
+        line_info2, cov_info2, count_info2 = analyzer.data(sample_file)
+      end
+    end
+    assert_equal([0, 25, 25, 25, 0], count_info)
+    assert_equal([0, 31, 31, 31, 0], count_info2)
+  end
+
+  def test_nested_analyzer_blocks
+    a1 = Rcov::CodeCoverageAnalyzer.new
+    a2 = Rcov::CodeCoverageAnalyzer.new
+
+    sample_file = File.join(File.dirname(__FILE__), "sample_02.rb")
+    load sample_file
+    
+    a1.run_hooked do 
+      100.times{ Rcov::Test::Temporary::Sample02.foo(1, 1) }
+      a2.run_hooked do
+        10.times{ Rcov::Test::Temporary::Sample02.foo(1, 1) }
+      end
+      100.times{ Rcov::Test::Temporary::Sample02.foo(1, 1) }
+    end
+
+    a2.run_hooked do
+      100.times{ Rcov::Test::Temporary::Sample02.foo(1, 1) }
+      10.times{ a1.run_hooked { Rcov::Test::Temporary::Sample02.foo(1, 1) } }
+    end
+
+    a1.install_hook
+    Rcov::Test::Temporary::Sample02.foo(1, 1)
+    a1.remove_hook
+
+    a2.install_hook
+    Rcov::Test::Temporary::Sample02.foo(1, 1)
+    a2.remove_hook
+
+    _, _, counts1 = a1.data(sample_file)
+    _, _, counts2 = a2.data(sample_file)
+    assert_equal([0, 221, 221, 221, 0], counts1)
+    assert_equal([0, 121, 121, 121, 0], counts2)
+  end
+
+  def test_reset
+    a1 = Rcov::CodeCoverageAnalyzer.new
+
+    sample_file = File.join(File.dirname(__FILE__), "sample_02.rb")
+    load sample_file
+
+    a1.run_hooked do
+      100.times do |i|
+        Rcov::Test::Temporary::Sample02.foo(1, 1)
+        a1.reset if i == 49
+      end
+    end
+
+    assert_equal([0, 50, 50, 50, 0], a1.data(sample_file)[2])
+  end
+
+  def test_compute_raw_difference
+    first = {"a" => [1,1,1,1,1]}
+    last =  {"a" => [2,1,5,2,1], "b" => [1,2,3,4,5]}
+    a = Rcov::CodeCoverageAnalyzer.new
+    assert_equal({"a" => [1,0,4,1,0], "b" => [1,2,3,4,5]}, 
+                 a.instance_eval{ compute_raw_data_difference(first, last)} )
+  end
+end

data/test/test_FileStatistics.rb

@@ -0,0 +1,403 @@
+
+require 'test/unit'
+require 'rcov'
+
+class Test_FileStatistics < Test::Unit::TestCase
+  def test_trailing_end_is_inferred
+    verify_everything_marked "trailing end", <<-EOF
+      1 class X
+      1   def foo
+      2     "foo"
+      0   end
+      0 end
+    EOF
+    verify_everything_marked "trailing end with comments", <<-EOF
+      1 class X
+      1   def foo
+      2     "foo"
+      0   end
+      0 # foo bar
+      0 =begin
+      0  ....
+      0 =end
+      0 end
+    EOF
+  end
+
+  def test_begin_ensure_else_case_are_inferred
+    verify_everything_marked "begin ensure else case", <<-EOF
+      0 begin
+      #   bleh
+      2   puts a
+      0   begin
+      2     raise "foo"
+      0   rescue Exception => e
+      2     puts b
+      0   ensure
+      2     puts c
+      0   end
+      2   if a()
+      1     b
+      0   else
+      1     c
+      0   end
+      0   case 
+      2   when bar =~ /foo/
+      1     puts "bar"
+      0   else
+      1     puts "baz"
+      0   end
+      0 end
+    EOF
+  end
+
+  def test_rescue_is_inferred
+    verify_everything_marked "rescue", <<-EOF
+      0 begin
+      1   foo
+      0 rescue
+      1   puts "bar"
+      0 end
+    EOF
+  end
+
+  def test_code_metrics_are_computed_correctly
+    lines, coverage, counts = code_info_from_string <<-EOF
+      1 a = 1
+      0 # this is a comment
+      1 if bar
+      0   b = 2
+      0 end
+      0 =begin
+      0 this too
+      0 bleh
+      0 =end
+      0 puts <<EOF
+      0  bleh
+      0 EOF
+      3 c.times{ i += 1}
+    EOF
+    sf = Rcov::FileStatistics.new("metrics", lines, counts)
+    assert_in_delta(0.307, sf.total_coverage, 0.01)
+    assert_in_delta(0.375, sf.code_coverage, 0.01)
+    assert_equal(8, sf.num_code_lines)
+    assert_equal(13, sf.num_lines)
+    assert_equal([true, :inferred, true, false, false, false, false, false, 
+                 false, false, false, false, true], sf.coverage.to_a)
+  end
+  
+  def test_merge
+    lines, coverage, counts = code_info_from_string <<-EOF
+      1 a = 1
+      1 if bar
+      0   b = 2
+      0 end
+      0 puts <<EOF
+      0  bleh
+      0 EOF
+      3 c.times{ i += 1}
+    EOF
+    sf = Rcov::FileStatistics.new("merge", lines, counts)
+    lines, coverage, counts = code_info_from_string <<-EOF
+      1 a = 1
+      1 if bar
+      1   b = 2
+      0 end
+      1 puts <<EOF
+      0  bleh
+      0 EOF
+      10 c.times{ i += 1}
+    EOF
+    sf2 = Rcov::FileStatistics.new("merge", lines, counts)
+    expected = [true, true, true, :inferred, true, :inferred, :inferred, true]
+    assert_equal(expected, sf2.coverage.to_a)
+    sf.merge(sf2.lines, sf2.coverage, sf2.counts)
+    assert_equal(expected, sf.coverage.to_a)
+    assert_equal([2, 2, 1, 0, 1, 0, 0, 13], sf.counts)
+  end
+
+  def test_heredocs_basic
+    verify_everything_marked "heredocs-basic.rb", <<-EOF
+      1 puts 1 + 1
+      1 puts <<HEREDOC
+      0   first line of the heredoc
+      0   not marked
+      0   but should be
+      0 HEREDOC
+      1 puts 1
+    EOF
+    verify_everything_marked "squote", <<-EOF
+      1 puts <<'HEREDOC'
+      0   first line of the heredoc
+      0 HEREDOC
+    EOF
+    verify_everything_marked "dquote", <<-EOF
+      1 puts <<"HEREDOC"
+      0   first line of the heredoc
+      0 HEREDOC
+    EOF
+    verify_everything_marked "xquote", <<-EOF
+      1 puts <<`HEREDOC`
+      0   first line of the heredoc
+      0 HEREDOC
+    EOF
+    verify_everything_marked "stuff-after-heredoc", <<-EOF
+      1 full_message = build_message(msg, <<EOT, object1, object2)
+      0 <?> and <?> do not contain the same elements
+      0 EOT
+    EOF
+  end
+
+  def test_heredocs_multiple
+    verify_everything_marked "multiple-unquoted", <<-EOF
+      1 puts <<HEREDOC, <<HERE2
+      0   first line of the heredoc
+      0 HEREDOC
+      0   second heredoc
+      0 HERE2
+    EOF
+    verify_everything_marked "multiple-quoted", <<-EOF
+      1 puts <<'HEREDOC', <<`HERE2`, <<"HERE3"
+      0   first line of the heredoc
+      0 HEREDOC
+      0   second heredoc
+      0 HERE2
+      0 dsfdsfffd
+      0 HERE3
+    EOF
+    verify_everything_marked "same-identifier", <<-EOF
+      1 puts <<H, <<H
+      0 foo
+      0 H
+      0 bar
+      0 H
+    EOF
+    verify_everything_marked "stuff-after-heredoc", <<-EOF
+      1 full_message = build_message(msg, <<EOT, object1, object2, <<EOT)
+      0 <?> and <?> do not contain the same elements
+      0 EOT
+      0 <?> and <?> are foo bar baz
+      0 EOT
+    EOF
+  end
+  def test_ignore_non_heredocs
+    verify_marked_exactly "bitshift-numeric", [0], <<-EOF
+      1 puts 1<<2
+      0 return if foo
+      0 do_stuff()
+      0 2
+    EOF
+    verify_marked_exactly "bitshift-symbolic", [0], <<-EOF
+      1 puts 1<<LSHIFT
+      0 return if bar
+      0 do_stuff()
+      0 LSHIFT
+    EOF
+    verify_marked_exactly "bitshift-symbolic-multi", 0..3, <<-EOF
+      1 puts <<EOF, 1<<LSHIFT
+      0 random text
+      0 EOF
+      1 return if bar
+      0 puts "foo"
+      0 LSHIFT
+    EOF
+    verify_marked_exactly "bitshift-symshift-evil", 0..2, <<-EOF
+      1 foo = 1
+      1 puts foo<<CONS
+      1 return if bar
+      0 foo + baz
+    EOF
+  end
+
+  def test_handle_multiline_expressions
+    verify_everything_marked "expression", <<-EOF
+      1 puts 1, 2.
+      0           abs + 
+      0           1 -
+      0           1 *
+      0           1 /  
+      0           1, 1 <
+      0           2, 3 > 
+      0           4 % 
+      0           3 &&
+      0           true ||
+      0           foo <<
+      0           bar(
+      0               baz[
+      0                   {
+      0                    1,2}] =
+      0               1 )
+    EOF
+    verify_everything_marked "boolean expression", <<-EOF
+      1 x = (foo and
+      0         bar) or
+      0     baz
+    EOF
+    verify_marked_exactly "code blocks", [0, 3, 6], <<-EOF
+      1 x = foo do   # stuff
+      0   baz
+      0 end
+      1 bar do |x|
+      0   baz
+      0 end
+      1 bar {|a, b|    # bleh | +1
+      0   baz
+      0 }
+    EOF
+    verify_everything_marked "escaped linebreaks", <<-EOF
+      1 def t2
+      0    puts \\
+      1      "foo"
+      0  end
+      0 end
+    EOF
+  end
+
+  def test_handle_multiline_expression_1st_line_ends_in_block_header
+    # excerpt taken from mongrel/handlers.rb
+    verify_everything_marked "multiline with block starting on 1st", <<-EOF
+    1 uris = listener.classifier.handler_map
+    0 results << table("handlers", uris.map {|uri,handlers| 
+    1  [uri, 
+    0    "<pre>" + 
+    1    handlers.map {|h| h.class.to_s }.join("\n") + 
+    0    "</pre>"
+    0  ]
+    1 })
+    EOF
+  end
+
+  def test_handle_multiple_block_end_delimiters_in_empty_line
+    verify_everything_marked "multiline with }) delimiter, forward", <<-EOF
+      1 assert(@c.config == {
+      0 'host' => 'myhost.tld',
+      0 'port' => 1234 
+      0 })
+    EOF
+    verify_everything_marked "multiline with }) delimiter, backwards", <<-EOF
+      0 assert(@c.config == {
+      0 'host' => 'myhost.tld',
+      0 'port' => 1234 
+      1 })
+    EOF
+  end
+  
+  STRING_DELIMITER_PAIRS = [
+    %w-%{ }-, %w-%q{ }-, %w-%Q{ }-, %w{%[ ]}, %w{%q[ ]}, 
+    %w{%( )}, %w{%Q( )}, %w{%Q[ ]}, %w{%q! !}, %w{%! !},
+  ]
+  
+  def test_multiline_strings_basic
+    STRING_DELIMITER_PAIRS.each do |s_delim, e_delim|
+      verify_everything_marked "multiline strings, basic #{s_delim}", <<-EOF
+        1 PATTERN_TEXT = #{s_delim}
+        0   NUMBERS       = 'one|two|three|four|five'
+        0   ON_OFF        = 'on|off'
+        0 #{e_delim}
+      EOF
+    end
+    STRING_DELIMITER_PAIRS.each do |s_delim, e_delim|
+      verify_marked_exactly "multiline strings, escaped #{s_delim}", [0], <<-EOF
+        1 PATTERN_TEXT = #{s_delim} foooo bar baz \\#{e_delim} baz #{e_delim}
+        0 NUMBERS       = 'one|two|three|four|five'
+        0 ON_OFF        = 'on|off'
+      EOF
+
+      verify_marked_exactly "multiline strings, #{s_delim}, interpolation", 
+                            [0], <<-EOF
+        1 PATTERN_TEXT = #{s_delim}  \#{#{s_delim} foo #{e_delim}} \\#{e_delim} baz #{e_delim}
+        0 NUMBERS       = 'one|two|three|four|five'
+        0 ON_OFF        = 'on|off'
+      EOF
+    end
+  end
+  
+  def test_multiline_strings_escaped_delimiter
+    STRING_DELIMITER_PAIRS.each do |s_delim, e_delim|
+      verify_everything_marked "multiline, escaped #{s_delim}", <<-EOF
+        1 PATTERN_TEXT = #{s_delim}  foo \\#{e_delim}
+        0   NUMBERS       = 'one|two|three|four|five'
+        0   ON_OFF        = 'on|off'
+        0 #{e_delim}
+      EOF
+    end
+  end
+
+  def test_handle_multiline_expressions_with_heredocs
+    verify_everything_marked "multiline and heredocs", <<-EOF
+      1 puts <<EOF + 
+      0 testing
+      0 one two three   
+      0 EOF
+      0 somevar
+    EOF
+  end
+
+  def test_begin_end_comment_blocks
+    verify_everything_marked "=begin/=end", <<-EOF
+    1 x = foo
+    0 =begin
+    0 return if bar(x)
+    0 =end
+    1 y = 1
+    EOF
+  end
+
+  def test_is_code_p
+    verify_is_code "basic", [true] + [false] * 5 + [true], <<-EOF
+    1 x = foo
+    0 =begin
+    0 return if bar
+    0 =end
+    0 # foo
+    0 # bar
+    1 y = 1
+    EOF
+  end
+
+  def test_is_code_p_tricky_heredocs
+    verify_is_code "tricky heredocs", [true] * 4, <<-EOF
+    2 x = foo <<EOF and return
+    0 =begin
+    0 EOF
+    0 z = x + 1
+    EOF
+  end
+
+  def verify_is_code(testname, is_code_arr, str)
+    lines, coverage, counts = code_info_from_string str
+
+    sf = Rcov::FileStatistics.new(testname, lines, counts)
+    is_code_arr.each_with_index do |val,i|
+      assert_equal(val, sf.is_code?(i), 
+                   "Unable to detect =begin comments properly: #{lines[i].inspect}")
+    end
+  end
+
+  def verify_marked_exactly(testname, marked_indices, str)
+    lines, coverage, counts = code_info_from_string(str)
+
+    sf = Rcov::FileStatistics.new(testname, lines, counts)
+    lines.size.times do |i|
+      if marked_indices.include? i
+        assert(sf.coverage[i], "Test #{testname}; " + 
+               "line should have been marked: #{lines[i].inspect}.")
+      else
+        assert(!sf.coverage[i], "Test #{testname}; " + 
+               "line should not have been marked: #{lines[i].inspect}.")
+      end
+    end
+  end
+  
+  def verify_everything_marked(testname, str)
+    verify_marked_exactly(testname, (0...str.size).to_a, str)
+  end
+
+
+  def code_info_from_string(str)
+    str = str.gsub(/^\s*/,"")
+    [ str.map{|line| line.sub(/^\d+ /, "") },
+      str.map{|line| line[/^\d+/].to_i > 0}, 
+      str.map{|line| line[/^\d+/].to_i } ]
+  end
+end