relevance-rcov 0.9.3-java

data/doc/readme_for_api.markdown

@@ -0,0 +1,22 @@
+# RCov
+
+RCov is a:
+
+1. tool for code coverage analysis for Ruby
+2. library for collecting code coverage and execution count information introspectively
+
+If you want to use the command line tool, the output from `rcov -h` is self explanatory.  If you want to automate the execution of RCov via Rake take a look at [readme for rake]("http://github.com/relevance/rcov/blob/master/doc/readme_for_rake.markdown").  If you want to use the associated library, read on.
+
+## Usage of the RCov runtime/library
+
+RCov is primarily a tool for code coverage analysis, but since 0.4.0 it exposes some of its code so that you can build on top of its heuristics for code analysis and its capabilities for coverage information and execution count gathering.  The main classes of interest are `Rcov::FileStatistics`, `Rcov::CodeCoverageAnalyzer` and `Rcov::CallSiteAnalyzer`. 
+
+* `Rcov::FileStatistics` can use some heuristics to determine which parts of the file are executable and which are mere comments.
+
+* `Rcov::CodeCoverageAnalyzer` is used to gather code coverage and execution count information inside a running Ruby program.
+
+* `Rcov::CallSiteAnalyzer` is used to obtain information about where methods are defined and who calls them.
+
+The parts of RCov's runtime meant to be reused (i.e. the external API) are documented with RDoc. Those not meant to be used are clearly marked as so or were deliberately removed from the present documentation.
+
+

data/doc/readme_for_emacs.markdown

@@ -0,0 +1,52 @@
+# rcov.el
+
+`rcov.el` allows you to use rcov from Emacs conveniently.
+
+* Run unit tests and jump to uncovered code by <code>C-x `</code>
+* Run unit tests and save the current coverage status.
+* Run unit tests and jump to uncovered code introduced since the last run.
+* View cross-reference annotated code.
+
+## Installation
+
+Copy <tt>rcov.el</tt> to the appropriate directory, which is in load-path then require it.
+
+`(require 'rcov)`
+
+## Usage
+
+There are some commands to run RCov in Emacs.  All of them will display RCov window, whose `major-mode` is `compilation-mode`.  This allow you to jump to uncovered code using C-x `. rcov-command-line, rcovsave-command-line, and rcovdiff-command-line define command line to run rcov. If you do not use RCov from Rake, you must modify them.
+
+### Finding uncovered code
+
+Type the following while editing your program:
+  
+`M-x rcov`
+  
+### Setting the reference point
+
+RCov's `--text-coverage-diff` mode compares the current coverage status against the saved one. It therefore needs that information to be recorded before you write new code (typically right after you perform a commit) in order to have something to compare against. You can save the current status with the `--save` option. Type the following to save the current status in Emacs:
+
+`M-x rcovsave`
+
+If you do not use RCov from Rake, you must modify `rcovsave-command-line` variable.
+
+### Finding new uncovered code
+
+Type the following to save the current status in Emacs:
+  
+`M-x rcovdiff`
+
+### Viewing cross-reference annotated code
+
+If you read cross-reference annotated code, issue
+
+`rake rcov RCOVOPTS='-a'`
+
+at the beginning.  This command creates a `coverage` directory and many `*.rb` files in it.  Filenames of these Ruby scripts are converted from original path.  You can browse them by normally `C-x C-f`.  You can think of `-a` option as `--xrefs` option and output format is Ruby script.  After `find-file-ed` annotated script, the `major-mode` is `rcov-xref-mode`,
+which is derived from `ruby-mode` and specializes navigation.
+
+* `Tab` and `M-Tab` goes forward/backward links.
+* `Ret` follows selected link.
+
+This feature is useful to read third-party code or to follow control flow.

data/doc/readme_for_rake.markdown

@@ -0,0 +1,51 @@
+# Code coverage analysis automation with Rake
+
+Since 0.4.0, RCov features a `Rcov::RcovTask` task for rake
+which can be used to automate test coverage analysis.  Basic usage is as
+follows:
+<pre><code>
+require 'rcov/rcovtask'
+Rcov::RcovTask.new do |t|
+  t.test_files = FileList['test/test*.rb']
+  # t.verbose = true     # uncomment to see the executed command
+end
+</pre></code>
+
+This will create by default a task named `rcov`, and also a task to remove the output directory where the XHTML report is generated.  The latter will be named `clobber_rcov`, and will be added to the main `clobber` target.
+
+## Passing command line options to RCov
+
+You can provide a description, change the name of the generated tasks (the one used to generate the report(s) and the `clobber_` one) and pass options to RCov:
+<pre><code>
+desc "Analyze code coverage of the unit tests."
+Rcov::RcovTask.new(:coverage) do |t|
+  t.test_files = FileList['test/test*.rb']
+  t.verbose = true
+  ## get a text report on stdout when rake is run:
+  t.rcov_opts << "--text-report"  
+  ## only report files under 80% coverage
+  t.rcov_opts << "--threshold 80"
+end
+</pre></code>
+
+This will generate a `coverage` task and the associated `clobber_coverage` task to remove the directory the report is dumped to (`coverage` by default).  You can specify a different destination directory, which comes handy if you have several `RcovTask`s; the `clobber_*` will take care of removing that directory:
+<pre><code>
+desc "Analyze code coverage for the FileStatistics class."
+Rcov::RcovTask.new(:rcov_sourcefile) do |t|
+  t.test_files = FileList['test/test_FileStatistics.rb']
+  t.verbose = true
+  t.rcov_opts << "--test-unit-only"
+  t.output_dir = "coverage.sourcefile"
+end
+ 
+Rcov::RcovTask.new(:rcov_ccanalyzer) do |t|
+  t.test_files = FileList['test/test_CodeCoverageAnalyzer.rb']
+  t.verbose = true
+  t.rcov_opts << "--test-unit-only"
+  t.output_dir = "coverage.ccanalyzer"
+end
+</pre></code>
+
+## Options passed through the `rake` command line
+
+You can override the options defined in the RcovTask by passing the new options at the time you invoke rake. The documentation for the `Rcov::RcovTask` explains how this can be done.

data/doc/readme_for_vim.markdown

@@ -0,0 +1,34 @@
+# rcov.vim
+
+`rcov.vim` allows you to run unit tests from vim and enter quickfix mode in order to jump to uncovered code introduced since the last run.
+
+## Installation
+Copy `rcov.vim` to the appropriate `compiler` directory (typically `$HOME/.vim/compiler`).
+
+### Usage
+
+#### Setting the reference point
+
+RCov's `--text-coverage-diff` mode compares the current coverage status against the saved one. It therefore needs that information to be recorded before you write new code (typically right after you perform a commit) in order to have something to compare against.  You can save the current status with the `--save` option.  If you're running RCov from Rake, you can do something like
+  
+`rake rcov_units RCOVOPTS="-T --save --rails"`
+
+in order to take the current status as the reference point.
+
+#### Finding new uncovered code
+
+Type the following in command mode while editing your program:
+  
+`:compiler rcov`
+
+`rcov.vim` assumes RCov can be invoked with a rake task (see  [readme for rake]("http://github.com/relevance/rcov/blob/master/doc/readme_for_rake.markdown") for information on how to create it). 
+
+You can then execute +rcov+ and enter quickfix mode by typing
+
+`:make <taskname>`
+
+where taskname is the +rcov+ task you want to use; if you didn't override the default name in the Rakefile, just
+  
+`:make rcov`
+
+will do.  Vim will then enter quickfix mode, allowing you to jump to the areas that were not covered since the last time you saved the coverage data.

data/editor-extensions/rcov.el

@@ -0,0 +1,131 @@
+;;; rcov.el -- Ruby Coverage Analysis Tool
+
+;;; Copyright (c) 2006 rubikitch <rubikitch@ruby-lang.org>
+;;;
+;;; Use and distribution subject to the terms of the rcov license.
+
+(defvar rcov-xref-before-visit-source-hook nil
+  "Hook executed before jump.")
+(defvar rcov-xref-after-visit-source-hook nil
+  "Hook executed after jump.")
+(defvar rcov-command-line "rake rcov RCOVOPTS='--gcc --no-html'"
+  "Rcov command line to find uncovered code.
+It is good to use rcov with Rake because it `cd's appropriate directory.
+`--gcc' option is strongly recommended because `rcov' uses compilation-mode.")
+(defvar rcovsave-command-line "rake rcov RCOVOPTS='--gcc --no-html --save=coverage.info'"
+  "Rcov command line to save coverage status. See also `rcov-command-line'.")
+(defvar rcovdiff-command-line "rake rcov RCOVOPTS='-D --gcc --no-html'"
+  "Rcov command line to find new uncovered code. See also `rcov-command-line'.")
+
+;;;; rcov-xref-mode
+(define-derived-mode rcov-xref-mode ruby-mode "Rxref"
+  "Major mode for annotated Ruby scripts (coverage/*.rb) by rcov."
+  (setq truncate-lines t)
+  ;; ruby-electric-mode / pabbrev-mode hijacks TAB binding.
+  (and ruby-electric-mode (ruby-electric-mode -1))
+  (and (boundp 'pabbrev-mode) pabbrev-mode (pabbrev-mode -1))
+  (suppress-keymap rcov-xref-mode-map)
+  (define-key rcov-xref-mode-map "\C-i" 'rcov-xref-next-tag)
+  (define-key rcov-xref-mode-map "\M-\C-i" 'rcov-xref-previous-tag)
+  (define-key rcov-xref-mode-map "\C-m" 'rcov-xref-visit-source)
+  (set (make-local-variable 'automatic-hscrolling) nil)
+  )
+  
+(defvar rcov-xref-tag-regexp "\\[\\[\\(.*?\\)\\]\\]")
+
+(defun rcov-xref-next-tag (n)
+  "Go to next LINK."
+  (interactive "p")
+  (when (looking-at rcov-xref-tag-regexp)
+    (goto-char (match-end 0)))
+  (when (re-search-forward rcov-xref-tag-regexp nil t n)
+    (goto-char (match-beginning 0)))
+  (rcov-xref-show-link))
+
+(defun rcov-xref-previous-tag (n)
+  "Go to previous LINK."
+  (interactive "p")
+  (re-search-backward rcov-xref-tag-regexp nil t n)
+  (rcov-xref-show-link))
+
+(defvar rcov-xref-link-tempbuffer " *rcov-link*")
+(defun rcov-xref-show-link ()
+  "Follow current LINK."
+  (let ((link (match-string 1))
+        (eol (point-at-eol)))
+    (save-excursion
+      (when (and link
+                 (re-search-backward "# \\(>>\\|<<\\) " (point-at-bol) t))
+        (while (re-search-forward rcov-xref-tag-regexp eol t)
+          (let ((matched (match-string 1)))
+            (when (string= link matched)
+              (add-text-properties 0 (length matched) '(face highlight) matched))
+            (with-current-buffer (get-buffer-create rcov-xref-link-tempbuffer)
+              (insert matched "\n"))))
+        (let (message-log-max)          ; inhibit *Messages*
+          (message "%s" (with-current-buffer rcov-xref-link-tempbuffer
+                          (substring (buffer-string) 0 -1)))) ; chomp
+        (kill-buffer rcov-xref-link-tempbuffer)))))
+
+
+;; copied from jw-visit-source
+(defun rcov-xref-extract-file-lines (line)
+  "Extract a list of file/line pairs from the given line of text."
+  (let*
+      ((unix_fn "[^ \t\n\r\"'([<{]+")
+       (dos_fn  "[a-zA-Z]:[^ \t\n\r\"'([<{]+")
+       (flre (concat "\\(" unix_fn "\\|" dos_fn "\\):\\([0-9]+\\)"))
+       (start nil)
+       (result nil))
+    (while (string-match flre line start)
+      (setq start (match-end 0))
+      (setq result
+            (cons (list
+                   (substring line (match-beginning 1) (match-end 1))
+                   (string-to-int (substring line (match-beginning 2) (match-end 2))))
+                  result)))
+    result))
+
+(defun rcov-xref-select-file-line (candidates)
+  "Select a file/line candidate that references an existing file."
+  (cond ((null candidates) nil)
+        ((file-readable-p (caar candidates)) (car candidates))
+        (t (rcov-xref-select-file-line (cdr candidates))) ))
+
+(defun rcov-xref-visit-source ()
+  "If the current line contains text like '../src/program.rb:34', visit
+  that file in the other window and position point on that line."
+  (interactive)
+  (let* ((line (progn (looking-at rcov-xref-tag-regexp) (match-string 1)))
+         (candidates (rcov-xref-extract-file-lines line))
+         (file-line (rcov-xref-select-file-line candidates)))
+    (cond (file-line
+           (run-hooks 'rcov-xref-before-visit-source-hook)
+           (find-file (car file-line))
+           (goto-line (cadr file-line))
+           (run-hooks 'rcov-xref-after-visit-source-hook))
+          (t
+           (error "No source location on line.")) )))
+
+;;;; Running rcov with various options.
+(defun rcov-internal (cmdline)
+  "Run rcov with various options."
+  (compile-internal cmdline ""
+                    nil nil nil (lambda (x) "*rcov*")))
+
+(defun rcov ()
+  "Run rcov to find uncovered code."
+  (interactive)
+  (rcov-internal rcov-command-line))
+
+(defun rcovsave ()
+  "Run rcov to save coverage status."
+  (interactive)
+  (rcov-internal rcovsave-command-line))
+
+(defun rcovdiff ()
+  "Run rcov to find new uncovered code."
+  (interactive)
+  (rcov-internal rcovdiff-command-line))
+
+(provide 'rcov)

data/editor-extensions/rcov.vim

@@ -0,0 +1,38 @@
+" Vim compiler file
+" Language:	Ruby
+" Function:	Code coverage information with rcov
+" Maintainer:	Mauricio Fernandez <mfp at acm dot org>
+" Info:		
+" URL:		http://eigenclass.org/hiki.rb?rcov
+" ----------------------------------------------------------------------------
+"
+" Changelog:
+" 0.1:	initial version, shipped with rcov 0.6.0
+"
+" Comments:
+" Initial attempt. 
+" ----------------------------------------------------------------------------
+
+if exists("current_compiler")
+  finish
+endif
+let current_compiler = "rcov"
+
+if exists(":CompilerSet") != 2		" older Vim always used :setlocal
+  command -nargs=* CompilerSet setlocal <args>
+endif
+
+let s:cpo_save = &cpo
+set cpo-=C
+
+CompilerSet makeprg=rake\ $*\ RCOVOPTS=\"-D\ --no-html\ --no-color\"\ $*
+
+CompilerSet errorformat=
+     \%+W\#\#\#\ %f:%l\,
+     \%-C\ \ \ ,
+     \%-C!!\ 
+
+let &cpo = s:cpo_save
+unlet s:cpo_save
+
+" vim: nowrap sw=2 sts=2 ts=8 ff=unix :

data/ext/java/src/CallsiteHook.java

@@ -0,0 +1,137 @@
+import java.util.regex.Matcher;
+import java.util.regex.Pattern;
+
+import org.jruby.Ruby;
+import org.jruby.RubyArray;
+import org.jruby.RubyHash;
+import org.jruby.runtime.Frame;
+import org.jruby.runtime.ThreadContext;
+import org.jruby.runtime.RubyEvent;
+import org.jruby.runtime.builtin.IRubyObject;
+
+public class CallsiteHook extends RcovHook {
+  
+  private static CallsiteHook callsiteHook;
+
+  public static CallsiteHook getCallsiteHook() {
+    if (callsiteHook == null) {
+      callsiteHook = new CallsiteHook();
+    }
+    return callsiteHook;
+  }
+  
+  private boolean active;
+  private RubyHash defsites;
+  private RubyHash callsites;
+  
+  private CallsiteHook() {
+    super();
+  }
+  
+  public boolean isActive() {
+    return active;
+  }
+  
+  public boolean isInterestedInEvent(RubyEvent event) {
+    return event == RubyEvent.CALL || event == RubyEvent.C_CALL;
+  }
+  
+  public RubyArray getCallsiteInfo(Ruby runtime) {
+    RubyArray info = runtime.newArray();
+    info.add(getCallsites(runtime));
+    info.add(getDefsites(runtime));
+    return info;
+  }
+  
+  public void setActive(boolean active) {
+    this.active = active;
+  }
+  
+  public RubyHash resetDefsites() {
+    defsites.clear();
+    return defsites;
+  }
+  
+  public void eventHandler(ThreadContext context, String event, String file, int line, String name, IRubyObject type) {
+    RubyArray currentMethod = context.getRuntime().newArray();
+    currentMethod.add(context.getFrameKlazz());
+    currentMethod.add(context.getRuntime().newSymbol(name));
+    
+    RubyArray fileLoc = context.getRuntime().newArray();
+    fileLoc.add(file);
+    fileLoc.add(Long.valueOf(line));
+    defsites = getDefsites(context.getRuntime());
+    
+    if (!context.isWithinTrace()) {
+      context.setWithinTrace(true);
+      defsites.put(currentMethod, fileLoc);
+      callsites = getCallsites(context.getRuntime());
+      
+      if (!callsites.containsKey(currentMethod)) {
+        callsites.put(currentMethod, RubyHash.newHash(context.getRuntime()));
+      }
+      
+      RubyHash hash = (RubyHash) callsites.get(currentMethod);
+      RubyArray callerArray = customBacktrace(context);
+      
+      if (!hash.containsKey(callerArray)) {
+        hash.put(callerArray, Long.valueOf(0));
+      }
+      
+      Long count = (Long) hash.get(callerArray);
+      long itCount = count.longValue() + 1L;
+      hash.put(callerArray, Long.valueOf(itCount));
+      context.setWithinTrace(false);
+    }
+  }
+  
+  private RubyArray customBacktrace(ThreadContext context) {
+    Frame[] frames = context.createBacktrace(1, false);
+    RubyArray ary = context.getRuntime().newArray();
+    ary.addAll(formatBacktrace(context.getRuntime(), frames[frames.length - 1]));
+    return context.getRuntime().newArray((IRubyObject) ary);
+  }
+  
+  /*
+   * TODO: The logic in this method really needs to be wrapped in a backtrace
+   * object or something. Then I could fix the file path issues that cause
+   * test failures.
+   * @param runtime
+   * @param backtrace
+   * @return
+   */
+  private RubyArray formatBacktrace(Ruby runtime, Frame backtrace) {
+    RubyArray ary = runtime.newArray();
+    
+    if (backtrace == null) {
+      ary.add(runtime.getNil());
+      ary.add(runtime.getNil());
+      ary.add("");
+      ary.add(Long.valueOf(0));
+    } else {
+      ary.add(backtrace.getKlazz());
+      ary.add((backtrace.getName() == null ? runtime.getNil() : runtime.newSymbol( backtrace.getName())));
+      ary.add(backtrace.getFile());
+      //Add 1 to compensate for the zero offset in the Frame elements.
+      ary.add(backtrace.getLine() + 1);
+    }
+    
+    return ary;
+  }
+  
+  private RubyHash getCallsites(Ruby runtime) {
+    if (this.callsites == null) {
+      this.callsites = RubyHash.newHash(runtime);
+    }
+    
+    return this.callsites;
+  }
+  
+  private RubyHash getDefsites(Ruby runtime) {
+    if (this.defsites == null) {
+      this.defsites = RubyHash.newHash(runtime);
+    }
+    
+    return this.defsites;
+  }
+}