| use Mojo::Base -strict; |
| use lib '../lib', 'lib'; |
| use Test::More; |
| use Test::Mojo; |
| |
| $ENV{MOJO_MODE} = 'test'; |
| |
| my $t = Test::Mojo->new('Kalamar'); |
| |
| $t->get_ok('/') |
| ->status_is(200) |
| ->text_is('title', 'KorAP - Corpus Analysis Platform') |
| ->text_like('h1 span', qr/KorAP - Corpus Analysis Platform/i) |
| ; |
| |
| # Check paging |
| $t->get_ok('/?q=Baum') |
| ->text_like('h1 span', qr/KorAP: Find .Baum./i) |
| # ->text_is('pre.query.serial span', 'JSON-LD Serialization for "test"') |
| ->text_like('#total-results', qr/\d+$/) |
| ->text_is('#pagination a[rel=self] span', 1) |
| ->element_exists_not('#ql-field option[value=poliqarp][selected]') |
| ->element_exists_not('#ql-field option[value=cosmas2][selected]') |
| ; |
| |
| # Check paging |
| $t->get_ok('/?q=test&p=2&ql=cosmas2') |
| ->text_like('#total-results', qr/\d+$/) |
| ->text_is('#pagination a[rel=self] span', 2) |
| ->element_exists('#ql-field option[value=cosmas2][selected]') |
| ->element_exists_not('#ql-field option[value=poliqarp][selected]') |
| ; |
| |
| # Check paging |
| $t->get_ok('/?q=test&p=2&ql=cosmas2') |
| ->text_like('#total-results', qr/\d+$/) |
| ->text_is('#pagination a[rel=self] span', 2) |
| ->element_exists('#ql-field option[value=cosmas2][selected]') |
| ->element_exists_not('#ql-field option[value=poliqarp][selected]') |
| ; |
| |
| # Check for authorization |
| # this should just trigger a fixture - it's not serious |
| $t->get_ok('/?q=test&p=2&ql=cosmas3') |
| ->element_exists_not('#pagination a[rel=self] span') |
| ->element_exists('#search #no-results') |
| ->text_like('.notify-error', qr!No entity found!) |
| ; |
| |
| done_testing; |
| __END__ |