View of /trunk/xmlrpc/RPC/RPC-XML-0.25/t/00_load.t

    1 #!/usr/bin/perl
    2 
    3 # Verify that the individual modules will load
    4 
    5 @MODULES = qw(RPC::XML RPC::XML::Parser RPC::XML::Client RPC::XML::Server);
    6 
    7 printf "1..%d\n", scalar(@MODULES);
    8 
    9 $count = 0;
   10 for (@MODULES)
   11 {
   12     eval "use $_";
   13 
   14     printf "%sok %d\n", ($@) ? 'not ' : '', ++$count;
   15 }
   16 
   17 exit 0;