Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Test driven development and glue code

by xdg (Monsignor)
on Oct 05, 2005 at 22:57 UTC ( #497774=note: print w/ replies, xml ) Need Help??

in reply to Test driven development and glue code

First, you might want to look at How a script becomes a module. The general idea is to convert most of the functionality of a script into a module, and test that as you would a module.

In general, for testing scripts, you need to write a test file that you can run with prove. In testing scripts, I've found IPC::Run3 to be helpful for driving inputs and outputs in a platform independent way. E.g.

# file: use strict; use warnings; exit;
# file: dummy.t use strict; use warnings; use Test::More tests => 1; use IPC::Run3; my @cmd = qw( perl ); ok( run3( \@cmd ), "Running @cmd" );

prove -v dummy.t produces:

dummy....1..1 ok 1 - Running perl ok All tests successful. Files=1, Tests=1, 0 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 C +PU)

There you go -- a basic script test. All you need to do is keep adding to the test script (or create new ones), run it with prove, and then add code until it works, and you're doing TDD for scripts.

For helpers to test specific behavior or to help you write your own tests of specific behaviors, you might want to look at:

  • For file properties: Test::File (Actually, search CPAN for modules like "Test::File" and you'll see a variety of possibly useful test helpers for files.)
  • Creating temporary file and directories: File::Temp (You might find my own File::pushd useful in that regard, too.)
  • Driving interactive programs: Test::Expect

You may need to write new test helpers for things like process killing, or user changes, but you can either build that up with Test::More (or even write new Test:: modules with Test::Builder and release them to CPAN for all to use.)


Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://497774]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2016-07-24 13:36 GMT
Find Nodes?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?

    Results (221 votes). Check out past polls.