1use strict;
2use warnings qw(FATAL);
3use Test::More;
4use Prima::sys::Test qw(noX11);
5use FindBin qw($Bin);
6use File::Find qw(find);
7
8my @packages;
9
10find ( sub {
11	return unless /\.pm$/;
12	return if $File::Find::dir =~ /blib/;
13	my $f = "$File::Find::dir/$_";
14	$f =~ s/^.*(Prima.*).pm/$1/;
15	$f =~ s[/][::]g;
16	push @packages, $f;
17}, "$Bin/../../");
18
19plan tests => scalar @packages;
20require_ok($_) for @packages;
21