note grantm <blockquote><i>This is my first attempt at TDD in Perl. I'm using Test::Simple and nothing more complicated than <code>ok</code>.</i></blockquote> <p>The Test-Simple distribution includes the Test::More module - since you already have it installed, you might as well use it. For an example of how this will improve your life, consider this test:</p> <code> ok(animal() eq 'monkey', 'animal() returned monkey') </code> <p>Using the <code>is</code> function from Test::More the same test might be written like this:</p> <code> is(animal(), 'monkey', 'check animal() return value') </code> <p>The difference is that when your test fails, the diagnostic output will tell you what value was expected and what was actually received - making things much easier to debug.</p> <p>Test::More has a number of handy functions like this which <i>will</i> save your time.</p> 949648 949707