Mercurial > pub > site.implab
comparison tests/test_ttfs.pl @ 1:f1ce08199a08
stubs
| author | cin |
|---|---|
| date | Tue, 29 Apr 2014 02:36:24 +0400 |
| parents | |
| children | a7a3e4f626ff |
comparison
equal
deleted
inserted
replaced
| 0:aac1085b256d | 1:f1ce08199a08 |
|---|---|
| 1 #!/usr/bin/perl | |
| 2 use strict; | |
| 3 use lib '.'; | |
| 4 use config; | |
| 5 | |
| 6 use IMPL::Config(); | |
| 7 use IMPL::require { | |
| 8 TTSelector => 'IMPL::Web::View::TTFsSelector', | |
| 9 Dumper => 'Data::Dumper' | |
| 10 }; | |
| 11 | |
| 12 | |
| 13 my $selector = TTSelector->new( | |
| 14 isContainer => 1, | |
| 15 ext => '.tt', | |
| 16 path => IMPL::Config->AppDir('view','site') | |
| 17 ); | |
| 18 | |
| 19 my $match = $selector->MatchPath( | |
| 20 [ | |
| 21 { name => 'library'}, | |
| 22 { name => 'index', class => 'Some::Collection' }, | |
| 23 { name => 'compounds' }, | |
| 24 { name => 'asd--df-sd-f--ds-we', class => 'Some::Compound' } | |
| 25 ] | |
| 26 ); | |
| 27 | |
| 28 print Dumper->Dump([$match]); |