File: 00use.t

package info (click to toggle)
libtest-exports-perl 1-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 104 kB
  • sloc: perl: 354; makefile: 2
file content (20 lines) | stat: -rw-r--r-- 511 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

use warnings;
use strict;

use Test::Most "bail";

require_ok "Test::Exports";
ok eval { Test::Exports->import; 1; },  "import OK";

ok Test::Exports->isa("Test::Builder::Module"), 
                                        "Test::Exports isa T::B::Module";

for (qw/ import_ok import_nok is_import cant_ok new_import_pkg /) {
    no strict "refs";
    ok defined &$_,                         "&$_ exists";
    ok \&$_ == \&{"Test::Exports\::$_"},    "...and has been imported";
}

done_testing;