Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

WIP: Adding tests for json_* subroutines in Test::Mojo. #2150

Draft
wants to merge 1 commit into
base: main
Choose a base branch
from
Draft

WIP: Adding tests for json_* subroutines in Test::Mojo. #2150

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
96 changes: 96 additions & 0 deletions t/test/mojo.t
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,8 +3,11 @@ use Mojo::Base -strict;
use Test::More;
use Test::Mojo;
use Mojolicious::Lite;
use Mojo::JSON qw/encode_json decode_json/;

any '/' => {text => 'Hello Test!'};
my $example_json = {test => ['hello', 'bye']};
any '/json' => {json => $example_json};

my $t = Test::Mojo->new;

Expand Down Expand Up @@ -217,4 +220,97 @@ subtest 'header_unlike' => sub {
is_deeply \@args, ['unlike', 'text/html;charset=UTF-8', qr/image\/png/, 'some description'], 'right result';
};

subtest 'json_has' => sub {
$t->get_ok('/json')->status_is(200)->json_has('/test/0');
is_deeply \@args, ['ok', !!1, 'has value for JSON Pointer "/test/0"'], 'Checking json_has is true.';
$t->get_ok('/json')->status_is(200)->json_has('/test/0', 'some description');
is_deeply \@args, ['ok', !!1, 'some description'],
'Checking json_has is true and the test message is correctly printed.';
$t->get_ok('/json')->status_is(200)->json_has('/test0');
is_deeply \@args, ['ok', !!0, 'has value for JSON Pointer "/test0"'], 'Checking json_has is false.';
};

subtest 'json_hasnt' => sub {
$t->get_ok('/json')->status_is(200)->json_hasnt('/test/0');
is_deeply \@args, ['ok', !!0, 'has no value for JSON Pointer "/test/0"'], 'Checking json_hasnt is false.';
$t->get_ok('/json')->status_is(200)->json_hasnt('/test/0', 'some description');
is_deeply \@args, ['ok', !!0, 'some description'], 'Checking correct test message in json_hasnt.';
$t->get_ok('/json')->status_is(200)->json_hasnt('/test0');
is_deeply \@args, ['ok', !!1, 'has no value for JSON Pointer "/test0"'], 'Checking json_hasnt is true.';
};

subtest 'json_is' => sub {
$t->get_ok('/json')->status_is(200)->json_is('/test' => ['hello', 'bye']);
is_deeply \@args, ['is_deeply', (['hello', 'bye']) x 2, 'exact match for JSON Pointer "/test"'], 'json_is true case.';
$t->get_ok('/json')->status_is(200)->json_is('/test' => ['hello', 'bye'], 'some description');
is_deeply \@args, ['is_deeply', (['hello', 'bye']) x 2, 'some description'], 'Test message for json_is matches.';
$t->get_ok('/json')->status_is(200)->json_is('/test' => ['hello', 'goodbye']);
is_deeply \@args, ['is_deeply', ['hello', 'bye'], ['hello', 'goodbye'], 'exact match for JSON Pointer "/test"'],
'Correct parameters json_is.';
};

subtest 'json_like' => sub {
$t->get_ok('/json')->status_is(200)->json_like('/test/0' => qr/^he/);
is_deeply \@args, ['like', 'hello', qr/^he/, 'similar match for JSON Pointer "/test/0"'],
'json_like matches arguments and contents.';
$t->get_ok('/json')->status_is(200)->json_like('/test/0' => qr/^he/, 'some description');
is_deeply \@args, ['like', 'hello', qr/^he/, 'some description'], 'json_like prints the correct test message.';
};

subtest 'json_unlike' => sub {
$t->get_ok('/json')->status_is(200)->json_unlike('/test/0' => qr/^he/);
is_deeply \@args, ['unlike', 'hello', qr/^he/, 'no similar match for JSON Pointer "/test/0"'],
'json_unlike matches arguments and contents.';
$t->get_ok('/json')->status_is(200)->json_unlike('/test/0' => qr/^he/, 'some description');
is_deeply \@args, ['unlike', 'hello', qr/^he/, 'some description'], 'Correct message printed in json_unlike.';
};

subtest 'json_message_has' => sub {
$t->message([text => encode_json($example_json)])->json_message_has('/test');
is_deeply \@args, ['ok', !!1, 'has value for JSON Pointer "/test"'], 'json_message_has is true.';
$t->message([text => encode_json($example_json)])->json_message_has('/test', 'some description');
is_deeply \@args, ['ok', !!1, 'some description'], 'json_message_has prints the correct test message.';
$t->message([text => encode_json($example_json)])->json_message_has('/test0');
is_deeply \@args, ['ok', undef, 'has value for JSON Pointer "/test0"'], 'json_message_has is false.';
};

subtest 'json_message_hasnt' => sub {
$t->message([text => encode_json($example_json)])->json_message_hasnt('/test');
is_deeply \@args, ['ok', !!0, 'has no value for JSON Pointer "/test"'], 'json_message_hasnt is false.';
$t->message([text => encode_json($example_json)])->json_message_hasnt('/test', 'some description');
is_deeply \@args, ['ok', !!0, 'some description'], 'json_message_hasnt prints the correct test message.';
$t->message([text => encode_json($example_json)])->json_message_hasnt('/test0');
is_deeply \@args, ['ok', !!1, 'has no value for JSON Pointer "/test0"'], 'json_message_hasnt is false.';
};

subtest 'json_message_is' => sub {
$t->message([text => encode_json($example_json)])->json_message_is('/test', => ['hello', 'bye']);
is_deeply \@args, ['is_deeply', (['hello', 'bye']) x 2, 'exact match for JSON Pointer "/test"'],
'json_message_is works in the true case.';
$t->message([text => encode_json($example_json)])->json_message_is('/test', => ['hello', 'bye'], 'some description');
is_deeply \@args, ['is_deeply', (['hello', 'bye']) x 2, 'some description'],
'json_message_is prints the correct test message.';
$t->message([text => encode_json($example_json)])->json_message_is('/test', => ['hello', 'goodbye'],);
is_deeply \@args, ['is_deeply', ['hello', 'bye'], ['hello', 'goodbye'], 'exact match for JSON Pointer "/test"'],
'Correct parameters in json_message_is.';
};

subtest 'json_message_like' => sub {
$t->message([text => encode_json($example_json)])->json_message_like('/test/0', => qr/^he/);
is_deeply \@args, ['like', 'hello', qr/^he/, 'similar match for JSON Pointer "/test/0"'],
'json_message_like works as expected.';
$t->message([text => encode_json($example_json)])->json_message_like('/test/0', => qr/^he/, 'some description');
is_deeply \@args, ['like', 'hello', qr/^he/, 'some description'],
'json_message_like prints the correct test message.';
};

subtest 'json_message_unlike' => sub {
$t->message([text => encode_json($example_json)])->json_message_unlike('/test/0', => qr/^he/);
is_deeply \@args, ['unlike', 'hello', qr/^he/, 'no similar match for JSON Pointer "/test/0"'],
'json_message_unlike works as expected.';
$t->message([text => encode_json($example_json)])->json_message_unlike('/test/0', => qr/^he/, 'some description');
is_deeply \@args, ['unlike', 'hello', qr/^he/, 'some description'],
'json_message_unlike prints the correct test message.';
};

done_testing();
Loading