equal
deleted
inserted
replaced
117 else raise Fail ("Cannot parse result of evaluation:\n" ^ line) |
117 else raise Fail ("Cannot parse result of evaluation:\n" ^ line) |
118 |
118 |
119 fun parse_result target out = |
119 fun parse_result target out = |
120 (case split_first_last start_markerN end_markerN out of |
120 (case split_first_last start_markerN end_markerN out of |
121 NONE => error ("Evaluation failed for " ^ target ^ "!\nBash output:\n" ^ out) |
121 NONE => error ("Evaluation failed for " ^ target ^ "!\nBash output:\n" ^ out) |
122 | SOME (_, middle, _) => middle |> trim_line |> split_lines |> map parse_line) |
122 | SOME (_, middle, _) => middle |> trim_split_lines |> map parse_line) |
123 |
123 |
124 |
124 |
125 (* pretty printing of test results *) |
125 (* pretty printing of test results *) |
126 |
126 |
127 fun pretty_eval _ NONE _ = [] |
127 fun pretty_eval _ NONE _ = [] |