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 => 15;
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);
}
|
