t/unspecced/caller.t

   1 use v6;
   2
   3 use Test;
   4
   5 # L<S06/Macros>
   6
   7 =begin pod
   8
   9 Unspecced: do macros introduce a new CALLER frame?  It seems like the
  10 right answer is that closure macros should, but AST macros should not.
  11
  12 =end pod
  13
  14 plan 4;
  15
  16 sub current_line {
  17     return $?CALLER::LINE;
  18 }
  19
  20 macro ast_compiling_current_line () {
  21     return quasi :COMPILING { current_line() };
  22 }
  23
  24 macro ast_current_line () {
  25     return quasi { current_line() };
  26 }
  27
  28 my $closure_line;
  29
  30 macro closure_current_line () {
  31     $closure_line = $?LINE; return { current_line() };
  32 }
  33
  34
  35 is current_line(), $?LINE,
  36     'sanity check, caller can get $?LINE';
  37
  38 is ast_compiling_current_line, $?LINE,
  39     'macros with COMPILING AST do not introduce new CALLER frame';
  40
  41 is ast_current_line, $?LINE,
  42     'macros with AST do not introduce new CALLER frame';
  43
  44 is closure_current_line, $closure_line,
  45     'macros with closures *do* introduce a new CALLER frame';