File: load.t

package info (click to toggle)
libxml-rss-perl 1.49-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 768 kB
  • sloc: perl: 6,894; xml: 378; makefile: 8
file content (24 lines) | stat: -rw-r--r-- 445 bytes parent folder | download | duplicates (10) 
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 );
}