anchor.diff:  %%% @end
   
   init_per_suite(Config) ->
  -    case which_module_exists([eqc,proper]) of
  +    case which_module_exists([eqc,proper,triq]) of
   	{ok,ToolModule} ->
    	    ct:pal("Found property tester ~p",[ToolModule]),
   	    Path = property_tests_path("property_test", Config),
  
positive.code: %%% 
  
  %%% Make return values back to the calling Common Test suite
  mk_ct_return(true) ->
      true;
  mk_ct_return(Other) -> 
      try lists:last(hd(eqc:counterexample()))
      of
  	{set,{var,_},{call,M,F,Args}} ->
  	    {fail, io_lib:format("~p:~p/~p returned bad result",[M,F,length(Args)])}
  
negative.code: 
  quickcheck(Property, Config) ->
      Tool = proplists:get_value(property_test_tool,Config),
      mk_ct_return( Tool:quickcheck(Property), Tool ).
  
  
  %%%================================================================
  