File: | t/3-replace.t |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | 1 1 1 | 1272034655776150 12869 11 | use Test::More; | ||||
2 | 1 1 1 | 470 2138 6 | use Test::Exception; | ||||
3 | 1 1 1 | 349 928507 18 | use Catalyst (); | ||||
4 | 1 1 1 | 171 1 17 | use Catalyst::Controller::Combine (); | ||||
5 | 1 1 1 | 196 935 31 | use FindBin; | ||||
6 | 1 1 1 | 3 1 28 | use Path::Class::File; | ||||
7 | |||||||
8 | # a simple package | ||||||
9 | { | ||||||
10 | 1 | 408016 | package MyApp::Controller::Css; | ||||
11 | 1 1 1 | 3 0 8 | use Moose; | ||||
12 | 1 | 9 | extends 'Catalyst::Controller::Combine'; | ||||
13 | |||||||
14 | 1 | 3465 | __PACKAGE__->config( | ||||
15 | # dir => 'static/css', # redundant, defaults to static/<<action_namespace>> | ||||||
16 | # extension => 'css', # redundant, defaults to <<action_namespace>> | ||||||
17 | depend => { | ||||||
18 | css1 => 'base', | ||||||
19 | css2 => 'css1', | ||||||
20 | }, | ||||||
21 | |||||||
22 | replace => { | ||||||
23 | '*' => [ 'xx' => 'REPL:\\$1' ], | ||||||
24 | 'css*' => [ a => 'b', qr{u+} => 'v' ], | ||||||
25 | 'css2' => [ url => 'URI' ], | ||||||
26 | }, | ||||||
27 | # will be guessed from extension | ||||||
28 | # mimetype => 'application/javascript', | ||||||
29 | ); | ||||||
30 | } | ||||||
31 | |||||||
32 | # setup our Catalyst :-) | ||||||
33 | 1 | 185 | my $c = Catalyst->new(); | ||||
34 | 1 | 385 | $c->setup_log(); | ||||
35 | 1 | 914 | $c->setup_home("$FindBin::Bin"); | ||||
36 | |||||||
37 | 1 | 707 | my $controller; | ||||
38 | 1 1 | 11 103 | lives_ok { $controller = $c->setup_component('MyApp::Controller::Css') } 'setup component worked'; | ||||
39 | |||||||
40 | 1 | 337 | done_testing; | ||||
41 | |||||||
42 | ### TODO: append a reasonable test... |