[dbsrgits/SQL-Abstract.git] / t / 15callerlog.t

use strict;
use warnings;

use Test::More;
use SQL::Abstract::Tree;

my $tree = SQL::Abstract::Tree->new({
   include_caller => 1,
   caller_depth   => 0,
});

my $tree2 = SQL::Abstract::Tree->new({
   include_caller => 1,
   caller_depth   => 1,
});
my $out = $tree->_caller_info(1);
ok $out =~ /callerlog/ && $out =~ /line 16/, 'caller info is right for basic test';

my $o2;
sub lolz { $o2 = $tree2->_caller_info(1) }

lolz;
ok $o2 =~ /callerlog/ && $o2 =~ /line 22/, 'caller info is right for more nested test';

ok !$tree2->_caller_info(2), 'caller info is blank unless arg == 1';
done_testing;
Commit	Line	Data
637bb22c	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use SQL::Abstract::Tree;
	6
	7	my $tree = SQL::Abstract::Tree->new({
	8	include_caller => 1,
	9	caller_depth => 0,
	10	});
	11
	12	my $tree2 = SQL::Abstract::Tree->new({
	13	include_caller => 1,
	14	caller_depth => 1,
	15	});
	16	my $out = $tree->_caller_info(1);
	17	ok $out =~ /callerlog/ && $out =~ /line 16/, 'caller info is right for basic test';
	18
	19	my $o2;
	20	sub lolz { $o2 = $tree2->_caller_info(1) }
	21
	22	lolz;
	23	ok $o2 =~ /callerlog/ && $o2 =~ /line 22/, 'caller info is right for more nested test';
	24
	25	ok !$tree2->_caller_info(2), 'caller info is blank unless arg == 1';
	26	done_testing;