This is a real simple example of what you can do for sub classing. Object oriented design is a wonderful thing :-D
################TEST HARNESS SUB CLASS (TestHarnessSubClass.pm)###### #!/usr/local/bin/perl package TestHarnessSubClass; use warnings; use strict; #This creates TestHarnessSubClass into a sub class of Test::Harness use base "Test::Harness"; ##################################################################### #################################################################### # PROGRAM START ################################################### #################################################################### ##################################################################### return 1; ##################################################################### #################################################################### # PROGRAM ENDS #################################################### #################################################################### ##################################################################### ##################################################################### #################################################################### # SUB ROUTINES #################################################### #################################################################### ##################################################################### # over ridden method showing simple inheritance. sub runtests{ my $self = shift; print "LOOK I'M IN A SUB CLASS OF TEST HARNESS\n"; print "YOU CAN DO SOME STUFF HERE BEFORE CALLING TEST HARNESS' runtests SUB ROUTINE!!!\n"; #you can do whatever you want to here and then pass along information to #the super class if you want to. You don't have to call the super class though. #calls super classes runtests method. $self->SUPER::runtests(@_); } ####END OF TestHarnessSubClass.pm################## ###########################THE DRIVER PROGRAM (THDriver.pl)########## #!/usr/local/bin/perl use warnings; use strict; use TestHarnessSubClass; ##################################################################### #################################################################### # PROGRAM START ################################################### #################################################################### ##################################################################### TestHarnessSubClass::runtests('c:\perl\sample.t') ##################################################################### #################################################################### # PROGRAM ENDS #################################################### #################################################################### ##################################################################### ##########################An extremely simple test class (sample.t)## #!/usr/local/bin/perl use warnings; use strict; use Test::More qw(no_plan); ##################################################################### #################################################################### # PROGRAM START ################################################### #################################################################### ##################################################################### &Test::More::is(1,1,"One equals One!!"); &Test::More::is(1,2,"Does one equal two??"); ##################################################################### #################################################################### # PROGRAM ENDS #################################################### #################################################################### ##################################################################### --------------------------------------------------- Andrew Potozniak Administrative Computing Student Assistant State University of New York at Buffalo [EMAIL PROTECTED] 645-3587 x 7123 --------------------------------------------------- -----Original Message----- From: Andrew Savige [mailto:[EMAIL PROTECTED] Sent: Wednesday, July 23, 2003 8:56 PM To: Potozniak, Andrew; [EMAIL PROTECTED] Subject: Re: passing arguments to tests "Potozniak, Andrew" wrote: > Create a sub class of Test::Harness and or MakeMaker that will over-ride > all of their methods/subroutines and then add what you want it to do, > don't forget to call super classes' method/subroutine that you are > over-riding. I can give an example of this if need be. I'd be interested to see an example of sub-classing Test::Harness. /-\ http://mobile.yahoo.com.au - Yahoo! Mobile - Check & compose your email via SMS on your Telstra or Vodafone mobile.