#!perl -T
use strict;
use warnings;
use Carp::Parse::CallerInformation;
use Test::More tests => 1;
my $TEST_LINE = 'Test at line X';
my $caller_information = Carp::Parse::CallerInformation->new(
{
arguments_string => 'Test',
arguments_list => [ 'Test' ],
line => $TEST_LINE,
}
);
is(
$caller_information->get_line(),
$TEST_LINE,
'get_line() returns the information used when setting up the object.',
);