Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re^2: When test-driven development just won't do

by tlm (Prior)
on Aug 04, 2005 at 12:38 UTC ( #480798=note: print w/ replies, xml ) Need Help??

in reply to Re: When test-driven development just won't do
in thread When test-driven development just won't do

For instance, how do you write a test that tests your objects ... timely destruct?

How about (untested):

{ package CrashDummy; @CrashDummy::ISA = 'MyPrecious'; *ok = \&Test::More::ok; my $counter = 0; sub DESTROY { Test::More::ok( ++$counter == 2, 'DESTROY called' ); $_[ 0 ]->SUPER::DESTROY; } { my $dummy = bless +{}, __PACKAGE__; ok( ++$counter == 1, 'inner scope' ); } ok( ++$counter == 3, 'expected execution order' ); }

How do you test your shuffling or die rolling technique is fair and produces results according to your specifications (say, according to a Gaussing distribution), and isn't biased favouring certain outcomes?

There are a bazillion statistical tests to compare sampled distributions. I'm surprised none of these would meet your needs.

the lowliest monk

Comment on Re^2: When test-driven development just won't do
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2016-02-08 12:32 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (276 votes), past polls