comment on

A comon pattern I find in my testing code is

my @dieings;
my @warnings;
my $rc;

eval {
  local $SIG{__WARN__} = sub {push @warnings, @_};
  local $SIG{__DIE__ } = sub {push @dieings , @_};

  $rc = $obj->method(@params);
}

is(@warnings, $expectedWarningCount, 'correct number of warnings raise
+d');
like(shift(@warnings), qr/expected pattern of first warning/, 'first w
+arning message correct');
like(shift(@warnings), qr/expected pattern of second warning/, 'second
+ warning message correct');
...
is(@dieings, $expectedDeathCount, 'correct number of deaths raised');
like(shift(@dieings), qr/expected pattern of first death/, 'first deat
+h message correct');
...
is($rc, $expectReturnValue, 'method returned required value');
# or, if method returns an object
isa_ok($rc, 'Expect::Class', 'received expected class');
...
[download]

...reality must take precedence over public relations, for nature cannot be fooled. - R P Feynmann

In reply to Re^3: too much testing? by leriksen
in thread too much testing? by geektron

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Syntactic Confectionery Delight
	PerlMonks