Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 40 lines (33 sloc) 0.866 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");
8257c9a @pmurias make the backend pluggable
authored
10 $ebug->backend("$^X bin/ebug_backend_perl");
8e0bb23 @awwaiid Initial import of v0.49
awwaiid authored
11 $ebug->load;
12
13 $ebug->break_point_subroutine("Calc::add");
14 $ebug->run;
15 is($ebug->line, 9);
16 is($ebug->subroutine, 'Calc::add');
17 is($ebug->filename, 't/Calc.pm');
18 $ebug->return();
19
20 is($ebug->pad->{'$r'}, 15);
21 is($ebug->line, 9);
22 is($ebug->subroutine, 'main');
23 is($ebug->filename, 't/calc_oo.pl');
24
25 $ebug = Devel::ebug->new;
26 $ebug->program("t/calc_oo.pl");
8257c9a @pmurias make the backend pluggable
authored
27 $ebug->backend("$^X bin/ebug_backend_perl");
8e0bb23 @awwaiid Initial import of v0.49
awwaiid authored
28 $ebug->load;
29
30 $ebug->break_point_subroutine("Calc::add");
31 $ebug->run;
32 is($ebug->line, 9);
33 is($ebug->subroutine, 'Calc::add');
34 $ebug->return(3.141);
35 is($ebug->pad->{'$r'}, 3.141);
36 is($ebug->line, 9);
37 is($ebug->subroutine, 'main');
38 is($ebug->filename, 't/calc_oo.pl');
39
Something went wrong with that request. Please try again.