This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
d4a9153613d586b38c0ae3cc7fa92c12bf11312c
[perl5.git] / ext / XS-APItest / t / eval-filter.t
1 #!perl -w
2 use strict;
3
4 use Test::More tests => 3;
5 use XS::APItest;
6
7 {
8     use feature "unicode_eval";
9     my $unfiltered_foo = "foo";
10     eval "BEGIN { filter() }";
11     like $@, qr/^Source filters apply only to byte streams at /,
12         'filters die under unicode_eval';
13     is "foo", $unfiltered_foo, 'filters leak not out of unicode evals';
14 }
15
16 BEGIN { eval "BEGIN{ filter() }" }
17
18 is "foo", "fee", "evals share filters with the currently compiling scope";
19 # See [perl #87064].