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