#!perl
use strict;
use warnings;
use lib 'lib';
use Test::More tests => 36;
use Devel::ebug;
my $ebug = Devel::ebug->new;
$ebug->program("t/calc.pl");
$ebug->load;
# Let's step through the program, and check that we step through the
# lines in the right order
my @lines = (3, 4, 5, 12, 13, 14, 6, 7, 9);
foreach my $l (@lines) {
is($ebug->line, $l);
is($ebug->package, 'main');
is($ebug->filename, 't/calc.pl');
ok($ebug->codeline);
$ebug->step;
}