Merge pull request #1593 from rage311/test_mojo_header

Added Test::Mojo::header_* tests
mojolicious · Nov 1, 2020 · d721b4f · d721b4f
2 parents 1918059 + a5a1205
commit d721b4f
Showing 1 changed file with 47 additions and 0 deletions.
diff --git a/t/test/mojo.t b/t/test/mojo.t
@@ -91,4 +91,51 @@ subtest 'attr_is' => sub {
   is_deeply \@args, ['is', 'test', 'wrong', 'some description'], 'right result';
 };
 
+subtest 'header_exists' => sub {
+  $t->header_exists('Content-Type');
+  is_deeply \@args, ['ok', 1, 'header "Content-Type" exists'], 'right result';
+  $t->header_exists('Content-Type', 'some description');
+  is_deeply \@args, ['ok', 1, 'some description'], 'right result';
+};
+
+subtest 'header_exists_not' => sub {
+  $t->header_exists_not('X-Exists-Not');
+  is_deeply \@args, ['ok', 1, 'no "X-Exists-Not" header'], 'right result';
+  $t->header_exists_not('X-Exists-Not', 'some description');
+  is_deeply \@args, ['ok', 1, 'some description'], 'right result';
+};
+
+subtest 'header_is' => sub {
+  $t->header_is('Content-Type', 'text/html;charset=UTF-8');
+  is_deeply \@args,
+    ['is', 'text/html;charset=UTF-8', 'text/html;charset=UTF-8', 'Content-Type: text/html;charset=UTF-8'],
+    'right result';
+  $t->header_is('Content-Type', 'text/html;charset=UTF-8', 'some description');
+  is_deeply \@args, ['is', 'text/html;charset=UTF-8', 'text/html;charset=UTF-8', 'some description'], 'right result';
+};
+
+subtest 'header_isnt' => sub {
+  $t->header_isnt('Content-Type', 'image/png');
+  is_deeply \@args, ['isnt', 'text/html;charset=UTF-8', 'image/png', 'not Content-Type: image/png'], 'right result';
+  $t->header_isnt('Content-Type', 'image/png', 'some description');
+  is_deeply \@args, ['isnt', 'text/html;charset=UTF-8', 'image/png', 'some description'], 'right result';
+};
+
+subtest 'header_like' => sub {
+  $t->header_like('Content-Type', qr/text\/html;charset=UTF-8/);
+  is_deeply \@args, ['like', 'text/html;charset=UTF-8', qr/text\/html;charset=UTF-8/, 'Content-Type is similar'],
+    'right result';
+  $t->header_like('Content-Type', qr/text\/html;charset=UTF-8/, 'some description');
+  is_deeply \@args, ['like', 'text/html;charset=UTF-8', qr/text\/html;charset=UTF-8/, 'some description'],
+    'right result';
+};
+
+subtest 'header_unlike' => sub {
+  $t->header_unlike('Content-Type', qr/image\/png/);
+  is_deeply \@args, ['unlike', 'text/html;charset=UTF-8', qr/image\/png/, 'Content-Type is not similar'],
+    'right result';
+  $t->header_unlike('Content-Type', qr/image\/png/, 'some description');
+  is_deeply \@args, ['unlike', 'text/html;charset=UTF-8', qr/image\/png/, 'some description'], 'right result';
+};
+
 done_testing();