Update of /cvsroot/net-script/netscript2/src/tools
In directory usw-pr-cvs1:/tmp/cvs-serv3951
Modified Files:
runtests.pl
Added Files:
ipdoc.pl
Log Message:
* nearly finished IPdoc 1.0
--- NEW FILE: ipdoc.pl ---
#!/usr/bin/perl
#--------------------------------------------------------
# This script creates HTML documentation for the
# NetScript project. See the IPdoc documentation in the
# docs/ipdoc directory of the distribution.
#
# $Id: ipdoc.pl,v 1.1 2002/02/05 00:31:27 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use IPdoc::IPdoc;
use strict;
my $files = "";
my $destDir = "";
print "IPdoc - The insOMnia perl documenting system - (C)2002 by insOMnia\n";
while ( my $arg = shift(@ARGV)) {
if ($arg eq "-f") {
$files = shift(@ARGV);
}
if ( $arg eq "-d" ) {
$destDir = shift(@ARGV);
}
if ( $arg eq "-help" || $arg eq "--help") {
print "Usage: ipdoc.pl -f directory[,directory] [-d destination]\n";
exit 0;
}
}
if ($files eq "") {
print "Error: You must specifiy a directory for input.\n";
exit 1;
}
my $ipdoc = IPdoc::IPdoc -> new();
$ipdoc -> start({ files => $files, destination => $destDir });
Index: runtests.pl
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/runtests.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** runtests.pl 2001/10/21 10:32:34 1.1
--- runtests.pl 2002/02/05 00:31:27 1.2
***************
*** 17,32 ****
print "- insOMnia - Test package runner -\n";
print "------------------------------------\n";
! my $testPackage = $ARGV[1];
$testPackage = "." if $testPackage eq "";
!
print "\n Looking for tests in package: $testPackage";
my $testrunner = Test::Unit::TestRunner -> new();
opendir(DIR, "$testPackage") || die "\n Testing failed. Cannot open package directory.";
$testPackage =~ s/\//::/g; # create package name of path
! my @tests = grep { /Test\.pm/ && s/\.pm$// && s/$/$testPackage/e; } readdir(DIR);
closedir DIR;
for( @tests ) {
$testrunner -> start( $_ );
}
--- 17,35 ----
print "- insOMnia - Test package runner -\n";
print "------------------------------------\n";
! my $testPackage = $ARGV[0];
$testPackage = "." if $testPackage eq "";
! $testPackage .= "/";
print "\n Looking for tests in package: $testPackage";
my $testrunner = Test::Unit::TestRunner -> new();
opendir(DIR, "$testPackage") || die "\n Testing failed. Cannot open package directory.";
+ $testPackage =~ s/\.\///g;
$testPackage =~ s/\//::/g; # create package name of path
! my @tests = grep { /Test\.pm/ && s/\.pm$// && s/^/$testPackage/e; } readdir(DIR);
closedir DIR;
for( @tests ) {
+ print "\n Running Test: $_\n\n";
$testrunner -> start( $_ );
}
+ print "\nTests complete.\n"
|
