File: test.pl

package info (click to toggle)
autodia 2.00-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 340 kB
  • ctags: 195
  • sloc: perl: 4,676; makefile: 51
file content (35 lines) | stat: -rw-r--r-- 793 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
25
26
27
28
29
30
31
32
33
34
35
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

#########################

use Test;
BEGIN { plan tests => 3 };

warn "checking Autodia.pm\n";

use Autodia;

ok(1); # If we made it this far, we're ok.

warn "checking classes\n";

use Autodia::Diagram;
use Autodia::Diagram::Class;
use Autodia::Diagram::Object;
use Autodia::Diagram::Dependancy;
use Autodia::Diagram::Inheritance;
use Autodia::Diagram::Superclass;
use Autodia::Diagram::Component;
use Autodia::Handler;

ok(2);

warn "checking handlers..\n";

foreach ( qw/SQL Cpp Perl PHP Java DBI dia Torque python umbrello/ ) {
  eval " use Autodia::Handler::$_ ; ";
  warn "couldn't compile Autodia::Handler::$_ : ignoring..\n" if $@;
}

ok(3);