ext/XS-APItest/t/keyword_multiline.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More tests => 4;
   5
   6 my($t, $n);
   7 $n = 5;
   8
   9 use XS::APItest qw(rpn);
  10 $t = rpn($n
  11          $n 1 +
  12                 * #wibble
  13 #wobble
  14 2
  15                 /
  16 );
  17 is $t, 15;
  18 is __LINE__, 18;
  19
  20 $t = 0;
  21 $t = rpn($n $n 1 + *
  22 #line 100
  23         2 /);
  24 is $t, 15;
  25 is __LINE__, 102;
  26
  27 1;