File: meta-names.t

package info (click to toggle)
libsoftware-license-perl 0.104006-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 732 kB
  • sloc: perl: 6,913; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 409 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!perl
use strict;
use warnings;

use Test::More 0.88;

my @files = <lib/Software/License/*.pm>;

for my $module (@files) {
  # It's retired.  Dunno if it's okay to be open_source.  Punt!
  next if $module =~ /Sun.pm$/;

  my $pkg = $module;
  $pkg =~ s{^lib/}{};
  $pkg =~ s{\.pm$}{};
  $pkg =~ s{/}{::}g;

  eval "require $pkg; 1";

  ok(defined $pkg->meta_name, "$pkg provide meta_name");
}

done_testing;