1
- % % Copyright (c) 2011, Loïc Hoguin <essen@dev-extend .eu>
1
+ % % Copyright (c) 2011-2012 , Loïc Hoguin <essen@ninenines .eu>
2
2
% % Copyright (c) 2011, Anthony Ramine <[email protected] >
3
3
% %
4
4
% % Permission to use, copy, modify, and/or distribute this software for any
@@ -85,8 +85,8 @@ do_split_path(RawPath, Separator, URLDec) ->
85
85
% % corresponding token value and return it.
86
86
% %
87
87
% % The list of hostname tokens is reversed before matching. For example, if
88
- % % we were to match "www.dev-extend .eu", we would first match "eu", then
89
- % % "dev-extend ", then "www". This means that in the context of hostnames,
88
+ % % we were to match "www.ninenines .eu", we would first match "eu", then
89
+ % % "ninenines ", then "www". This means that in the context of hostnames,
90
90
% % the <em>'...'</em> atom matches properly the lower levels of the domain
91
91
% % as would be expected.
92
92
% %
@@ -173,16 +173,16 @@ split_host_test_() ->
173
173
{<<" " >>, {[], <<" " >>, undefined }},
174
174
{<<" ........." >>, {[], <<" ........." >>, undefined }},
175
175
{<<" *" >>, {[<<" *" >>], <<" *" >>, undefined }},
176
- {<<" cowboy.dev-extend .eu" >>,
177
- {[<<" cowboy" >>, <<" dev-extend " >>, <<" eu" >>],
178
- <<" cowboy.dev-extend .eu" >>, undefined }},
179
- {<<" dev-extend ..eu" >>,
180
- {[<<" dev-extend " >>, <<>>, <<" eu" >>],
181
- <<" dev-extend ..eu" >>, undefined }},
182
- {<<" dev-extend .eu" >>,
183
- {[<<" dev-extend " >>, <<" eu" >>], <<" dev-extend .eu" >>, undefined }},
184
- {<<" dev-extend .eu:8080" >>,
185
- {[<<" dev-extend " >>, <<" eu" >>], <<" dev-extend .eu" >>, 8080 }},
176
+ {<<" cowboy.ninenines .eu" >>,
177
+ {[<<" cowboy" >>, <<" ninenines " >>, <<" eu" >>],
178
+ <<" cowboy.ninenines .eu" >>, undefined }},
179
+ {<<" ninenines ..eu" >>,
180
+ {[<<" ninenines " >>, <<>>, <<" eu" >>],
181
+ <<" ninenines ..eu" >>, undefined }},
182
+ {<<" ninenines .eu" >>,
183
+ {[<<" ninenines " >>, <<" eu" >>], <<" ninenines .eu" >>, undefined }},
184
+ {<<" ninenines .eu:8080" >>,
185
+ {[<<" ninenines " >>, <<" eu" >>], <<" ninenines .eu" >>, 8080 }},
186
186
{<<" a.b.c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z" >>,
187
187
{[<<" a" >>, <<" b" >>, <<" c" >>, <<" d" >>, <<" e" >>, <<" f" >>, <<" g" >>,
188
188
<<" h" >>, <<" i" >>, <<" j" >>, <<" k" >>, <<" l" >>, <<" m" >>, <<" n" >>,
@@ -195,13 +195,13 @@ split_host_test_() ->
195
195
196
196
split_host_fail_test_ () ->
197
197
Tests = [
198
- <<" dev-extend .eu:owns" >>,
199
- <<" dev-extend .eu: owns" >>,
200
- <<" dev-extend .eu:42fun" >>,
201
- <<" dev-extend .eu: 42fun" >>,
202
- <<" dev-extend .eu:42 fun" >>,
203
- <<" dev-extend .eu:fun 42" >>,
204
- <<" dev-extend .eu: 42" >>,
198
+ <<" ninenines .eu:owns" >>,
199
+ <<" ninenines .eu: owns" >>,
200
+ <<" ninenines .eu:42fun" >>,
201
+ <<" ninenines .eu: 42fun" >>,
202
+ <<" ninenines .eu:42 fun" >>,
203
+ <<" ninenines .eu:fun 42" >>,
204
+ <<" ninenines .eu: 42" >>,
205
205
<<" :owns" >>,
206
206
<<" :42 fun" >>
207
207
],
@@ -233,14 +233,14 @@ split_path_test_() ->
233
233
234
234
match_test_ () ->
235
235
Dispatch = [
236
- {[<<" www" >>, '_' , <<" dev-extend " >>, <<" eu" >>], [
236
+ {[<<" www" >>, '_' , <<" ninenines " >>, <<" eu" >>], [
237
237
{[<<" users" >>, '_' , <<" mails" >>], match_any_subdomain_users , []}
238
238
]},
239
- {[<<" dev-extend " >>, <<" eu" >>], [
239
+ {[<<" ninenines " >>, <<" eu" >>], [
240
240
{[<<" users" >>, id , <<" friends" >>], match_extend_users_friends , []},
241
241
{'_' , match_extend , []}
242
242
]},
243
- {[<<" dev-extend " >>, var ], [
243
+ {[<<" ninenines " >>, var ], [
244
244
{[<<" threads" >>, var ], match_duplicate_vars ,
245
245
[we , {expect , two }, var , here ]}
246
246
]},
@@ -255,22 +255,22 @@ match_test_() ->
255
255
% % {Host, Path, Result}
256
256
Tests = [
257
257
{[<<" any" >>], [], {ok , match_any , [], []}},
258
- {[<<" www" >>, <<" any" >>, <<" dev-extend " >>, <<" eu" >>],
258
+ {[<<" www" >>, <<" any" >>, <<" ninenines " >>, <<" eu" >>],
259
259
[<<" users" >>, <<" 42" >>, <<" mails" >>],
260
260
{ok , match_any_subdomain_users , [], []}},
261
- {[<<" www" >>, <<" dev-extend " >>, <<" eu" >>],
261
+ {[<<" www" >>, <<" ninenines " >>, <<" eu" >>],
262
262
[<<" users" >>, <<" 42" >>, <<" mails" >>], {ok , match_any , [], []}},
263
- {[<<" www" >>, <<" dev-extend " >>, <<" eu" >>], [], {ok , match_any , [], []}},
264
- {[<<" www" >>, <<" any" >>, <<" dev-extend " >>, <<" eu" >>],
263
+ {[<<" www" >>, <<" ninenines " >>, <<" eu" >>], [], {ok , match_any , [], []}},
264
+ {[<<" www" >>, <<" any" >>, <<" ninenines " >>, <<" eu" >>],
265
265
[<<" not_users" >>, <<" 42" >>, <<" mails" >>], {error , notfound , path }},
266
- {[<<" dev-extend " >>, <<" eu" >>], [], {ok , match_extend , [], []}},
267
- {[<<" dev-extend " >>, <<" eu" >>], [<<" users" >>, <<" 42" >>, <<" friends" >>],
266
+ {[<<" ninenines " >>, <<" eu" >>], [], {ok , match_extend , [], []}},
267
+ {[<<" ninenines " >>, <<" eu" >>], [<<" users" >>, <<" 42" >>, <<" friends" >>],
268
268
{ok , match_extend_users_friends , [], [{id , <<" 42" >>}]}},
269
269
{[<<" erlang" >>, <<" fr" >>], '_' ,
270
270
{ok , match_erlang_ext , [], [{ext , <<" fr" >>}]}},
271
271
{[<<" any" >>], [<<" users" >>, <<" 444" >>, <<" friends" >>],
272
272
{ok , match_users_friends , [], [{id , <<" 444" >>}]}},
273
- {[<<" dev-extend " >>, <<" fr" >>], [<<" threads" >>, <<" 987" >>],
273
+ {[<<" ninenines " >>, <<" fr" >>], [<<" threads" >>, <<" 987" >>],
274
274
{ok , match_duplicate_vars , [we , {expect , two }, var , here ],
275
275
[{var , <<" fr" >>}, {var , <<" 987" >>}]}}
276
276
],
@@ -280,27 +280,27 @@ match_test_() ->
280
280
281
281
match_info_test_ () ->
282
282
Dispatch = [
283
- {[<<" www" >>, <<" dev-extend " >>, <<" eu" >>], [
283
+ {[<<" www" >>, <<" ninenines " >>, <<" eu" >>], [
284
284
{[<<" pathinfo" >>, <<" is" >>, <<" next" >>, '...' ], match_path , []}
285
285
]},
286
- {['...' , <<" dev-extend " >>, <<" eu" >>], [
286
+ {['...' , <<" ninenines " >>, <<" eu" >>], [
287
287
{'_' , match_any , []}
288
288
]}
289
289
],
290
290
Tests = [
291
- {[<<" dev-extend " >>, <<" eu" >>], [],
291
+ {[<<" ninenines " >>, <<" eu" >>], [],
292
292
{ok , match_any , [], [], [], undefined }},
293
- {[<<" bugs" >>, <<" dev-extend " >>, <<" eu" >>], [],
293
+ {[<<" bugs" >>, <<" ninenines " >>, <<" eu" >>], [],
294
294
{ok , match_any , [], [], [<<" bugs" >>], undefined }},
295
- {[<<" cowboy" >>, <<" bugs" >>, <<" dev-extend " >>, <<" eu" >>], [],
295
+ {[<<" cowboy" >>, <<" bugs" >>, <<" ninenines " >>, <<" eu" >>], [],
296
296
{ok , match_any , [], [], [<<" cowboy" >>, <<" bugs" >>], undefined }},
297
- {[<<" www" >>, <<" dev-extend " >>, <<" eu" >>],
297
+ {[<<" www" >>, <<" ninenines " >>, <<" eu" >>],
298
298
[<<" pathinfo" >>, <<" is" >>, <<" next" >>],
299
299
{ok , match_path , [], [], undefined , []}},
300
- {[<<" www" >>, <<" dev-extend " >>, <<" eu" >>],
300
+ {[<<" www" >>, <<" ninenines " >>, <<" eu" >>],
301
301
[<<" pathinfo" >>, <<" is" >>, <<" next" >>, <<" path_info" >>],
302
302
{ok , match_path , [], [], undefined , [<<" path_info" >>]}},
303
- {[<<" www" >>, <<" dev-extend " >>, <<" eu" >>],
303
+ {[<<" www" >>, <<" ninenines " >>, <<" eu" >>],
304
304
[<<" pathinfo" >>, <<" is" >>, <<" next" >>, <<" foo" >>, <<" bar" >>],
305
305
{ok , match_path , [], [], undefined , [<<" foo" >>, <<" bar" >>]}}
306
306
],
0 commit comments