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