view release on metacpan or  search on metacpan

t/010-tarantool-1.5/000-queue.t  view on Meta::CPAN

        { type => 'NUM', name => 'cid' },
        { type => 'NUM64', name => 'created' },
        { type => 'NUM64', name => 'ttl' },
        { type => 'NUM64', name => 'ttr' },
        { type => 'NUM', name => 'cbury' },
        { type => 'NUM', name => 'ctaken' },
        { type => 'NUM64', name => 'now' },
    ]
);

cmp_ok $meta->now, '<', $meta->ttl + $meta->created, 'task is alive';
is $meta->ttl, 10000000, 'ttl';
is $meta->ttr, 20000000, 'ttr';

is_deeply $task1, [ $task1->[0], 'tube_name', 'ready', 'task', 1 .. 10 ],
    'task 1';


my $started = time;
my $task2 = tnt->call_lua('queue.put',
    [