File: unknown-backend.t

package info (click to toggle)
librun-parts-perl 0.09-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid, stretch
  • size: 196 kB
  • ctags: 20
  • sloc: perl: 409; makefile: 4; sh: 4
file content (21 lines) | stat: -rw-r--r-- 379 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!perl -T

use strict;
use warnings;
use 5.010;

use Test::More;
use Test::Warnings 0.005 qw(warning);
use Test::Differences;

delete @ENV{qw{PATH ENV IFS CDPATH BASH_ENV}};

my $d = 't/basic-dummy';

use_ok( 'Run::Parts' );

like(warning { eval { Run::Parts->new($d, 'foobar'); }},
     qr/Unknown backend foobar in use/,
     "Warn's about unknown backends");

done_testing();