Autistic, ADHD, Geek. The weblog of Kay Rhodes (masukomi). Zola 2008-04-09T00:00:00+00:00 https://weblog.masukomi.org/tags/unittesting/atom.xml 2008-04-09T00:00:00+00:00 2008-04-09T00:00:00+00:00 Kay Rhodes https://weblog.masukomi.org/2008/04/09/how-to-create-a-test-suite-in-perls-testunit-v025/ <p>If your Test Case is a package whose goal is to test all aspects of a particular class then a Test Suite is something which kicks off a collection of related Test Cases. As with most things in Perl’s Test::Unit it’s really easy to do and also terribly documented. So, without further ado… You need something to kick off all your tests:</p> <pre class="giallo z-l-code z-d-code" ><code data-lang="perl"><span class="giallo-l"><span class="z-l-5 z-d-5"> use</span><span> Test::Unit::HarnessUnit;</span></span> <span class="giallo-l"><span class="z-l-5 z-d-5"> use</span><span> My::Test::Suite::Package;</span></span> <span class="giallo-l"></span> <span class="giallo-l"><span class="z-l-3 z-l-b z-d-6 z-d-b"> my</span><span class="z-l-5 z-d-5"> $</span><span class="z-l-1 z-d-1">testrunner</span><span> = Test::Unit::HarnessUnit</span><span class="z-l-5 z-d-5">-&gt;</span><span>new</span><span>(</span><span>)</span><span>;</span></span> <span class="giallo-l"><span class="z-l-5 z-d-5"> $</span><span class="z-l-1 z-d-1">testrunner</span><span class="z-l-5 z-d-5">-&gt;</span><span>start(</span><span class="z-l-2 z-d-2">&quot;</span><span class="z-l-2 z-d-2">My::Test::Suite::Package</span><span class="z-l-2 z-d-2">&quot;</span><span>);</span></span></code></pre> <p>Next you need the test suite it’s going to kick off:</p> <pre class="giallo z-l-code z-d-code" ><code data-lang="perl"><span class="giallo-l"><span class="z-l-5 z-d-5"> package</span><span class="z-l-8 z-d-8"> My::Test::Suite::Package</span><span>;</span></span> <span class="giallo-l"><span class="z-l-5 z-d-5"> use</span><span> base </span><span class="z-l-2 z-d-2">qw/</span><span class="z-l-2 z-d-2">Test::Unit::TestSuite</span><span class="z-l-2 z-d-2">/</span><span>;</span></span> <span class="giallo-l"></span> <span class="giallo-l"><span class="z-l-6 z-l-i z-d-3 z-d-i"> #</span><span class="z-l-6 z-l-i z-d-3 z-d-i"> returns an array of the fully qualified names of the TestCase</span></span> <span class="giallo-l"><span class="z-l-6 z-l-i z-d-3 z-d-i"> #</span><span class="z-l-6 z-l-i z-d-3 z-d-i"> based classes you wish to run.</span></span> <span class="giallo-l"><span class="z-l-3 z-l-b z-d-6 z-d-b"> sub</span><span class="z-l-1 z-d-1"> include_tests</span><span>() </span><span>{</span></span> <span class="giallo-l"><span class="z-l-5 z-d-5"> return</span><span> (</span><span class="z-l-2 z-d-2">&#39;</span><span class="z-l-2 z-d-2">Some::Test::Case</span><span class="z-l-2 z-d-2">&#39;</span><span>,</span></span> <span class="giallo-l"><span class="z-l-2 z-d-2"> &#39;</span><span class="z-l-2 z-d-2">Some::Test::Case2</span><span class="z-l-2 z-d-2">&#39;</span><span>,</span></span> <span class="giallo-l"><span class="z-l-2 z-d-2"> &#39;</span><span class="z-l-2 z-d-2">Some::Test::Case3);</span></span> <span class="giallo-l"><span class="z-l-2 z-d-2"> }</span></span> <span class="giallo-l"></span> <span class="giallo-l"><span class="z-l-2 z-d-2"> 1;</span></span></code></pre> <p>That’s it. Happy testing.</p>