[NetScript CVS] CVS: netscript2/src/tools ipdoc.pl,NONE,1.1 runtests.pl,1.1,1.2

[Jan T. <de...@us...>]

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"