[Pangloss] Re: strange chars & tests

[Steve Purkis]

On Thursday, August 14, 2003, at 04:18  pm, Bruno Postle wrote:
> On Thu 14-Aug-2003 at 02:42:01PM +0100, Steve Purkis wrote:
>> On Thursday, August 14, 2003, at 11:31  am, Bruno Postle wrote:
>
>> Strange - never seen that error before.  Are you using an up-to-date
>> version of Test::Builder?  I'm using Test::More v0.45, and
>> Test::Builder v0.15.
>
> I've got Test-More-0.47 & test-Builder-0.17.

I've just upgraded, and I'm still not seeing these errors under either 
Linux or OS X.

So it looks like Test::Builder is dying here:
	Invalid value for shared scalar at 
/usr/lib/perl5/5.8.0/Test/Builder.pm line 319.

And then Test::Harness reports the error because it never sees the 
"1..n" line that Test::More prints out after running all the tests (I 
usually use the 'no plan' option which makes T::M tally up your tests 
so you don't have to count them manually).  Hence this error:

	WHOA!  Somehow you got a different number of results than tests ran!
	This should never happen!  Please contact the author immediately!
	END failed--call queue aborted.

When I look at the test scripts, they all seem to be dying in the TODO: 
section.  I'll wager it's something to do with these lines:

015..user-privileges.t:67:	catch Error with { fail(shift); };
020..term-status.t:54:   	catch Error with { fail(shift); };

So the next step is to try running the tests individually:

	perl t/015..user-privileges.t

Do they still fail?  If so, try running them through the perl debugger 
to track down what's hapenning.  I dunno if you've used the debugger 
before, so forgive me if this is old news - here's what you should look 
for (I typed lines beginning w/ ->):

->	perl -d t/015..user-privileges.t
	...
->	DB<1> b 67
->	DB<2> c
	...
	main::(t/015..user-privileges.t:67):
	67:         catch Error with { fail(shift); };
->	DB<3> c
	main::CODE(0x845d640)(t/015..user-privileges.t:67):
	67:         catch Error with { fail(shift); };
->	DB<4> x @_
	0  OpenFrame::WebApp::Error::Abstract=HASH(0x859520c)
	   '-file' => 
'/home/spurkis/Pangloss/blib/lib/Pangloss/StoredObject.pm'
	   '-line' => 41
	   '-package' => 'Pangloss::StoredObject'
	   '-text' => 'Pangloss::User::Privileges does not implement abstract 
method
	 Pangloss::StoredObject::validate()!'
	   'class' => 'Pangloss::User::Privileges'
	1  SCALAR(0x831324c)
	   -> 0
->	DB<5> c
	not ok 30 - Pangloss::User::Privileges does not implement abstract 
method
	 Pangloss::StoredObject::validate()! # TODO implement this
	...
->	DB<6> q

hth,
-Steve