anchor.diff:  
   (is (test/let-1)
       "let a : int = 1 in 2"
  -    "A simple let is properly transformed."
  +    "A simple let is properly transformed"
       :test #'equal-ignore-whitespace)
   
   (defun test/case-1 ()
  
positive.code:                (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."
      :test #'equal-ignore-whitespace)
  
  (defun test/let&case-1 ()
  
negative.code:         (tstr2 (replace-all-whitespace str2)))
      (string-equal tstr1 tstr2)))
  
  (subtest "The ignoring-whitespace comparing functions used through this test work as intended."
    (plan 4)
    (ok (equal-ignore-whitespace " a  a " "a a")
        "Ignore spaces before and after the text, as well two spaces to one")
    (ok (equal-ignore-whitespace " a a
  " "a a")
        "Ignore newlines in the end")
    (ok (not (equal-ignore-whitespace " a  a " "aa"))
        "Do not treat the same two symbols with NO space between them")
    (ok (not (equal-ignore-whitespace "a" "b"))
        "Treat different symbols differently")
    (finalize)
  )
  
  