Mercurial > pub > Impl

annotate _test/config.t @ 423:60c2892a577c ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on base class system
author cin
date Mon, 02 Apr 2018 07:35:23 +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;