Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
executable file 26 lines (20 sloc) 754 Bytes
#!/usr/bin/env perl
use strict;
use rlib '../lib';
use Test::More;
use warnings; no warnings 'redefine';
note( "Testing Devel::Trepan::BrkptMgr" );
use Devel::Trepan::DB::Breakpoint;
use Devel::Trepan::Core;
my $dbgr = Devel::Trepan::Core->new;
my $brkpts = Devel::Trepan::BrkptMgr->new($dbgr);
ok($brkpts, 'Breakpoint manager creation');
my $brkpt1 = DBBreak->new(
type=>'brkpt', condition=>'1', id=>1, hits => 0, enabled => 1,
negate => 0, filename => __FILE__, line_num => __LINE__
ok($brkpts->add($brkpt1), 'Add a breakpoint');
is($brkpts->find(1), $brkpt1, 'Should find breakpoint 1');
is($brkpts->find(2), undef, 'Should not find breakpoint 2');
is($brkpts->find('a'), undef, 'Should tolerate bad find value: a');
Jump to Line
Something went wrong with that request. Please try again.