annotate tests/test_ttfs.pl @ 2:a7a3e4f626ff

sync
author sergey
date Wed, 07 May 2014 12:35:55 +0400
parents f1ce08199a08
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
cin
parents:
diff changeset
1 #!/usr/bin/perl
cin
parents:
diff changeset
2 use strict;
cin
parents:
diff changeset
3 use lib '.';
cin
parents:
diff changeset
4 use config;
cin
parents:
diff changeset
5
cin
parents:
diff changeset
6 use IMPL::Config();
cin
parents:
diff changeset
7 use IMPL::require {
cin
parents:
diff changeset
8 TTSelector => 'IMPL::Web::View::TTFsSelector',
cin
parents:
diff changeset
9 Dumper => 'Data::Dumper'
cin
parents:
diff changeset
10 };
cin
parents:
diff changeset
11
cin
parents:
diff changeset
12
cin
parents:
diff changeset
13 my $selector = TTSelector->new(
cin
parents:
diff changeset
14 isContainer => 1,
2
sergey
parents: 1
diff changeset
15 ext => 'tt',
1
cin
parents:
diff changeset
16 path => IMPL::Config->AppDir('view','site')
cin
parents:
diff changeset
17 );
cin
parents:
diff changeset
18
cin
parents:
diff changeset
19 my $match = $selector->MatchPath(
cin
parents:
diff changeset
20 [
2
sergey
parents: 1
diff changeset
21 {},
1
cin
parents:
diff changeset
22 { name => 'library'},
cin
parents:
diff changeset
23 { name => 'index', class => 'Some::Collection' },
cin
parents:
diff changeset
24 { name => 'compounds' },
cin
parents:
diff changeset
25 { name => 'asd--df-sd-f--ds-we', class => 'Some::Compound' }
cin
parents:
diff changeset
26 ]
cin
parents:
diff changeset
27 );
cin
parents:
diff changeset
28
cin
parents:
diff changeset
29 print Dumper->Dump([$match]);