view release on metacpan or  search on metacpan

t/05_sanctions_redis.t  view on Meta::CPAN

use strict;
use warnings;

use Class::Unload;
use YAML;
use File::Slurp;
use Path::Tiny qw(tempfile);
use Test::Warnings;
use Test::More;
use Test::Fatal;
use Test::MockModule;
use Test::MockTime qw(set_fixed_time restore_time);
use RedisDB;
use JSON::MaybeUTF8 qw(encode_json_utf8 decode_json_utf8);
use Clone           qw(clone);

use Data::Validate::Sanctions::Redis;

my $redis_server;
eval { require Test::RedisServer; $redis_server = Test::RedisServer->new(conf => {port => 6379}) }
    or plan skip_all => 'Test::RedisServer is required for this test';

my $redis = RedisDB->new($redis_server->connect_info);

my $sample_data = {
    'EU-Sanctions' => {
        updated => 91,
        content => [{
                names     => ['TMPA'],
                dob_epoch => [],
                dob_year  => []
            },
            {
                names     => ['MOHAMMAD EWAZ Mohammad Wali'],
                dob_epoch => [],
                dob_year  => []
            },
        ],
    },
    'HMT-Sanctions' => {
        updated => 150,
        content => [{
                names     => ['Zaki Izzat Zaki AHMAD'],
                dob_epoch => [],
                dob_year  => [1999],
                dob_text  => ['other info'],
            },
        ]
    },
    'OFAC-Consolidated' => {
        updated => 50,
        content => [{
                names    => ['Atom'],
                dob_year => [1999],
            },
            {
                names    => ['Donald Trump'],
                dob_text => ['circa-1951'],
            },
        ]
    },
    'OFAC-SDN' => {
        updated => 100,
        content => [{
                names          => ['Bandit Outlaw'],
                place_of_birth => ['ir'],
                residence      => ['fr', 'us'],
                nationality    => ['de', 'gb'],
                citizen        => ['ru'],
                postal_code    => ['123321'],