Add coverage measurement mode by using gcov

This experimental feature is only for Ruby-core team, not for casual users.

Usage: `./configure --enable-gcov && make && make exam && make gcov`

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@58817 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

4 files changed, 66 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
index c68d0cc169..e1313d6cb5 100644
--- a/.gitignore
+++ b/.gitignore
@@ -36,6 +36,9 @@ cygruby*.def
 extconf.h
 y.output
 y.tab.c
+*.gcda
+*.gcno
+*.gcov
 
 # /
 /*-fake.rb
diff --git a/Makefile.in b/Makefile.in
index 033d4299b3..9ae24fb8f4 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -479,6 +479,9 @@ update-download:: update-config_files
 
 after-update:: prereq
 
+gcov:
+	$(Q) $(BASERUBY) $(srcdir)/tool/run-gcov.rb
+
 update-doclie:
 	$(Q) $(srcdir)/tool/git-refresh -C $(srcdir)/coverage $(Q1:0=-q) \
 		--branch $(DOCLIE_GIT_REF) \
diff --git a/configure.in b/configure.in
index cc008dbebf..609ce1f25a 100644
--- a/configure.in
+++ b/configure.in
@@ -4063,6 +4063,14 @@ AC_SUBST(DTRACE_REBUILD)
 AC_SUBST(DTRACE_OPT)
 AC_SUBST(LIBRUBY_A_OBJS)
 
+AC_ARG_ENABLE(gcov,
+       AS_HELP_STRING([--enable-gcov], [enable coverage measurement by gcov]),
+       [gcov=yes])
+if test x"$gcov" = xyes; then
+    CFLAGS="$CFLAGS -coverage"
+    LDFLAGS="$LDFLAGS -coverage"
+fi
+
 RUBY_SETJMP_TYPE
 }
 { # build section
diff --git a/tool/run-gcov.rb b/tool/run-gcov.rb
new file mode 100644
index 0000000000..cbeb900d3f
--- /dev/null
+++ b/tool/run-gcov.rb
@@ -0,0 +1,52 @@
+#!ruby
+require "pathname"
+require "open3"
+
+Pathname.glob("**/*.gcda").sort.each do |gcda|
+  if gcda.fnmatch("ext/*")
+    cwd, gcda = gcda.split.map {|s| s.to_s }
+    objdir = "."
+  else
+    cwd, objdir, gcda = ".", gcda.dirname.to_s, gcda.to_s
+  end
+  puts "$ gcov -lpbc -o #{ objdir } #{ gcda }"
+  out, err, _status = Open3.capture3("gcov", "-lpbc", "-o", objdir, gcda, chdir: cwd)
+  puts out
+  puts err
+
+  # a black list of source files that contains wrong #line directives
+  if err !~ %r(
+    \A(
+      Cannot\ open\ source\ file\ (
+         defs/keywords
+        |zonetab\.list
+        |enc/jis/props\.kwd
+        |parser\.c
+        |parser\.rl
+      )\n
+    )*\z
+  )x
+    raise "Unexpected gcov output"
+  end
+
+  if out !~ %r(
+    \A(
+      File\ .*\nLines\ executed:.*\n
+      (
+        Branches\ executed:.*\n
+        Taken\ at\ least\ once:.*\n
+      |
+        No\ branches\n
+      )?
+      (
+        Calls\ executed:.*\n
+      |
+        No\ calls\n
+      )?
+      Creating\ .*\n
+      \n
+    )+\z
+  )x
+    raise "Unexpected gcov output"
+  end
+end