on 9/4/02 10:16 pm, Michael G Schwern at [EMAIL PROTECTED] wrote: [snip] > You probably want to guarantee that $@ will be how it died so you can do: > > dies_ok { div(1,0) } 'div by zero'; > like( $@, qr/^Illegal division by zero/ ); > > Even though you can use throws_ok(), the dies_ok() + $@ combo is more > flexible more processing than just a regex needs to be done on $@. [snip]
Good idea. Done. Fixed a couple of other silly mistakes. New code at <http://www.quietstars.com/perl/> if anybody wants to play. Cheers, Adrian -- e. [EMAIL PROTECTED], t. 01929 550720, f. 0870 131 3033