Skip to content

fixed money_format tests #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
initself wants to merge 1 commit into
base: master
Choose a base branch
from
Open

fixed money_format tests #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
37 changes: 32 additions & 5 deletions t/money_format.t
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 12;
use Test::More tests => 13;
BEGIN { use_ok 'PHP::Strings', ':money_format' };
use POSIX qw( locale_h );

Expand All @@ -11,7 +11,7 @@ use POSIX qw( locale_h );
my $amount = 1234.56;

setlocale( LC_MONETARY, 'en_US' );
is( money_format( '%i', $amount ) => "USD 1,234.56", "Basic" );
is( money_format( '%i', $amount ) => "USD 1,234.56", "USD Basic" );

setlocale(LC_MONETARY, 'it_IT');
is( money_format('%.2n', $amount ) => "EUR 1.234,56",
Expand All @@ -26,15 +26,42 @@ use POSIX qw( locale_h );
is( money_format('%=*(#10.2n', $amount ) => '($********1,234.57)',
"As above, more precision, different fill" );

=begin de_DE
<?php
setlocale(LC_MONETARY, 'de_DE');
echo money_format('%=*^-14#8.2i', 1234.56);
?>
****1234,56 EUR
=cut

setlocale(LC_MONETARY, 'de_DE');
is( money_format('%=*^-14#8.2i', 1234.56) => ' 1234,56**** EUR',
is( money_format('%=*^-14#8.2i', 1234.56) => ' ****1234,56 EUR',
"German, width, left and right precision, no grouping" );

# Let's add some blurb before and after the conversion specification

=begin en_GB
<?php
setlocale(LC_MONETARY, 'en_GB');
echo money_format('%i', -1234.56720);
?>
-GBP1,234.57
=cut

setlocale(LC_MONETARY, 'en_GB');
is( money_format( '%i', $amount ) => "-GBP1,234.57", "GBP Basic" );

=begin en_GB_blurb
<?php
setlocale(LC_MONETARY, 'en_GB');
echo money_format('The final value is %i (after a 10%% discount)', 1234.56);
?>
The final value is GBP1,234.56 (after a 10% discount)
=cut

# Let's add some blurb before and after the conversion specification
my $fmt = 'The final value is %i (after a 10%% discount)';
is( money_format($fmt, 1234.56) =>
'The final value is GBP 1,234.56 (after a 10% discount)',
'The final value is GBP1,234.56 (after a 10% discount)',
"Length formatting"
);

Expand Down