1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use Mojo::Base -strict;
BEGIN { $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll' }
use Test::More;
use Mojo::Reactor::Poll;
# Dummy reactor
package Mojo::Reactor::Test;
use Mojo::Base 'Mojo::Reactor::Poll';
package main;
# Detection (success)
{
local $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Test';
is(Mojo::Reactor->detect, 'Mojo::Reactor::Test', 'right class');
}
# Detection (fail)
{
local $ENV{MOJO_REACTOR} = 'Mojo::Reactor::DoesNotExist';
is(Mojo::Reactor->detect, 'Mojo::Reactor::Poll', 'right class');
}
# Event loop detection
{
local $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Test';
require Mojo::IOLoop;
is ref Mojo::IOLoop->new->reactor, 'Mojo::Reactor::Test', 'right class';
}
done_testing();
|
