perlunit-users Mailing List for PerlUnit (Page 5)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Hi Philip,

It seems as though you are doing a lot of work to embed PerlUnit 
into your development environment when you don't have to.  There
is another project called CppUnit that would save you a lot of time
and headache.

	http://cppunit.sourceforge.net

Cheers,

Kyle Brost
----
Senior Software Developer
Quest Software
909 - 11th Avenue SW, Suite 800
Office: 403.264.8322 ext. 234
Fax: 403.265.5307
www.quest.com

-----Original Message-----
From: Phlip [mailto:pl...@sy...]
Sent: Friday, November 08, 2002 11:28 AM
To: per...@li...
Subject: [Perlunit-users] Test-Unit on Win32: OutputDebugString at
'assert' failure time?

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
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perlunit-users

2001	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (1)	Nov (2)	Dec (3)
2002	Jan (4)	Feb (6)	Mar (1)	Apr	May (2)	Jun (2)	Jul	Aug	Sep	Oct	Nov (8)	Dec (1)
2003	Jan (14)	Feb (2)	Mar (1)	Apr	May	Jun	Jul	Aug	Sep (10)	Oct (20)	Nov	Dec
2004	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (3)	Nov	Dec (3)
2005	Jan	Feb	Mar	Apr	May	Jun (2)	Jul	Aug	Sep	Oct (2)	Nov	Dec
2006	Jan	Feb (6)	Mar	Apr	May (4)	Jun (6)	Jul	Aug	Sep	Oct	Nov	Dec
2007	Jan	Feb	Mar	Apr	May (8)	Jun (1)	Jul	Aug	Sep	Oct (1)	Nov	Dec
2008	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug (1)	Sep	Oct	Nov	Dec (1)
2009	Jan (2)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2011	Jan	Feb	Mar (1)	Apr	May (3)	Jun (2)	Jul	Aug	Sep (1)	Oct	Nov	Dec

perlunit-users Mailing List for PerlUnit (Page 5)

perlunit-users — PerlUnit users' mailing list