1#!/usr/bin/env perl
2
3package Testcase::Spec::ImportWarnings;
4use Test::Spec;
5use FindBin qw($Bin);
6BEGIN { require "$Bin/test_helper.pl" };
7
8describe "Test::Spec" => sub {
9  describe "test file that contains code that triggers Perl warnings" => sub {
10    my $tap = capture_tap("perl_warning_spec.pl");
11
12    it "shows reason for the warning" => sub {
13      like($tap,
14          qr/Odd number of elements/);
15    }
16  }
17};
18
19runtests unless caller;
20