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
34
35
36
37
|
#!/usr/bin/env perl
# Copyright (C) 2008-2010, Sebastian Riedel.
use strict;
use warnings;
# Would you kindly shut your noise-hole?
use Test::More tests => 5;
package Mojo::TestServerViaEnv;
use base 'Mojo';
package Mojo::TestServerViaApp;
use base 'Mojo';
package main;
use_ok('Mojo::Server');
my $server = Mojo::Server->new;
isa_ok($server, 'Mojo::Server', 'right object');
# Test the default
my $app = $server->new->app;
isa_ok($app, 'Mojo::HelloWorld', 'right default app');
# Test an explicit class name
$app = $server->new(app_class => 'Mojo::TestServerViaApp')->app;
isa_ok($app, 'Mojo::TestServerViaApp', 'right object');
# Test setting the class name through the environment
my $backup = $ENV{MOJO_APP} || '';
$ENV{MOJO_APP} = 'Mojo::TestServerViaEnv';
$app = $server->new->app;
isa_ok($app, 'Mojo::TestServerViaEnv', 'right object');
$ENV{MOJO_APP} = $backup;
|
