view release on metacpan or  search on metacpan

t/010-tarantool-1.5/010-dr-tqueue.t  view on Meta::CPAN

my $task5 =
    $q->urgent(tube => 'utftube', data => [ 3, 4, encode utf8 => 'медвед' ]);
like $task5->id, qr[^[0-9a-fA-F]{32}$], 'task3.id';
is_deeply $task5->data, [ 3, 4, encode utf8 => 'медвед' ],
    "urgent(data => arrayref)";

my $task5_t = $q->take(tube => 'utftube');
my $task4_t = $q->take(tube => 'utftube');

is_deeply $task4->data, $task4_t->data, 'Task and decoded utf data';
is_deeply $task5->data, $task5_t->data, 'Task and encoded utf data';

SKIP: {
    my $task_unique1 = eval {
        $q->put_unique(tube => 'utftube_unique',
            data => [ 3, 4, 'привет' ]);
    };
    skip 'tarantool is not configured for put_unique', 1
        if !$task_unique1 and $@ =~ /put_unique/;
    my $task_unique2 = $q->put_unique(tube => 'utftube_unique',