anchor.diff:                 (default b))))
   
   (is (test/case-1) "match b with | 0 -> 0 | 1 -> 1 | _ -> b end"
  -    "A case is transformed into a match. Handles default cases."
  +    "A case is transformed into a match. Handles default cases"
       :test #'equal-ignore-whitespace)
   
   (defun test/let&case-1 ()
  
positive.code:      | True -> 4
       | False -> 5
      end"
      "A let with a case is transformed into a let with a match."
      :test #'equal-ignore-whitespace)
  
  (defun test/constructor/true ()
  
negative.code: 
  (is (test/let-1)
      "let a : int = 1 in 2"
      "A simple let is properly transformed"
      :test #'equal-ignore-whitespace)
  
  (defun test/case-1 ()
  