Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Testing: Fun for the family

by Corion (Pope)
on Mar 09, 2004 at 10:17 UTC ( #335048=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    =for test_description
    
    ...
      The foo parameter matches the pattern C</bar/>.
    
    =cut
    
  2. or download this
    
    my %test;
    ...
    #  The foo parameter matches the pattern C</bar/>.
    like( $t, qr/bar/, $test{Description} . qw(The foo parameter matches C
    +</bar/>));
    };