ext/XS-APItest-KeywordRPN/t/multiline.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

use warnings;
use strict;

use Test::More tests => 4;

my($t, $n);
$n = 5;

use XS::APItest::KeywordRPN qw(rpn);
$t = rpn($n
	 $n 1 +
		* #wibble
#wobble
2
		/
);
is $t, 15;
is __LINE__, 18;

$t = 0;
$t = rpn($n $n 1 + *
#line 100
	2 /);
is $t, 15;
is __LINE__, 102;

1;