 "
    ))
 
-(setq rust-test-motion-string
+(defconst rust-test-motion-string
       "
 fn fn1(arg: i32) -> bool {
     let x = 5;

     `(goto-char ,point-pos)
     'expected `(insert ,expected)
     'got `(insert ,got)
     (loop for i from 0 to (max (length original) (length expected))
           for oi = (if (< i (length got)) (elt got i))
           for ei = (if (< i (length expected)) (elt expected i))
           while (equal oi ei)
           finally return `(first-difference-at
                            (goto-char ,(+ 1 i))
                            expected ,(char-to-string ei)
                            got ,(char-to-string oi))))))
(put 'rust-compare-code-after-manip 'ert-explainer
     'rust-test-explain-bad-manip)


    \n    // The previous line already has its spaces
}
")
    (font-lock-flush)
    (font-lock-ensure)
    (goto-char (point-min))
    (forward-line 10)
    (move-to-column 0)
    (indent-for-tab-command)
    (should (equal (current-column) 4))
