File: 0-load_all.t

package info (click to toggle)
libtest2-harness-perl 1.000158-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,900 kB
  • sloc: perl: 17,017; makefile: 10; ansic: 6; sh: 4
file content (24 lines) | stat: -rw-r--r-- 528 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use Test2::V0;

use File::Find;
use Test2::Harness;
use Test2::Harness::Util qw/file2mod/;

find(\&wanted, 'lib/');

sub wanted {
    my $file = $File::Find::name;
    return unless $file =~ m/\.pm$/;

    $file =~ s{^.*lib/}{}g;
    my $ok = eval { require($file); 1 };
    my $err = $@;
    ok($ok, "require $file", $ok ? () : $err);

    my $mod = file2mod($file);
    my $sym = "$mod\::VERSION";
    no strict 'refs';
    is($$sym, $Test2::Harness::VERSION, "Package $mod ($file) has the version number");
};

done_testing;