Mercurial > pub > Impl

annotate _test/config.t @ 422:b0481c071bea ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::Config::Container tests, YAMLConfiguration now works and tested
author cin
date Sun, 20 Aug 2017 00:20:41 +0300
parents 3ed0c58e9da3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
417
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
1 #!/usr/bin/perl -w
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
2 use strict;
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
3 use lib '../Lib';
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
4 use lib '.';
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
5
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
6 use IMPL::Debug();
417
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
7 use IMPL::Test qw(run_plan);
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
8
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
9 $IMPL::Debug::ENABLE{'IMPL::Config::YAMLConfig'} = 1;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
10
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
11 IMPL::Debug->subscribe(sub {
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
12 my $text = join('', @_);
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
13
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
14 $text =~ s/^/# /gm;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
15 print "$text\n";
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
16 });
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 417
diff changeset
17
417
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
18 run_plan( qw(
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
19 Test::Config::Container
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
20 ) );
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
21
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
22 1;