Hi Daniel,

great idea I think. I tried it on the last thing which failed for me, an
attempt to play an mpeg:

| foo |
foo _ MPEGPlayer playFile: 'chimp.mpg'.
foo playStream: 0.

I got over one syntax error by wrapping this in "[...] value", so the test
method looks like:

testMPEGPlayerPlayFileChimpMpg
	self deny: ([| foo | 
		foo _ MPEGPlayer playFile: 'chimp.mpg'.
		foo playStream: 0] value) = a MPEGPlayer

A second syntax error is caused by your "= a MPEGPlayer". I'm not sure how
that is supposed to work ?

I wasn't sure what class to add this to so I just said MPEGPlayer.
Perhaps this is why the new test didn't show up in a TestRunner.

Best regards,
-Simon