66 is_http $cb->(GET '/', Authorization =>'Hello'),200,'Anon','GET / with invalid Authorization';
67 is_http $cb->(GET '/', Authorization =>$auth),200,'Anon','GET / with bad user/pass';
68 is_http $cb->(POST '/register'),400,'Missing parameter username','POST /register with no parameters';
69 is_http $cb->(POST '/register', [@register_args, username =>'???'] ),400,'Invalid username','POST /register with bad username';
70 is_http $cb->(POST '/register', [@register_args, password =>'???'] ),400,'The two passwords do not match','POST /register with different passwords';
71 is_http $cb->(POST '/register', \@register_args),200,'Registered successfully','POST /register with correct parameters',
72 is_http $cb->(POST '/register', \@register_args),400,'Username already in use','POST /register with existing user',
73 is_http $cb->(GET '/', Authorization =>$auth),200,'user','GET / with correct user/pass';
75 is_http $cb->(POST '/passwd'),401,'Authorization required','POST /passwd without authorization';
76 is_http $cb->(POST '/passwd', Authorization =>$auth),400,'Missing parameter password','POST /passwd with no parameters';
77 is_http $cb->(POST '/passwd', [@passwd_args, password =>'???'], Authorization =>$auth),400,'Incorrect password','POST /passwd with incorrect old password';
78 is_http $cb->(POST '/passwd', [@passwd_args, new_password =>'???'], Authorization =>$auth),400,'The two passwords do not match','POST /passwd with different new passwords';