Mercurial > pub > Impl

annotate _test/config.t @ 427:09e0086a82a7 ref20150831 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author cin
date Tue, 15 May 2018 00:51:33 +0300
parents b0481c071bea
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;