Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (23 sloc) 502 Bytes
#!perl
use strict;
use warnings;
use lib 'lib';
use Test::More tests => 10;
use Devel::ebug;
my $ebug = Devel::ebug->new;
$ebug->program("t/yaml.pl");
$ebug->backend("$^X bin/ebug_backend_perl");
$ebug->load;
is($ebug->finished, 0);
is($ebug->line, 3);
is($ebug->subroutine, "main");
$ebug->next;
is($ebug->finished, 0);
is($ebug->line, 4);
is($ebug->subroutine, "main");
$ebug->next;
is($ebug->finished, 0);
is($ebug->line, 5);
is($ebug->subroutine, "main");
$ebug->next;
is($ebug->finished, 1);
Something went wrong with that request. Please try again.