src/HOL/Library/code_test.ML
changeset 65904 8411f1a2272c
parent 65901 e896db33d4ce
child 65905 6181ccb4ec8c
equal deleted inserted replaced
65903:692e428803c8 65904:8411f1a2272c
   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 _ = []