1use strict;
2use warnings;
3use lib 't/lib';
4use Test::More;
5
6use Package::Stash;
7
8my $warnings;
9BEGIN {
10    $warnings = '';
11    $SIG{__WARN__} = sub { $warnings .= $_[0] };
12}
13
14BEGIN {
15    my $stash = Package::Stash->new('Foo');
16    $stash->get_or_add_symbol('$bar');
17}
18
19is($warnings, '');
20
21done_testing;
22