anchor.diff:  %%%
   %%% @doc Initializes Config for property testing.
   %%%
  -%%% <p>The function investigates if support is available for either Quickcheck or PropEr.
  +%%% <p>The function investigates if support is available for either Quickcheck, PropEr,
  +%%% or Triq.
   %%% The options <c>{property_dir,AbsPath}</c> and
   %%% <c>{property_test_tool,Tool}</c> is set in the Config returned.</p>
   %%% <p>The function is intended to be called in the init_per_suite in the test suite.</p>
  
positive.code: 
  quickcheck(Property, Config) ->
      Tool = proplists:get_value(property_test_tool,Config),
      mk_ct_return( Tool:quickcheck(Property) ).
  
  
  %%%================================================================
  
negative.code: %%% 
  
  %%% Make return values back to the calling Common Test suite
  mk_ct_return(true, _Tool) ->
      true;
  mk_ct_return(Other, Tool) ->
      try lists:last(hd(Tool:counterexample()))
      of
  	{set,{var,_},{call,M,F,Args}} ->
  	    {fail, io_lib:format("~p:~p/~p returned bad result",[M,F,length(Args)])}
  