From fc2e55e44a0d5a684c2bf10cbfbd0dd0d0c03261 Mon Sep 17 00:00:00 2001 From: Hans Nilsson Date: Fri, 5 Sep 2014 15:40:19 +0200 Subject: common_test: ct_property_test call correct Triq function. --- lib/common_test/src/ct_property_test.erl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib/common_test/src') diff --git a/lib/common_test/src/ct_property_test.erl b/lib/common_test/src/ct_property_test.erl index 240a36fbfc..39d089f04c 100644 --- a/lib/common_test/src/ct_property_test.erl +++ b/lib/common_test/src/ct_property_test.erl @@ -115,7 +115,8 @@ init_per_suite(Config) -> quickcheck(Property, Config) -> Tool = proplists:get_value(property_test_tool,Config), - mk_ct_return( Tool:quickcheck(Property), Tool ). + F = function_name(quickcheck, Tool), + mk_ct_return( Tool:F(Property), Tool ). %%%================================================================ @@ -178,3 +179,6 @@ macro_def(eqc) -> [{d, 'EQC'}]; macro_def(proper) -> [{d, 'PROPER'}]; macro_def(triq) -> [{d, 'TRIQ'}]. +function_name(quickcheck, triq) -> check; +function_name(F, _) -> F. + -- cgit v1.2.3