Adam Spiers ([EMAIL PROTECTED]) wrote:
> I had the idea of creating a TestCase::_singleton class, so at
> run-time the fragments could be blessed into a class which would
> inherit from this, but then I realised that this would mean either
> changing @MyTestCase::ISA dynamically, which is too awful to
> contemplate, or ending up with the fragments not being blessed into
> MyTestCase, which isn't nice either. Hmm, maybe they could be blessed
> into MyTestCase::_singleton which ISA MyTestCase; that would be the
> best of both worlds?
I can't yet think of any applications of this yet other than it making
things clearer when a PerlUnit developer inserts some debugging into
the code like 'warn Dumper($suite);'. Even that small reason is
worthwhile IMO though; it would have saved me a good few hours at one
time ...
In fact the following inheritance chain would be better:
MyTestCase::_singleton ---> TestCase::_singleton
\
--> MyTestCase --> TestCase
so that you could then do tests like
if (eval { $testcase->isa('TestCase::_singleton') }) {
if you wanted.
_______________________________________________
Perlunit-devel mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/perlunit-devel
