On Tue, 2007-04-24 at 14:44 -0400, [EMAIL PROTECTED] wrote: > Hi, > > Recently i wrote a perl module that includes package and a script. > As part of the module sanity tests, I would like to run the script and verify > a success. > For that, I am using Test::More and Test::Simple. > Is there any recommendations how to do this?
under your programs create a t directory (t for testing) and add a series of scripts to test your application as xyz.t. My safemove module has the following test script. I also have a check to ensure that pod is coded in the modules. #!/usr/bin/perl -w # vi:set sw=4 ts=4 et cin: # $Id: SafeMove.t,v 1.2 2006/04/24 02:43:07 foskey Exp $ =head1 NAME SafeMove.t =head1 DESCRIPTION Ensure that the SafeMove module is functioning correctly. =HEAD1 AUTHOR Ken Foskey =cut # Libraries use strict; use warnings; use Test::More; use File::Temp; use File::Basename; use lib "/apps/bin/modules"; use SafeMove; my $handle; my $filename; my $filename2; my $basename; my @files; # for glob... plan( tests=>4 ); ## number of test coded. ($handle, $filename) = mkstemp( '/tmp/SafeMove.XXXX' ); ($handle, $filename2) = mkstemp( '/tmp/SafeMove.XXXX' ); close( $handle ); SafeMove::rename_timestamp( $filename ); ok( ! (-f $filename ), "$filename should not exist" ); @files = glob( "$filename*" ); ok( @files == 1, "$filename* should have one entry" ); unlink( $filename ); SafeMove( $filename2, $filename ); ok( -f $filename, "moving file to new file name" ); mkdir( $filename2 ); SafeMove( $filename, $filename2 ); $basename = $filename2.'/'.basename($filename); ok( -f $basename, "Moving from file to directory" ); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
