anchor.diff:  %% Test to spawn program with command payload buffer
   %% just around pipe capacity (9f779819f6bda734c5953468f7798)
   pipe_limit_env(Config) when is_list(Config) ->
  -    Cmd = "true",
  +    Cmd = case os:type() of
  +              {win32,_} -> "cmd /q /c true";
  +              _ -> "true"
  +          end,
       CmdSize = command_payload_size(Cmd),
       Limits = [4096, 16384, 65536], % Try a couple of common pipe buffer sizes
   
  
positive.code: 	    try erlang:open_port({spawn,Cmd},[exit_status, {env, Env}]) of
  		P ->
  		    receive
  			{P, {exit_status,N}} = M ->
  			    %% Bug caused exit_status 150 (EINVAL+128)
  			    0 = N
  		    end
  
negative.code: %% Test that we can handle a very very large environment gracefully.
  huge_env(Config) when is_list(Config) ->
      ct:timetrap({minutes, 2}),
      {Vars, Cmd} = case os:type() of
                        {win32,_} -> {500, "cmd /q /c ls"};
                        _ ->
                            %% We create a huge environment,
                            %% 20000 variables is about 25MB
                            %% which seems to be the limit on Linux.
                            {20000, "ls"}
                    end,
      Env = [{[$a + I div (25*25*25*25) rem 25,
               $a + I div (25*25*25) rem 25,
               $a + I div (25*25) rem 25,
               $a+I div 25 rem 25, $a+I rem 25],
              lists:duplicate(100,$a+I rem 25)}
             || I <- lists:seq(1,Vars)],
      try erlang:open_port({spawn,Cmd},[exit_status, {env, Env}]) of
          P ->
              receive
                  {P, {exit_status,N}} = M ->
  