File Coverage: t/4-auto_minify.t

# File Coverage

File: | t/4-auto_minify.t
Coverage: | 100.0%

line | stmt | bran | cond | sub | pod | time | code
--- | --- | --- | --- | --- | --- | --- | ---
1 | 1 1 1 |  |  | 1 |  | 1272034657862132 12882 9 | use Test::More;
2 | 1 1 1 |  |  | 1 |  | 421 946 39 | use FindBin;
3 | 1 1 1 |  |  | 1 |  | 164 676 8 | use lib "$FindBin::Bin/lib";
4 |
5 | 1 1 1 |  |  | 1 |  | 270 487767 8 | use Catalyst::Test 'TestApp';
6 |
7 |  |  |  |  |  |  | #
8 |  |  |  |  |  |  | # sanity check first -- controller
9 |  |  |  |  |  |  | #
10 | 1 |  |  |  |  | 529876 | my $controller = TestApp->controller('JsMin');
11 | 1 |  |  |  |  | 110 | is( ref($controller), 'TestApp::Controller::JsMin', 'Controller is OK');
12 | 1 |  |  |  |  | 569 | can_ok($controller => 'minify');
13 |
14 |  |  |  |  |  |  | #
15 |  |  |  |  |  |  | # get a context object
16 |  |  |  |  |  |  | #
17 | 1 |  |  |  |  | 322 | like( get('/jsmin/js1.js'),
18 |  |  |  |  |  |  | qr{\A \# \s+ /\* \s+ javascript \s+ 1 \s+ \*/ \s+ \# \s* \z}xms,
19 |  |  |  |  |  |  | 'minified JavaScript looks OK' );
20 |
21 |  |  |  |  |  |  | #
22 |  |  |  |  |  |  | # now see if the failing controller really fails
23 |  |  |  |  |  |  | # well it does not fail, it does not minify
24 |  |  |  |  |  |  | #
25 | 1 |  |  |  |  | 267 | my $failing_controller = TestApp->controller('JsFail');
26 | 1 |  |  |  |  | 93 | is( ref($failing_controller), 'TestApp::Controller::JsFail', 'Controller is OK');
27 | 1 |  |  |  |  | 430 | ok(!UNIVERSAL::can($failing_controller,'minify'), 'failing controller has no "minify" routine');
28 |
29 | 1 |  |  |  |  | 222 | like( get('/jsfail/js1.js'),
30 |  |  |  |  |  |  | qr{\A \s* /\* \s+ javascript \s+ 1 \s+ \*/ \s* \z}xms,
31 |  |  |  |  |  |  | 'want-minified JavaScript is not minified' );
32 |
33 | 1 |  |  |  |  | 261 | done_testing;