From ad91aaf81aa7fddba016262f1c8001d479a76be5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Wed, 24 Apr 2013 20:28:44 +0200 Subject: Reorganize the http test suite --- test/rest_patch_resource.erl | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 test/rest_patch_resource.erl (limited to 'test/rest_patch_resource.erl') diff --git a/test/rest_patch_resource.erl b/test/rest_patch_resource.erl deleted file mode 100644 index e265f6f..0000000 --- a/test/rest_patch_resource.erl +++ /dev/null @@ -1,34 +0,0 @@ --module(rest_patch_resource). --export([init/3, allowed_methods/2, content_types_provided/2, get_text_plain/2, - content_types_accepted/2, patch_text_plain/2]). - -init(_Transport, _Req, _Opts) -> - {upgrade, protocol, cowboy_rest}. - -allowed_methods(Req, State) -> - {[<<"HEAD">>, <<"GET">>, <<"PATCH">>], Req, State}. - -content_types_provided(Req, State) -> - {[{{<<"text">>, <<"plain">>, []}, get_text_plain}], Req, State}. - -get_text_plain(Req, State) -> - {<<"This is REST!">>, Req, State}. - -content_types_accepted(Req, State) -> - case cowboy_req:method(Req) of - {<<"PATCH">>, Req0} -> - {[{{<<"text">>, <<"plain">>, []}, patch_text_plain}], Req0, State}; - {_, Req0} -> - {[], Req0, State} - end. - -patch_text_plain(Req, State) -> - case cowboy_req:body(Req) of - {ok, <<"halt">>, Req0} -> - {ok, Req1} = cowboy_req:reply(400, Req0), - {halt, Req1, State}; - {ok, <<"false">>, Req0} -> - {false, Req0, State}; - {ok, _Body, Req0} -> - {true, Req0, State} - end. -- cgit v1.2.3