--- /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