File tree Expand file tree Collapse file tree 6 files changed +1
-64
lines changed Expand file tree Collapse file tree 6 files changed +1
-64
lines changed Original file line number Diff line number Diff line change @@ -237,36 +237,6 @@ App.get app path::"/xhr" @@ Middleware.from (fun req res next => {
237237 };
238238});
239239
240- App . get app path:: "/nullCookies" @@ Middleware . from (fun req res next => {
241- switch (Request . cookies req) {
242- | None => Response . sendJson res (makeSuccessJson () );
243- | Some _ => next Next . route;
244- }
245- });
246-
247- App . get app path:: "/nullSignedCookies" @@ Middleware . from (fun req res next => {
248- switch (Request . signedCookies req) {
249- | None => Response . sendJson res (makeSuccessJson () );
250- | Some _ => next Next . route;
251- }
252- });
253-
254- App . getWithMany app path:: "/cookies" [|
255- CookieParser . make () ,
256- /* This will enable cookie parsing on that path */
257-
258- Middleware . from (fun req res next => {
259- switch (Request . cookies req) {
260- | Some kv => {
261- switch (getDictString kv "key" ) {
262- | Some "value" => Response . sendJson res (makeSuccessJson () );
263- | _ => next Next . route
264- };
265- }
266- | None => next Next . route;
267- }})
268- |] ;
269-
270240App . listen app port:: 3000 ;
271241
272242/* -- Test the server --
Original file line number Diff line number Diff line change 77 "express" : " ^4.14.0"
88 },
99 "devDependencies" : {
10- "bs-platform" : " ^1.x.x" ,
11- "cookie-parser" : " ^1.x.x"
10+ "bs-platform" : " ^1.x.x"
1211 },
1312 "scripts" : {
1413 "build" : " bsb -clean-world && bsb -make-world" ,
Load Diff This file was deleted.
Load Diff This file was deleted.
Original file line number Diff line number Diff line change @@ -57,10 +57,4 @@ This is the content of test.data a static file
5757-- Accepts Charsets--
5858{"success":true}
5959-- Get--
60- {"success":true}
61- -- NullCookies--
62- {"success":true}
63- -- Cookies--
64- {"success":true}
65- -- NullSignedCookies--
6660{"success":true}
Original file line number Diff line number Diff line change @@ -61,15 +61,6 @@ run_header_test 'Accepts Charsets' 'GET' 'Accept-Charset: UTF-8' \
6161run_header_test ' Get' ' GET' ' key: value' \
6262 ' /get'
6363
64- run_cookie_test () {
65- print_test_title " $1 "
66- curl -X " $2 " --cookie " $3 " http://localhost:3000$4 2>&1 >> $TEST_DATA
67- }
68-
69- run_cookie_test ' NullCookies' ' GET' ' key=value' ' /nullCookies'
70- run_cookie_test ' Cookies' ' GET' ' key=value' ' /cookies'
71- run_cookie_test ' NullSignedCookies' ' GET' ' key=value' ' /nullSignedCookies'
72-
7364# compare test output to reference data
7465
7566REFERENCE_DATA=reference.data
You can’t perform that action at this time.
0 commit comments