#!/usr/bin/env perl
# Serialize variables when sprintid

use warnings;
use strict;
use utf8;
use Test::More tests => 13;

use String::Print;

my $pi = 3.14157;

#
## Simple sprintf formatting
#

my $f = String::Print->new;
isa_ok($f, 'String::Print');

is( $f->sprinti("a={a%d} b={b %.2f}", a => 007, b => $pi)
  , "a=7 b=3.14" );

# multi-byte characters
my $short = "€éö";
is( $f->sprinti("c={z%s}x",   z => $short), "c=${short}x" );
is( $f->sprinti("d={z%5s}x",  z => $short), "d=  ${short}x" );
is( $f->sprinti("e={z%-5s}x", z => $short), "e=${short}  x" );
is( $f->sprinti("f={z%5s}x",  z => "${short}yzzz"), "f=${short}yzzzx" );
is( $f->sprinti("g={z%.5s}x", z => "${short}yzz"), "g=${short}yzx", 'too large');
is( $f->sprinti("h={z%5.3s}x",z => "${short}yz"), "h=  ${short}x" );
is( $f->sprinti("i={z%-5.3s}x",z=> "${short}yz"), "i=${short}  x" );

# Now re-run the tests with wide display chars.

# XXX

#
## Own modifier
#

sub money($$$$)
{   my ($formatter, $modif, $value, $args) = @_;
    # warn "($formatter, $modif, $value, $args)\n";

      $modif eq '€' ? sprintf("%.2f EUR", $value)
    : $modif eq '₤' ? sprintf("%.2f PND", $value/1.23)
    :                 'ERROR';
}

my $g = String::Print->new
  ( modifiers => [ qr/[€₤]/ => \&money ]
  );
isa_ok($g, 'String::Print');

is( $g->sprinti("a={p€}", p => $pi), "a=3.14 EUR" );
is( $g->sprinti("b={p₤}", p => $pi), "b=2.55 PND" );

is( $g->sprinti("a={p€%10s}", p => $pi), "a=  3.14 EUR", 'stacking modifiers' );