Perlies:
I like unit tests. My employers like Win32, VC++, and Perl. So here I am
writing an "acceptance test" rig for our VC++ code, and it calls
Perl embedded in the C++ code.
When an assertion fails, such as this one...
$self -> assert ($result =~ /LW is god/);
...I want the VC++ Output window to contain the file name, line number, and
spit-list of the failure:
c:\projects\testage.pm:14: get a clue, homey...
That way I can tap <F4> and go straight to the offending line in the editor.
No more reading & GotoLine-ing. That's the computer's job.
(Other Perl editors may support these kinds of features before the new
Millenium is old...)
So first I get OutputDebugString from here:
Win32-API-OutputDebugString-0.03.tar.gz
Now I feel like overriding Test::Unit::Debug::debug so it also pushes text
out OutputDebugString:
use Test::Unit::Debug;
{
package Test::Unit::Debug;
*Test::Unit::Debug::debug = sub {
my ($package, $filename, $line) = caller();
print $out "***************************************that's the facts,
Jack!\n";
print $out @_ if $DEBUG{$package};
}
}
That's as far as I can decipher the documentation on global hostile
takeover-style overrides. But even with "strict" and "-w" turned off,
Perl still screams at me: "Subroutine debug redefined..."
Then, if Perl think's it's "redefined" (past-tense), why don't Perl then
call it?
How am I expected to do this?
(BTW I can't "inherit" Test::Unit::Debug and then overload because the other
Test-Unit stuff won't call my derived class.)
--
Phlip
http://www.greencheese.org/NorovostokNovus
-- All sensors report Patti having a very good time --
-------------------------------------------------------
This sf.net email is sponsored by: See the NEW Palm
Tungsten T handheld. Power & Color in a compact size!
http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0001en
_______________________________________________
Perlunit-users mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/perlunit-users
