diff options
| author | Hans Nilsson <hans@erlang.org> | 2014-09-05 15:40:19 +0200 |
|---|---|---|
| committer | Hans Nilsson <hans@erlang.org> | 2014-09-09 10:26:21 +0200 |
| commit | fc2e55e44a0d5a684c2bf10cbfbd0dd0d0c03261 (patch) | |
| tree | 14ba54663300a68176e1dfab8b68bdc8aad5587a | |
| parent | d1af165af799134f791886ea788311cbf68b788d (diff) | |
| download | erlang-fc2e55e44a0d5a684c2bf10cbfbd0dd0d0c03261.tar.gz | |
common_test: ct_property_test call correct Triq function.
| -rw-r--r-- | lib/common_test/src/ct_property_test.erl | 6 |
1 files changed, 5 insertions, 1 deletions
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. + |