This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add interpolation test for [perl #70091]
[perl5.git] / t / op / lex.t
1 #!perl -w
2 use strict;
3
4 require './test.pl';
5
6 plan(tests => 2);
7
8 {
9     no warnings 'deprecated';
10     print <<;   # Yow!
11 ok 1
12
13     # previous line intentionally left blank.
14
15     my $yow = "ok 2";
16     print <<;   # Yow!
17 $yow
18
19     # previous line intentionally left blank.
20 }
21
22 curr_test(3);