aboutsummaryrefslogtreecommitdiffstats
path: root/test/proper_SUITE.erl
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2011-07-26 10:46:06 +0200
committerLoïc Hoguin <[email protected]>2011-07-26 10:46:06 +0200
commite5d4c1f22f29d2ab9e7fb8b5bdd298d02ffaec1e (patch)
tree5be8603b0da98114b62a2781bf9b0ddd1fb356cd /test/proper_SUITE.erl
parent503a0c76628236ed14a22802c2ebd523148ab0e3 (diff)
downloadcowboy-e5d4c1f22f29d2ab9e7fb8b5bdd298d02ffaec1e.tar.gz
cowboy-e5d4c1f22f29d2ab9e7fb8b5bdd298d02ffaec1e.tar.bz2
cowboy-e5d4c1f22f29d2ab9e7fb8b5bdd298d02ffaec1e.zip
Add a PropEr test for cowboy_dispatcher:split_host/1
Mostly thanks to Magnus Klaar as it took me a while to figure out how PropEr tests had to be written.
Diffstat (limited to 'test/proper_SUITE.erl')
-rw-r--r--test/proper_SUITE.erl37
1 files changed, 37 insertions, 0 deletions
diff --git a/test/proper_SUITE.erl b/test/proper_SUITE.erl
new file mode 100644
index 0000000..440aa5f
--- /dev/null
+++ b/test/proper_SUITE.erl
@@ -0,0 +1,37 @@
+%% Copyright (c) 2011, Loïc Hoguin <[email protected]>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-module(proper_SUITE).
+
+-include_lib("common_test/include/ct.hrl").
+
+-export([all/0, groups/0]). %% ct.
+-export([dispatcher_split_host/1]). %% cowboy_dispatcher.
+
+%% ct.
+
+all() ->
+ [{group, dispatcher}].
+
+groups() ->
+ [{dispatcher, [], [dispatcher_split_host]}].
+
+%% cowboy_dispatcher.
+
+dispatcher_split_host(_Config) ->
+ true = proper:quickcheck(dispatcher_prop:prop_split_host_symmetric(),
+ [{on_output, fun(Format, Data) ->
+ io:format(user, Format, Data), %% Console.
+ io:format(Format, Data) %% Logs.
+ end}]).