diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2019-06-27 00:17:52 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2019-06-27 00:17:52 +0100 |
commit | c4d7a63389c79059f9f3d318c4166a3b11bb0974 (patch) | |
tree | b4c210f1b7c7e4fbb2fbb562dba99866d8158953 /dist/Exporter | |
parent | cae2b4cb147cde9e8200c3c1eb888e83824ee275 (diff) | |
download | perl-c4d7a63389c79059f9f3d318c4166a3b11bb0974.tar.gz |
Clean up after previous commit
- Two empty lines betwen tests
- Remove unused $err variable
Diffstat (limited to 'dist/Exporter')
-rw-r--r-- | dist/Exporter/t/Exporter.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dist/Exporter/t/Exporter.t b/dist/Exporter/t/Exporter.t index 0119975141..0518080cac 100644 --- a/dist/Exporter/t/Exporter.t +++ b/dist/Exporter/t/Exporter.t @@ -117,6 +117,7 @@ Testing->import(@imports); @imports), 'import by symbols' ); + package Yar; my @tags = qw(:This :tray); Testing->import(@tags); @@ -127,16 +128,17 @@ Testing->import(@tags); @{$Testing::EXPORT_TAGS{@tags}}), 'import by tags' ); + package Err; my @missing = qw(first second); eval { Testing->import(@missing) }; -my $err = $@; for my $func (@missing) { ::ok( $@ =~ /^"$func" is not exported by the Testing module$/m, "$func is not exported error message" ); } + package Arrr; Testing->import(qw(!lifejacket)); |