From e565af54b1ebba7c6c9e69a984e739f57c12135a Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 15 Jul 2013 15:33:32 -0400 Subject: sync test suite --- t/warnings.t | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 t/warnings.t (limited to 't/warnings.t') diff --git a/t/warnings.t b/t/warnings.t new file mode 100644 index 0000000..2dd5929 --- /dev/null +++ b/t/warnings.t @@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Package::Stash; + +my $warnings; +BEGIN { + $warnings = ''; + $SIG{__WARN__} = sub { $warnings .= $_[0] }; +} + +BEGIN { + my $stash = Package::Stash->new('Foo'); + $stash->get_or_add_symbol('$bar'); +} + +is($warnings, ''); + +done_testing; -- cgit v1.2.3-54-g00ecf