xref: /openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/keyword_multiline.t (revision 898184e3e61f9129feb5978fad5a8c6865f00b92)

use warnings;
use strict;

use Test::More tests => 4;

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

use XS::APItest 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;