anchor.diff:    Server ! {test, File, Test, Status}.
   
   run_and_get_exit_status(Command) ->
  -  Port = open_port({spawn, Command}, [stream, in, eof, hide, exit_status]),
  +  Port = open_port({spawn, Command}, [exit_status]),
     get_exit(Port, infinity).
   
   get_exit(Port, Timeout) ->
  
positive.code:     true ->
        case compile:file(File, [binary]) of
          error ->
            After17 =
              case erlang:system_info(otp_release) of
                "R" ++ _ -> false; %% ... 16 or earlier
                [D,U|_] -> list_to_integer([D,U]) > 17
              end,
            case After17 of
              false -> print_test(File, 'n/a', skip);
              true ->
                print_test(File, 'compile', error),
                compile:file(File, [binary, report_errors]),
                halt(1)
            end,
            ok;
          {ok, Module, Binary} ->
            {module, Module} = code:load_binary(Module, File, Binary),
            Exports = Module:module_info(exports),
  
negative.code:   Color =
      case Status of
        ok -> "\033[92m";
        _ -> "\033[91m"
      end,
    EndC = "\033[0m",
  