[Pangloss] status update 01-08-2003

[Bruno Postle]

On Wed 13-Aug-2003 at 06:17:38PM +0100, Steve Purkis wrote:
> 
> Right - looks like that distro is missing the Petal plugins!  I
> must've forgotten to do a 'make manifest' before 'make dist' !
> I'll make another snapshot available in a few minutes.

Ok that fixed it and the install_base=mumble thing works too.

A couple more things..


I have a strange scattering of high-value characters that get
rendered as question-marks in mozilla:

<�> 65533, Hex fffd, Octal 177775

This is the same with your test server.

They appear in places like this:

<td height="15"><span class="vsmall">�</span></td>

..it looks like they might have started life as &nbsp; characters,
since the templates are full of this sort of thing:

<td height="15"><span class="vsmall">&nbsp;</span></td>

We've had similar issues with htmltidy and Petal turning &nbsp; into
 characters - Maybe it's related?


I still get a bunch of errors with make test, though only
t/106..search-segments (test 28) seems to be a real error.


perl t/015..user-privileges.t 
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
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.


perl t/020..term-status.t     
ok 1 - use Pangloss::Term::Status;
ok 2 - new
ok 3 - status_codes isa HASH
ok 4 - code(set)
ok 5 - code(get)
ok 6 - notes(set)
ok 7 - notes(get)
ok 8 - date(set)
ok 9 - date(get)
ok 10 - pending
ok 11 - is_pending
ok 12 - approved
ok 13 - is_approved
ok 14 - rejected
ok 15 - is_rejected
ok 16 - deprecated
ok 17 - is_deprecated
ok 18 - copy
ok 19 - copy code
ok 20 - copy notes
ok 21 - copy date
ok 22 - clone
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.


perl t/106..search-segments.t 
ok 1 - use Pangloss::Segment::SearchRequest::Update;
ok 2 - load search request
ok 3 -  categories->category 1
ok 4 -  concepts->concept 1
ok 5 -  languages->te
ok 6 -  proofreaders->user A
ok 7 -  translators->user 1
ok 8 -  ! translators->user 2
ok 9 -  statuses->approved
ok 10 -  keyword is blah
not ok 11 -  date_ranges->from-to # TODO date range searches not implemented!
#     Failed (TODO) test (t/106..search-segments.t at line 55)
not ok 12 -  date_ranges->last_week # TODO date range searches not implemented!
#     Failed (TODO) test (t/106..search-segments.t at line 56)
ok 13 - use Pangloss::Segment::SearchRequest::SaveInSession;
ok 14 - save in session
ok 15 - use Pangloss::Segment::SearchRequest::GetFromSession;
ok 16 - get from session
ok 17 - use Pangloss::Segment::Search;
ok 18 - view->search_results_pager isa Pangloss::Search::Results::Pager
ok 19 - use Pangloss::Segment::Decline::NoSearchRequest;
ok 20 - no search request
ok 21 - use Pangloss::Segment::Decline::NoSelectedSearch;
ok 22 - no selected search
ok 23 - use Pangloss::Segment::Pager::SaveInSession;
ok 24 - save in session
ok 25 - use Pangloss::Segment::Pager::GetFromSession;
ok 26 - get from session
ok 27 - use Pangloss::Segment::Pager::SetCurrentPage;
not ok 28 - sets current page
#     Failed test (t/106..search-segments.t at line 123)
#          got: '1'
#     expected: '2'
ok 29 - use Pangloss::Segment::Decline::NoPager;
ok 30 - no pager
1..30
# Looks like you failed 1 tests of 30.


-- 
Bruno