File: import_warnings.t

package info (click to toggle)
libtest-spec-perl 0.45-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 252 kB
  • sloc: perl: 2,050; makefile: 2
file content (19 lines) | stat: -rwxr-xr-x 444 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/env perl

package Testcase::Spec::ImportWarnings;
use Test::Spec;
use FindBin qw($Bin);
BEGIN { require "$Bin/test_helper.pl" };

describe "Test::Spec" => sub {
  describe "test file that contains code that triggers Perl warnings" => sub {
    my $tap = capture_tap("perl_warning_spec.pl");

    it "shows reason for the warning" => sub {
      like($tap,
          qr/Odd number of elements/);
    }
  }
};

runtests unless caller;