CHips L Pro sangad

Current Path : /proc/2/root/usr/local/Locale-MakePhrase-0.5/t/
Current File : //proc/2/root/usr/local/Locale-MakePhrase-0.5/t/72_numeric.t
#!/usr/local/bin/perl

use strict;
use warnings;
use Test;
BEGIN { plan tests => 8 };

use Locale::MakePhrase;
use Locale::MakePhrase::BackingStore::File;
ok(1);

$Locale::MakePhrase::DEBUG = 0;
$Locale::MakePhrase::Numeric::DEBUG = 0;
$Locale::MakePhrase::LanguageRule::DEBUG = 0;
$Locale::MakePhrase::RuleManager::DEBUG = 0;
$Locale::MakePhrase::BackingStore::DEBUG = 0;
$Locale::MakePhrase::BackingStore::File::DEBUG = 0;


my $bs = new Locale::MakePhrase::BackingStore::File(
  file => 't/lang/lang.mpt',
);
ok($bs) or print "Bail out! Failed to locate translation file.\n";


my $mp = new Locale::MakePhrase(
  language => 'en_au',
  backing_store => $bs,
);
ok($mp) or print "Bail out! Failed to make a 'Locale::MakePhrase' instance.\n";

my $result;


# ---- Check numeric formatting ----

$result = $mp->translate("ID of selection: [_1]",1000);
ok($result eq "ID of selection: 1000") or print "Bail out! Failed default numeric formatting.\n";

$mp->numeric_format(Locale::MakePhrase::Numeric->DOT);
$result = $mp->translate("ID of selection: [_1]",1000);
ok($result eq "ID of selection: 1000") or print "Bail out! Failed numeric NON-formatted (got: $result)\n";

$mp->numeric_format(Locale::MakePhrase::Numeric->DOT_COMMA);
$result = $mp->translate("ID of selection: [_1]",1000);
ok($result eq "ID of selection: 1,000") or print "Bail out! Failed numeric DOT-COMMA-formatted (got: $result)\n";

$mp->numeric_format(Locale::MakePhrase::Numeric->COMMA_DOT);
$result = $mp->translate("ID of selection: [_1]",1000);
ok($result eq "ID of selection: 1.000") or print "Bail out! Failed numeric COMMA-DOT-formatted (got: $result)\n";

$mp->numeric_format('.','_','(',')');
$result = $mp->translate("ID of selection: [_1]",-1000.02);
ok($result eq 'ID of selection: (1_000.02)') or print "Bail out! Failed custom numeric formatting (got: $result)\n";
CHips L MINI SHELL

CHips L pro
