Mercurial > pub > site.implab
changeset 1:f1ce08199a08
stubs
| author | cin |
|---|---|
| date | Tue, 29 Apr 2014 02:36:24 +0400 |
| parents | aac1085b256d |
| children | a7a3e4f626ff |
| files | .hgignore tests/test_ttfs.pl view/layout/default.tt view/site/index.tt view/site/library.tt view/site/library/@Collection.tt view/site/library/_any/@Compound.tt view/site/library/_any/@Member.tt |
| diffstat | 2 files changed, 31 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/.hgignore Sat Mar 15 00:34:33 2014 +0400 +++ b/.hgignore Tue Apr 29 02:36:24 2014 +0400 @@ -1,3 +1,6 @@ syntax: glob config/ mysql-data/ + +syntax: regexp +^tests/config\.pm$ \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/test_ttfs.pl Tue Apr 29 02:36:24 2014 +0400 @@ -0,0 +1,28 @@ +#!/usr/bin/perl +use strict; +use lib '.'; +use config; + +use IMPL::Config(); +use IMPL::require { + TTSelector => 'IMPL::Web::View::TTFsSelector', + Dumper => 'Data::Dumper' +}; + + +my $selector = TTSelector->new( + isContainer => 1, + ext => '.tt', + path => IMPL::Config->AppDir('view','site') +); + +my $match = $selector->MatchPath( + [ + { name => 'library'}, + { name => 'index', class => 'Some::Collection' }, + { name => 'compounds' }, + { name => 'asd--df-sd-f--ds-we', class => 'Some::Compound' } + ] +); + +print Dumper->Dump([$match]); \ No newline at end of file