#!/usr/bin/env perl
use strict;
use warnings;
use rlib '../lib';
use Test::More;
BEGIN {
use_ok( 'Devel::Trepan::CmdProcessor::Location' );
use_ok( 'Devel::Trepan::CmdProcessor' );
}
my $proc = Devel::Trepan::CmdProcessor->new;
sub create_frame() {
my ($pkg, $file, $line, $fn) = caller(0);
return [
{
file => $file,
fn => $fn,
line => $line,
pkg => $pkg,
}];
}
my $frame_ary = create_frame();
$proc->frame_setup($frame_ary);
my $x = $proc->current_source_text({output=>'plain'});
is('my $frame_ary = create_frame();', $x);
done_testing();