abedra

This is an incompatibility with the new ruby 1.9 C api.  If you take a look at http://github.com/spicycode/rcov you will find a ruby19_compatibility branch that I am starting to address these issues in.  It's not complete yet and probably won't be for a few more weeks.  There are a lot of changes that need to be made to this in order for it to work properly with ruby 1.9

abedra

(defn filenames-in-dir
  "Returns pathnames relative to the dir."
  [dir]
  (map #(.. % getPath (replace dir ""))
       (file-seq (java.io.File. dir))))

(defn available-books
  (filter #(re-find #"pdf$" %) (filenames-in-dir "public/books")))

abedra

(use 'clojure.contrib.find-namespaces
     'clojure.test)

(def exit-code (atom 0))

(defn find-tests []
  (filter
   #(re-find #"-test" (str %)) (find-namespaces-in-dir (java.io.File. "test"))))

(defn require-tests []

abedra

From 9f9636c75eb9b53b0bd30bb82b787da4cc753070 Mon Sep 17 00:00:00 2001
From: Aaron Bedra and Jon Distad <pair@thinkrelevance.com>
Date: Thu, 29 Apr 2010 14:56:23 -0400
Subject: [PATCH] exits with 1 when tests have failures or errors

---
 src/leiningen/compile.clj |    2 +-
 src/leiningen/test.clj    |    7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

abedra

  <script type="text/javascript">
    // Framebusting
    if (top != self ) { top.location.replace(document.location); }
  </script>

abedra

(defproject zookeeper-test "1.0.0-SNAPSHOT"
  :description "FIXME: write"
  :dependencies [[org.clojure/clojure "1.2.0"]
                 [org.apache.hadoop/zookeeper "3.3.1"]]
  :dev-dependencies [swank-clojure "1.3.0-SNAPSHOT"])

abedra

(ns bowling.core
  (:use clojure.test))

(defn strike? [rolls]
  (= 10 (first rolls)))

(defn spare? [rolls]
  (= 10 (reduce + (take 2 rolls))))

(defn rolls-to-advance [rolls frame]

abedra

(import '(java.net URL URLEncoder)
         (java.io BufferedReader InputStreamReader)))

(defn request [address]
  (let [url (URL. address)]
    (with-open [stream (. url (openStream))]
      (let [buf (BufferedReader. (InputStreamReader. stream))]
        (apply str (line-seq buf))))))

abedra

user=> (defn foo [] "foo")
#'user/foo
user=> (binding [foo (constantly "bar")] (foo))
IllegalStateException Can't dynamically bind non-dynamic var: user/foo  clojure.lang.Var.pushThreadBindings (Var.java:339)

abedra

~/Desktop> jrubyc test.rb 
~/Desktop> javap -c test
Compiled from "test.rb"
public class test extends org.jruby.ast.executable.AbstractScript{
public test();
  Code:
   0:	aload_0
   1:	invokespecial	#18; //Method org/jruby/ast/executable/AbstractScript."<init>":()V
   4:	aload_0
   5:	ldc	#8; //String test.rb