Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 38 lines (31 sloc) 0.776 kb
8e0bb23 @awwaiid Initial import of v0.49
awwaiid authored
1 #!perl
2 use strict;
3 use warnings;
4 use lib 'lib';
5 use Test::More tests => 13;
6 use Devel::ebug;
7
8 my $ebug = Devel::ebug->new;
9 $ebug->program("t/calc_oo.pl");
10 $ebug->load;
11
12 $ebug->break_point_subroutine("Calc::add");
13 $ebug->run;
14 is($ebug->line, 9);
15 is($ebug->subroutine, 'Calc::add');
16 is($ebug->filename, 't/Calc.pm');
17 $ebug->return();
18
19 is($ebug->pad->{'$r'}, 15);
20 is($ebug->line, 9);
21 is($ebug->subroutine, 'main');
22 is($ebug->filename, 't/calc_oo.pl');
23
24 $ebug = Devel::ebug->new;
25 $ebug->program("t/calc_oo.pl");
26 $ebug->load;
27
28 $ebug->break_point_subroutine("Calc::add");
29 $ebug->run;
30 is($ebug->line, 9);
31 is($ebug->subroutine, 'Calc::add');
32 $ebug->return(3.141);
33 is($ebug->pad->{'$r'}, 3.141);
34 is($ebug->line, 9);
35 is($ebug->subroutine, 'main');
36 is($ebug->filename, 't/calc_oo.pl');
37
Something went wrong with that request. Please try again.