Allow running without parse transform with no loss of functionality

This allows running proper, with the `PROPER_NO_TRANS` flag, with no
loss of functionality in practice, by replacing the implicit type usage
introduced by the parse transform, by explicit calls to a new `?TYPE` macro.

In practice, this is even more powerful than the parse transform. In particular,
it's possible to define ad-hoc types with `?TYPE(X | Y)`, where before defining
a one-off type alias was necessary.

Author: michalmuskala

include/proper_common.hrl

@@ -61,6 +61,7 @@
         proper_types:add_constraint(RawType,fun(X) -> Condition end,true)).
 -define(SUCHTHATMAYBE(X,RawType,Condition),
         proper_types:add_constraint(RawType,fun(X) -> Condition end,false)).
+-define(TYPE(X), proper_types:native_type(?MODULE, ??X)).
 
 %%------------------------------------------------------------------------------
 %% Targeted macros

test/no_transforms.erl

@@ -0,0 +1,37 @@
+%%% -*- coding: utf-8 -*-
+%%% -*- erlang-indent-level: 2 -*-
+%%% -------------------------------------------------------------------
+%%% Copyright 2010-2011 Manolis Papadakis <[email protected]>,
+%%%                     Eirini Arvaniti <[email protected]>
+%%%                 and Kostis Sagonas <[email protected]>
+%%%
+%%% This file is part of PropEr.
+%%%
+%%% PropEr is free software: you can redistribute it and/or modify
+%%% it under the terms of the GNU General Public License as published by
+%%% the Free Software Foundation, either version 3 of the License, or
+%%% (at your option) any later version.
+%%%
+%%% PropEr is distributed in the hope that it will be useful,
+%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+%%% GNU General Public License for more details.
+%%%
+%%% You should have received a copy of the GNU General Public License
+%%% along with PropEr.  If not, see <http://www.gnu.org/licenses/>.
+
+%%% @copyright 2010-2011 Manolis Papadakis, Eirini Arvaniti and Kostis Sagonas
+%%% @version {@version}
+%%% @doc This module tests whether proper works with parse transforms disabled.
+
+-module(no_transforms).
+-export([prop_1/0]).
+
+-define(PROPER_NO_TRANS, true).
+
+-include_lib("proper/include/proper.hrl").
+
+-type local_integer() :: integer().
+-type local_float() :: float().
+
+prop_1() -> ?FORALL(X, ?TYPE(local_integer() | local_float()), is_number(X)).

test/proper_tests.erl

@@ -837,7 +837,8 @@ parse_transform_test_() ->
      ?_assertError(undef, auto_export_test2:prop_1()),
      ?_assertError(undef, no_native_parse_test:prop_1()),
      ?_passes(let_tests:prop_1()),
-     ?_failsWith([3*42], let_tests:prop_2())].
+     ?_failsWith([3*42], let_tests:prop_2()),
+     ?_passes(no_transforms:prop_1())].
 
 native_type_props_test_() ->
     [?_passes(?FORALL({X,Y}, {my_native_type(),my_proper_type()},