Mojolicious::Plugin::Mount: mounting two applications

[zaucker]

The following test script mock.t does not work:

use Mojo::Base -strict;
use Mojo::File qw(curfile);

use Test::More;
use Test::Mojo;

my $t = Test::Mojo->new('MyApp');
$t->app->secrets(['My own secret']);

for my $mock (qw(mock1 mock2)) {
    $t->app->plugin(
        Mount => {
            '/' => curfile->sibling("$mock.pl"),
        }
    );
}

for my $server (qw(server1 server2)) {
    $t->get_ok("/$server/ping")
      ->status_is(200, "Found /$server/ping");
}

done_testing;

The output of prove -v mock.t is:

mock.t .. [2022-01-28 09:02:44.16608] [1440304] [debug] [3i_wKolCWyVV] GET "/server1/ping"
[2022-01-28 09:02:44.16680] [1440304] [debug] [3i_wKolCWyVV] Routing to application "Mojolicious::Lite"
[2022-01-28 09:02:44.16835] [1440304] [debug] [3i_wKolCWyVV] GET "/server1/ping"
[2022-01-28 09:02:44.16944] [1440304] [debug] [3i_wKolCWyVV] Template "not_found.development.html.ep" not found
[2022-01-28 09:02:44.16970] [1440304] [debug] [3i_wKolCWyVV] Template "not_found.html.ep" not found
[2022-01-28 09:02:44.16991] [1440304] [debug] [3i_wKolCWyVV] Rendering template "mojo/debug.html.ep"
[2022-01-28 09:02:44.18001] [1440304] [debug] [3i_wKolCWyVV] 404 Not Found (0.011658s, 85.778/s)

ok 1 - GET /server1/ping
not ok 2 - Found /server1/ping

#   Failed test 'Found /server1/ping'
#   at mock.t line 19.
#          got: '404'
#     expected: '200'
[2022-01-28 09:02:44.18238] [1440304] [debug] [bHzfP9YWaFam] GET "/server2/ping"
[2022-01-28 09:02:44.18253] [1440304] [debug] [bHzfP9YWaFam] Routing to application "Mojolicious::Lite"
[2022-01-28 09:02:44.18270] [1440304] [debug] [bHzfP9YWaFam] GET "/server2/ping"
[2022-01-28 09:02:44.18282] [1440304] [debug] [bHzfP9YWaFam] Routing to a callback
[2022-01-28 09:02:44.18295] [1440304] [debug] [bHzfP9YWaFam] 200 OK (0.00024s, 4166.667/s)
ok 3 - GET /server2/ping
ok 4 - Found /server2/ping
1..4
# Looks like you failed 1 test of 4.

Reversing the order of the two mounts results in a reversed test failure.
The two mock servers look like this:

#!/usr/bin/perl

use Mojolicious::Lite;

my $server = 'server1';

get "/$server/ping" => sub {
    my $c = shift;
    $c->render(
        status => 200,
        json   => { server => $server},
    );
};
app->start;

(the second one using my $server = 'server2';).

Am I doing something wrong?

I tried just using the two relevant lines from the Mount plugin directly, like

    my $embed = Mojo::Server->new->load_app(curfile->sibling('mock1.pl'));
    $app->routes->any('/')->partial(1)->to(app => $embed);
    my $embed2 = Mojo::Server->new->load_app(curfile->sibling('mock2.pl'));
    $app->routes->any('/')->partial(1)->to(app => $embed2);

with the same result. It is the second call to load_app() that makes the first test fail.

This seems not to be a problem related to testing. The following app

package MyApp;

use Mojo::Base 'Mojolicious';
use Mojo::File qw(curfile);

sub startup {
    my $app = shift;
    for my $mock (qw(mock1 mock2)) {
        $app->app->plugin(
            Mount => {
                '/' => curfile->sibling("$mock.pl"),
            }
        );
    }
}
1;

started with

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::File qw(curfile);
use lib curfile->dirname->sibling('lib')->to_string;
use Mojolicious::Commands;

# Start command line interface for application
Mojolicious::Commands->start_app('MyApp');

by running myapp.pl daemon --listen http://localhost:4242 shows the same behaviour.

[zaucker]

Oh well, this does work:

    for my $mock (qw(mock1 mock2)) {
        $app->app->plugin(
            Mount => {
                "/$mock" => curfile->sibling("$mock.pl"),
            }
        );
    }

The "mount point" for the two apps must be different.

[zaucker]

If the gods of this forum want to delete that none-issue post, feel free. Though perhaps it might help somebody falling into the same trap.