[armedbear-devel] Unfair fresh-line.5 ANSI-TEST?

[dmiles@users.sourceforge.net]

Fresh-line.5 is a when we compare the output string againt a string
read from the file.. this means the test is contigent on the line
ending style of ABCL matching what SVN checkout did.

(deftest
  (let (result)
    (values
     (with-output-to-string
       (s)
       (write-char #\Space s)
       (setq result
             (list
              (multiple-value-list (notnot-mv (fresh-line s)))
              (multiple-value-list (fresh-line s))
              (multiple-value-list (fresh-line s)))))
     result))
  "
" ((t) (nil) (nil)))

I am thinking the compared to litteral needs to be a constant
programmatily contructed.

Such as a  write-char #\Space + write-char #\Newline

Any thoughts of patch ideas for the ansi-tests?