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