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