t/15callerlog.t

   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;