use strict;
use warnings;
use utf8;
use Test::More tests => 1;
use FormValidator::Lite;
use CGI;
use YAML;
# test get_error_message
my $v = FormValidator::Lite->new(CGI->new({}));
$v->set_error('baz' => 'NOT_NULL');
$v->set_error('baz' => 'HIRAGANA');
$v->set_error('zip' => 'JZIP');
$v->set_message_data(YAML::Load(<<'...'));
---
message:
zip.jzip: 郵便番号をただしく入力してください
param:
foo: ふう
bar: ばあ
baz: ばず
function:
not_null: "[_1]がからっぽです"
hiragana: "[_1]がひらがなじゃありません"
...
is_deeply([$v->get_error_messages_from_param('baz')], YAML::Load(<<'...'), 'order is assured');
---
- ばずがからっぽです
- ばずがひらがなじゃありません
...