root/lang/perl/FormValidator-LazyWay/trunk/t/setting-unicode.t @ 16818

use Test::Base;
use FormValidator::LazyWay;
use FindBin;
use File::Spec;
use CGI;
use YAML::Syck;
use lib File::Spec->catfile( $FindBin::Bin, 'lib' );
use Data::Dumper;
use Encode;
use utf8;

plan tests => 1 * blocks;

run {
    my $block = shift;

    my $cgi = new CGI( $block->param ) ;

    my $config = Load($block->yaml);
    my $fv = FormValidator::LazyWay->new( config => $config, unicode => 1 );

    # 期待される結果は flagged UTF-8
    my $expected;
    {
        local $Data::Dumper::Terse = 1;
        $expected = decode('utf8', Dumper($block->expected) );
    }

    $expected = eval $expected;

    is_deeply($fv->config, $expected );
}

__END__
=== sccess1
--- yaml
rules:
  - String
setting:
  strict:
    name:
      rule:
        - String#string 
    kana:
      rule:
        - String#string 
lang: ja
labels:
  ja:
    name: 名前
    kana: カナ
--- expected eval
{   'messages' => { 'ja' => { 'rule' => {} } },
    'lang'     => 'ja',
    'setting'  => {
        'strict' => {
            'name' => { 'rule' => [ 'String#string' ] },
            'kana' => { 'rule' => [ 'String#string' ] }
        }
    },
    'labels' => {
        'ja' => {
            'name' => '名前',
            'kana' => 'カナ'
        }
    },
    'rules' => [ 'String' ]
}