<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#ffffff" text="#000000">
    And simpler still:<br>
    <blockquote>split_cases(A) -><br>
          case A of<br>
              x -> Z = dummy1;<br>
              _ -> Z = dummy2,<br>
               a=b<br>
          end,<br>
          Z.<br>
    </blockquote>
    <br>
    <br>
    On 20-12-2011 10:56, Erik Søe Sørensen wrote:
    <blockquote cite="mid:4EF05BB3.1070603@trifork.com" type="cite">
      <meta content="text/html; charset=ISO-8859-1"
        http-equiv="Content-Type">
      A simplified version:<br>
      <blockquote>-module(comperr).<br>
        -compile([export_all]).<br>
        <br>
        split_cases(A) -><br>
            case A of<br>
                x -> Z = dummy1;<br>
                _ -> Z = dummy2, <br>
                 a=b<br>
            end,<br>
            case Z of<br>
                _ -> ok<br>
            end.<br>
      </blockquote>
      This fails with erts-5.8.4.<br>
      <br>
      On 20-12-2011 10:01, Håkan Mattsson wrote:
      <blockquote
cite="mid:CANRhibtC7Zy=b0jPLmP1+uoG=i6G1atgUUwBhLKdAcFLjK_ehw@mail.gmail.com"
        type="cite">
        <div class="moz-text-plain" wrap="true" graphical-quote="true"
          style="font-family: -moz-fixed; font-size: 12px;"
          lang="x-western">
          <pre wrap="">-module(foo).
-compile([export_all]).

split_cases(IsRecursive, [Case | Cases], Acc) ->
    case binary:split(Case, <<": ">>) of
        [<<"qmt file", _/binary>> |_] ->
            Qmt = Case,
            case Cases of
                [Case2 | Cases2] ->
                    Sections = binary:split(Case2, <<"\n">>, [global]);
                [] ->
                    Sections = binary:split(Case, <<"\n">>, []),
                    Cases2 = []
            end;
        [<<"test case", _/binary>> |_] ->
            Qmt = <<>>,
            Sections = binary:split(Case, <<"\n">>, [global]),
            Cases2 = Cases;
        [<<>>] ->
            
            io:format("DEBUG: ~p ~p\n", [Case, Cases]),
            Qmt = <<>>,
            Sections = [],
            Cases2 = [],
            a=b
    end,
    case Sections of
        [Reason] ->
            case binary:split(Qmt, <<": ">>) of
                [_, QmtFile] -> ok;
                []           -> QmtFile = Qmt
            end,
            Res = {result_case, QmtFile, <<"ERROR">>, Reason},
            split_cases(IsRecursive, Cases2, [Res | Acc]);
        [QmtCase, Reason] ->
            [_, QmtFile] = binary:split(QmtCase, <<": ">>),
            Res =
                case binary:split(Reason,    <<": ">>) of
                    [<<"result", _/binary>>, Reason2] ->
                        {result_case, QmtFile, Reason2, Reason};
                    [<<"error", _/binary>>, Reason2] ->
                        {result_case, QmtFile, <<"ERROR">>, Reason2}
                end,
            split_cases(IsRecursive, Cases2, [Res | Acc]);
        [QmtCase, ScriptCase, EventCase | DocAndResult] ->
            [_, QmtFile]    = binary:split(QmtCase,    <<": ">>),
            [_, ScriptFile] = binary:split(ScriptCase, <<": ">>),
            [_, EventFile]  = binary:split(EventCase,  <<": ">>),
            EventLog = binary_to_list(EventFile),
            case IsRecursive of
                true ->
                    case annotate_log(EventLog) of
                        ok ->
                            ok;
                        {error, _, Reason} ->
                            io:format("ERROR in ~s\n\~p\n", [EventLog, Reason])
                    end;
                false ->
                    ignore
            end,
            {Doc, ResultCase} = split_doc(DocAndResult, []),
            Result = parse_result(ResultCase),
            HtmlLog = EventLog ++ ".html",
            Res = {test_case, QmtFile, Qmt, ScriptFile, EventLog, Doc,
                   HtmlLog, Result},
            split_cases(IsRecursive, Cases2, [Res | Acc])
    end;
split_cases(_IsRecursive, [], Acc) ->
    lists:reverse(Acc).

annotate_log(_EventLog) ->
    dummy.

split_doc(_DocAndResult, _Acc) ->
    {dummy, dummy}.

parse_result(_ResultCase) ->
    dummy.
</pre>
        </div>
        <div class="moz-text-plain" wrap="true" graphical-quote="true"
          style="font-family: -moz-fixed; font-size: 12px;"
          lang="x-western"> </div>
      </blockquote>
      <br>
    </blockquote>
    <br>
  </body>
</html>