view release on metacpan or  search on metacpan

t/142_context_get_padwalker.t  view on Meta::CPAN

#!/usr/bin/perl

use if !eval { require PadWalker; 1 }, 'Test::More' =>
    skip_all => 'PadWalker not installed';
use t::lib::Test;

$ENV{DBGP_PERL_IGNORE_PADWALKER} = 0;

run_debugger($] < 5.012 ? 't/scripts/variables_complex_510.pl' : 't/scripts/variables_complex.pl');

send_command('run');

command_is(['context_get'], {
    command => 'context_get',
    values  => [
        { name  => '$aref', value => undef },
        { name  => '$foo', value => 1 },
        { name  => '@foo', numchildren => 2 },
        { name  => '%roo', numchildren => 1 },
        { name  => '@roo', numchildren => 1 },
        { name  => '$undef', value => undef },
    ],
});

send_command('run');

command_is(['context_get'], {
    command => 'context_get',
    values  => [
        {
            name        => '$aref',
            type        => 'ARRAY',
            value       => 1,
            children    => '1',
            numchildren => '2',
            page        => 0,
            pagesize    => 10,
            value       => undef,
            childs      => [],
        },
        { name  => '$foo', value => 1 },
        { name  => '$undef', value => undef },
    ],
});

done_testing();