use Test::More tests => 2;

use String::Interpolate::RE qw( strinterp );

my %vars = ( a => '1' );

my $str = '${a:%02d} $a ${a}';

is( strinterp( $str, \%vars, { UseENV => 0, Format => 0 } ),
    '${a:%02d} 1 1', "format = off" );

is( strinterp( $str, \%vars, { UseENV => 0, Format => 1 } ),
    '01 1 1', "format = on" );