53 is_http $cb->(GET '/', Authorization =>'Hello'),200,'Anon','GET / with invalid Authorization';
54 is_http $cb->(GET '/', Authorization =>$auth),200,'Anon','GET / with bad user/pass';
55 is_http $cb->(POST '/register'),400,'Missing parameter username','POST /register with no parameters';
56 is_http $cb->(POST '/register', [@register_args, username =>'???'] ),400,'Username must match (?^a:^\w{2,20}$)','POST /register with bad username';
57 is_http $cb->(POST '/register', [@register_args, password =>'???'] ),400,'The two passwords do not match','POST /register with different passwords';
58 is_http $cb->(POST '/register', \@register_args),200,'Registered successfully','POST /register with correct parameters',
59 is_http $cb->(POST '/register', \@register_args),400,'Username already in use','POST /register with existing user',
60 is_http $cb->(GET '/', Authorization =>$auth),200,'user','GET / with correct user/pass';
62 is_http $cb->(POST '/passwd'),401,'Authorization required','POST /passwd without authorization';
63 is_http $cb->(POST '/passwd', Authorization =>$auth),400,'Missing parameter password','POST /passwd with no parameters';
64 is_http $cb->(POST '/passwd', [@passwd_args, password =>'???'], Authorization =>$auth),400,'Incorrect password','POST /passwd with incorrect old password';
65 is_http $cb->(POST '/passwd', [@passwd_args, new_password =>'???'], Authorization =>$auth),400,'The two passwords do not match','POST /passwd with different new passwords';