anchor.diff:    (send string trim))
   
   (defun assert-equal (expected actual &optional message)
  -  (sys.print (if (= expected actual) "."
  -	       (concat "F\n\n" (if message (concat message "\n\n") "") "expected "expected 
  -		        "\n\nbut got " actual "\n\n"))))
  +  (sys.print (if (= expected actual) (progn (incr passes) ".")
  +               (progn (incr fails)
  +                      (concat "F\n\n" (if message (concat message "\n\n") "") "expected "expected 
  +                              "\n\nbut got " actual "\n\n")))))
   
   (defun assert-translation (sibilant-code js-code)
     (assert-equal (trim js-code)
  
positive.code: #!/usr/bin/env sibilant -x
  
  (defvar sibilant (require "../lib/sibilant")
          sys      (require 'sys))
  
  (console.log (concat "Testing " (sibilant.version-string)))
  
  
negative.code:     return c;
    }
  })();")
  
  
  (console.log (concat "\n\n"  (+ passes fails) " total tests, "
                       passes " passed, " fails " failed"))