Mercurial > pub > Impl
diff _test/Test/Resources/Format.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 818c74b038ae |
children | 4267a2ac3d46 |
line wrap: on
line diff
--- a/_test/Test/Resources/Format.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/_test/Test/Resources/Format.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,39 +1,39 @@ -package Test::Resources::Format; -use strict; -use warnings; - -use base qw(IMPL::Test::Unit); -use IMPL::Test qw(test failed); -use IMPL::Resources::Format qw(FormatMessage); - -__PACKAGE__->PassThroughArgs; - -{ - package Args; - use base qw(IMPL::Object); - - sub foo { - return { name => 'Args::foo', value => 'some value'} - } -} - -test FormatMessage => sub { - my $format = 'This is a %name% message. %args.foo.name% has %args.foo.value% and %some.unknown.param%'; - - my $args = { - name => 'Test', - args => new Args() - }; - - my $result = FormatMessage($format,$args); - my $expected = 'This is a Test message. Args::foo has some value and [some.unknown.param]'; - - failed - "Format message returned unexpected results", - "Expected: $expected", - "Recieved: $result" - unless $result eq $expected; -}; - - -1; +package Test::Resources::Format; +use strict; +use warnings; + +use base qw(IMPL::Test::Unit); +use IMPL::Test qw(test failed); +use IMPL::Resources::Format qw(FormatMessage); + +__PACKAGE__->PassThroughArgs; + +{ + package Args; + use base qw(IMPL::Object); + + sub foo { + return { name => 'Args::foo', value => 'some value'} + } +} + +test FormatMessage => sub { + my $format = 'This is a %name% message. %args.foo.name% has %args.foo.value% and %some.unknown.param%'; + + my $args = { + name => 'Test', + args => new Args() + }; + + my $result = FormatMessage($format,$args); + my $expected = 'This is a Test message. Args::foo has some value and [some.unknown.param]'; + + failed + "Format message returned unexpected results", + "Expected: $expected", + "Recieved: $result" + unless $result eq $expected; +}; + + +1;