File: 04language_classes.t

package info (click to toggle)
libcurses-ui-perl 0.95-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 860 kB
  • ctags: 510
  • sloc: perl: 10,479; makefile: 51
file content (25 lines) | stat: -rw-r--r-- 548 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
25
# -*- perl -*-
use strict;
use Test::Simple tests => 12;
use File::Spec;
use FindBin;
use lib "$FindBin::RealBin/../lib";
use Curses::UI;

my $filename;
foreach my $mod (keys %INC) {
	$filename  = $INC{$mod} if ($mod =~ /UI\.pm/);
}

$filename =~ s/\.pm//gi;
$filename = File::Spec->catfile($filename, "Language");

opendir DIR, "$filename" or die "Couldn't open language dir $filename: $!\n";
my @entries = grep /.pm$/, readdir(DIR);

foreach my $file (@entries) {
    require "Curses/UI/Language/$file";
	$file =~ s/\.pm//gi;
    ok(1,$file);
}