[Pangloss] tests 015 & 020 failing

[Bruno Postle]

On Mon 18-Aug-2003 at 12:43:05PM +0100, Steve Purkis wrote:
> 
> 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); };

debugging, this is all the same:

> ->	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

..but I don't get as far as printing a result for test 30.

> ->	DB<5> c
> 	not ok 30 - Pangloss::User::Privileges does not implement abstract 
> method
> 	 Pangloss::StoredObject::validate()! # TODO implement this

I get this error instead:

    Invalid value for shared scalar at
    /usr/lib/perl5/5.8.0/Test/Builder.pm line 319.
    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.

If I comment out the whole TODO section of both test scripts, I get
this:

ok 1 - use Pangloss::User::Privileges;
ok 2 - new isa Pangloss::User::Privileges
ok 3 - admin(set)
ok 4 - admin(get)
ok 5 - add_concepts(set)
ok 6 - add_concepts(get)
ok 7 - add_categories(set)
ok 8 - add_categories(get)
ok 9 - translate_languages(get) isa HASH
ok 10 - proofread_languages(get) isa HASH
ok 11 - add_translate_languages
ok 12 - translate : yes
ok 13 - can_translate(lang) : yes
ok 14 - can_translate(lang2) : no 
ok 15 - add_proofread_languages
ok 16 - proofread : yes
ok 17 - can_proofread(lang) : yes
ok 18 - can_proofread(lang2) : no 
ok 19 - copy
ok 20 - copy proofread langs
ok 21 - copy translate langs
ok 22 - copy add_concepts
ok 23 - copy add_categories
ok 24 - copy admin
ok 25 - clone
ok 26 - remove_translate_languages
ok 27 - can_translate
ok 28 - remove_proofread_languages
ok 29 - can_proofread
1..29

BTW `make test` with Test-Builder-Tester-0.09 checks out fine.

-- 
Bruno