blob: e995e754d14b27c6ba2749c4a71d16128cd71b92 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
use strict;
use warnings;
use Test::More tests => 1;
use lib ('t/lib');
use CatalystX::Dispatcher::AsGraph;
my $graph = CatalystX::Dispatcher::AsGraph->new(
appname => 'TestApp',
output => 'test'
);
$graph->run;
is $graph->graph->as_txt, <<'...';
[ / ] --> [ \[action\] edit ]
[ / ] --> [ \[action\] index ]
[ / ] --> [ \[action\] root ]
[ / ] --> [ \[action\] view ]
[ / ] --> [ \[action\] view_user ]
...
|
