File: 08-import-fail.t

package info (click to toggle)
libclone-choose-perl 0.010-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 320 kB
  • sloc: perl: 1,295; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 364 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!perl

use strict;
use warnings;
use Test::More;

eval "use Module::Runtime;";
$@ and plan skip_all => "Module::Runtime not found. Skipping test.";
Module::Runtime->import("use_module");

eval { use_module("Clone::Choose")->import("no_clone"); };
my $e = $@;

like($e, qr/no_clone is not exportable by Clone::Choose/, "unknown function imported");

done_testing;