| Akron | 8f8deda | 2021-01-15 12:55:06 +0100 | [diff] [blame] | 1 | use Mojo::Base -strict; |
| 2 | use Test::More; |
| 3 | use Test::Mojo; |
| 4 | |
| 5 | our %ENV; |
| 6 | |
| 7 | my $app = Test::Mojo->new('Kalamar')->app; |
| Helge | 3d1d04d | 2026-01-28 18:04:39 +0100 | [diff] [blame^] | 8 | # Get API version from app config (set in Kalamar.pm startup) |
| 9 | my $api_version = $app->app->config('Kalamar')->{api_version}; |
| 10 | is($app->korap->api, "https://korap.ids-mannheim.de/api/v".$api_version. "/"); |
| Akron | 8f8deda | 2021-01-15 12:55:06 +0100 | [diff] [blame] | 11 | |
| 12 | |
| 13 | $ENV{KALAMAR_API} = 'https://example.com/'; |
| 14 | $app = Test::Mojo->new('Kalamar')->app; |
| Helge | 3d1d04d | 2026-01-28 18:04:39 +0100 | [diff] [blame^] | 15 | is($app->korap->api, "https://example.com/v".$api_version ."/"); |
| Akron | 8f8deda | 2021-01-15 12:55:06 +0100 | [diff] [blame] | 16 | |
| 17 | $app = Test::Mojo->new('Kalamar' => { |
| 18 | Kalamar => { |
| 19 | api_path => 'https://example.org/' |
| 20 | } |
| 21 | })->app; |
| Helge | 3d1d04d | 2026-01-28 18:04:39 +0100 | [diff] [blame^] | 22 | is($app->korap->api, "https://example.org/v".$api_version."/"); |
| Akron | 8f8deda | 2021-01-15 12:55:06 +0100 | [diff] [blame] | 23 | |
| 24 | $ENV{KALAMAR_API} = undef; |
| 25 | $app = Test::Mojo->new('Kalamar' => { |
| 26 | Kalamar => { |
| 27 | api_version => '1.1' |
| 28 | } |
| 29 | })->app; |
| 30 | is($app->korap->api, 'https://korap.ids-mannheim.de/api/v1.1/'); |
| 31 | |
| 32 | |
| 33 | done_testing; |
| 34 | __END__ |