annotate tests/test_ttfs.pl @ 1:f1ce08199a08

stubs
author cin
date Tue, 29 Apr 2014 02:36:24 +0400
parents
children a7a3e4f626ff
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,
cin
parents:
diff changeset
15 ext => '.tt',
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 [
cin
parents:
diff changeset
21 { name => 'library'},
cin
parents:
diff changeset
22 { name => 'index', class => 'Some::Collection' },
cin
parents:
diff changeset
23 { name => 'compounds' },
cin
parents:
diff changeset
24 { name => 'asd--df-sd-f--ds-we', class => 'Some::Compound' }
cin
parents:
diff changeset
25 ]
cin
parents:
diff changeset
26 );
cin
parents:
diff changeset
27
cin
parents:
diff changeset
28 print Dumper->Dump([$match]);