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