+{
+ local $TODO = 'Need a workaround for this' if $] < 5.010001;
+ my @w;
+ {
+ local $SIG{__WARN__} = sub { push @w, join '', @_ };
+ eval 'no indirect; use indirect::TestRequired';
+ }
+ is $@, '', 'require test didn\'t croak';
+ is_deeply \@w, [ ], 'pragma didn\'t propagate into the required file';
+}
+