| # Test legacy links for documentation |
| my $t = Test::Mojo->new('Kalamar'); |
| my $h = $t->get_ok('/doc/korap') |
| ->header_like('Location',qr!/doc/+development!) |
| ->tx->res->headers->header('Location') |
| $h = $t->get_ok('/doc/korap/kalamar') |
| ->header_like('Location',qr!/doc/+development/+kalamar!) |
| ->tx->res->headers->header('Location') |
| $t->get_ok('/doc/korap/karang') |
| ->header_like('Location',qr!/doc/+development/+karang!) |
| $t->get_ok('/doc/korap/koral') |
| ->header_like('Location',qr!/doc/+development/+koral!) |
| $t->get_ok('/doc/korap/krill') |
| ->header_like('Location',qr!/doc/+development/+krill!) |
| $t->get_ok('/doc/korap/kustvakt') |
| ->header_like('Location',qr!/doc/+development/+kustvakt!) |