File: load.t

package info (click to toggle)
libxml-rss-perl 1.55-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 780 kB
  • ctags: 235
  • sloc: perl: 6,988; xml: 379; makefile: 8
file content (24 lines) | stat: -rw-r--r-- 442 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
 
BEGIN {
	use File::Find;

	@files = ();

        my $lib = 'lib';
        $lib = 'blib/lib' if -e 'blib/lib';

	find(sub { push @files, $File::Find::name if $_ =~ m/\.pm$/;}, ($lib));

	@classes = map { my $x = $_;
		$x =~ s|^blib/lib/||;
		$x =~ s|/|::|g;
		$x =~ s|\.pm$||;
		$x;
		} @files;
	}

use Test::More tests => scalar @classes;

foreach my $class ( @classes ){
	print "bail out! $class did not compile" unless use_ok( $class );
}