[Pangloss] status update 08-09-2003

[Bruno Postle]

On Mon 08-Sep-2003 at 02:22:17PM +0100, Steve Purkis wrote:
> 
> The distribution is available at:
> 
> 	http://staging.quiup.com/perl/Pangloss-2003-09-08.tar.gz

Ok, some minor install things with the Pangloss-current downloaded
today:

Warning: the following files are missing in your kit:
        bin/test.pl

I can run `make` after fixing Build.PL and replacing the test.pl
reference with pg_test_server.


Though `make test` fails with:

perl t/106..search-segments.t 
Using BerkeleyDB Pixie store
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 -  document is blah
#     Failed test (t/106..search-segments.t at line 53)
#          got: undef
#     expected: 'blah'
not ok 12 -  date_ranges->from-to # TODO date range searches not implemented!
#     Failed (TODO) test (t/106..search-segments.t at line 56)
not ok 13 -  date_ranges->last_week # TODO date range searches not implemented!
#     Failed (TODO) test (t/106..search-segments.t at line 57)
ok 14 - use Pangloss::Segment::SearchRequest::SaveInSession;
ok 15 - save in session
ok 16 - use Pangloss::Segment::SearchRequest::GetFromSession;
ok 17 - get from session
ok 18 - use Pangloss::Segment::Search;
ok 19 - view->search_results_pager isa Pangloss::Search::Results::Pager
ok 20 - use Pangloss::Segment::Decline::NoSearchRequest;
ok 21 - no search request
ok 22 - use Pangloss::Segment::Decline::NoSelectedSearch;
ok 23 - no selected search
ok 24 - use Pangloss::Segment::Pager::SaveInSession;
ok 25 - save in session
ok 26 - use Pangloss::Segment::Pager::GetFromSession;
ok 27 - get from session
ok 28 - use Pangloss::Segment::Pager::SetCurrentPage;
ok 29 - sets current page
ok 30 - use Pangloss::Segment::Decline::NoPager;
ok 31 - no pager
1..31


If I try and run pg_test_server, I get a mysql error:

$ perl bin/pg_test_server 
could not connect to pixie store dbi:mysql:dbname=pangloss: DBI connect('dbname=pangloss','',...) failed: Access denied for user: '@localhost' to database 'pangloss' at /usr/lib/perl5/site_perl/5.8.0/DBIx/AnyDBD.pm line 35

I guess I need to setup pangloss with MySQL from now on?


Also Pangloss::Shell uses Term::ReadKey, but this isn't listed in
Build.PL.

-- 
Bruno