use Mojo::Base -strict; use Test::More; use Mojo::JSON; use Test::Pear::LocalLoop; my $framework = Test::Pear::LocalLoop->new; my $t = $framework->framework; my $schema = $t->app->schema; #Variables to be used for uniqueness when testing. my @names = ('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'); my @emails = ('a@a.com', 'b@a.com', 'c@a.com', 'd@a.com', 'e@a.com', 'f@a.com', 'g@a.com', 'h@a.com', 'i@a.com', 'j@a.com', 'k@a.com', 'l@a.com', 'm@a.com', 'n@a.com', 'o@a.com', 'p@a.com', 'q@a.com', 'r@a.com', 's@a.com', 't@a.com', 'u@a.com', 'v@a.com', 'w@a.com', 'x@a.com', 'y@a.com', 'z@a.com'); my @tokens = ('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'); $schema->resultset('AccountToken')->populate([ [ qw/ name / ], map { [ $_ ] } @tokens, ]); #No JSON sent $t->post_ok('/api/register') ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->json_like('/message', qr/JSON is missing/i); #Empty JSON my $testJson = {}; $t->post_ok('/api/register' => json => $testJson) ->json_is('/success', Mojo::JSON->false); #token missing JSON $testJson = { 'usertype' => 'customer', 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no token sent/i); #Not valid token. $testJson = { 'usertype' => 'customer', 'token' => ' ', 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(401) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/token/i) ->content_like(qr/invalid/i); #username missing JSON $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no username sent/i); #Blank username $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => '', 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/blank/i) ->content_like(qr/username/i); #Not alpha numeric chars e.g. ! $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => 'asa!', 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/username/i); my $usernameToReuse = shift(@names); my $emailToReuse = shift(@emails); #Valid customer $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => $usernameToReuse, 'email' => $emailToReuse, 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(200) ->json_is('/success', Mojo::JSON->true); #Valid customer2 $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 2 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(200) ->json_is('/success', Mojo::JSON->true); #Valid customer3 $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 1 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(200) ->json_is('/success', Mojo::JSON->true); #Username exists $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => $usernameToReuse, 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(403) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/exists/i); #email missing JSON $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no email sent/i); #invalid email 1 $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => 'dfsd@.com', 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 2 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/email/i) ->content_like(qr/invalid/i); #invalid email 2 $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => 'dfsd@com', 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 2 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/email/i) ->content_like(qr/invalid/i); #Email exists $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => $emailToReuse, 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 2 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(403) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/email/i) ->content_like(qr/exists/i); #postcode missing JSON $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no postcode sent/i); #TODO validate postcode #password missing JSON $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no password sent/i); #TODO enforce password complexity requirements. #usertype missing JSON $testJson = { 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 3 }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no usertype sent/i); #Invalid user type $testJson = { 'usertype' => 'organisation1', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'fulladdress' => 'mary lane testing....' }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/usertype/i) ->content_like(qr/invalid/i); #age missing JSON $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no age sent/i); #Age is invalid $testJson = { 'usertype' => 'customer', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'age' => 'invalid' }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/age/i) ->content_like(qr/invalid/i); #full address missing JSON $testJson = { 'usertype' => 'organisation', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', }; $t->post_ok('/api/register' => json => $testJson) ->status_is(400) ->json_is('/success', Mojo::JSON->false) ->content_like(qr/no street_name sent/i); #TODO Validation of full address #Organisation valid $testJson = { 'usertype' => 'organisation', 'token' => shift(@tokens), 'username' => shift(@names), 'email' => shift(@emails), 'postcode' => 'LA1 1AA', 'password' => 'Meh', 'street_name' => 'mary lane testing....', 'town' => 'Lancaster', }; $t->post_ok('/api/register' => json => $testJson) ->status_is(200) ->json_is('/success', Mojo::JSON->true); is $t->app->schema->resultset('User')->count, 4, 'Correct user count'; is $t->app->schema->resultset('Customer')->count, 3, 'Correct customer count'; is $t->app->schema->resultset('Organisation')->count, 1, 'Correct organisation count'; done_testing();