[Catalyst-commits] r7420 - in trunk/Catalyst-Model-Search: . lib/Catalyst/Model lib/Catalyst/Model/Search lib/Catalyst/Model/Search/Plucene t t/lib/TestApp/C

marcus at dev.catalyst.perl.org marcus at dev.catalyst.perl.org
Mon Jan 28 22:11:40 GMT 2008


Author: marcus
Date: 2008-01-28 22:11:39 +0000 (Mon, 28 Jan 2008)
New Revision: 7420

Modified:
   trunk/Catalyst-Model-Search/Changes
   trunk/Catalyst-Model-Search/MANIFEST
   trunk/Catalyst-Model-Search/META.yml
   trunk/Catalyst-Model-Search/Makefile.PL
   trunk/Catalyst-Model-Search/README
   trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm
   trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm
   trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm
   trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm
   trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm
   trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm
   trunk/Catalyst-Model-Search/t/06lucene_ws.t
   trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm
Log:
Latest CPAN releases

Modified: trunk/Catalyst-Model-Search/Changes
===================================================================
--- trunk/Catalyst-Model-Search/Changes	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/Changes	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,4 +1,12 @@
 Revision history for Perl extension Catalyst::Model::Search
 
-0.01    16. 2007-09-16 19:24:34
+0.03    2007-11-19 20:47:00
+	- Fix test failure
+
+0.02    2007-09-19 23:50:00
+        - Skip lucene-ws tests by default.
+        - Fix README
+        
+        
+0.01    2007-09-16 19:24:34
         - initial release

Modified: trunk/Catalyst-Model-Search/MANIFEST
===================================================================
--- trunk/Catalyst-Model-Search/MANIFEST	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/MANIFEST	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,8 +1,21 @@
-Build.PL
 Changes
+inc/Module/AutoInstall.pm
+inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
 lib/Catalyst/Model/Search.pm
+lib/Catalyst/Model/Search/Item.pm
+lib/Catalyst/Model/Search/LuceneWebService.pm
 lib/Catalyst/Model/Search/Plucene.pm
 lib/Catalyst/Model/Search/Plucene/Simple.pm
+lib/Catalyst/Model/Search/Results.pm
 Makefile.PL
 MANIFEST			This list of files
 META.yml
@@ -12,6 +25,9 @@
 t/03podcoverage.t
 t/04plucene.t
 t/05plucene_snowball.t
+t/06lucene_ws.t
 t/lib/TestApp.pm
+t/lib/TestApp/C/Lucene_WS.pm
 t/lib/TestApp/C/Plucene.pm
+t/lib/TestApp/M/Search/LuceneWebService.pm
 t/lib/TestApp/M/Search/Plucene.pm

Modified: trunk/Catalyst-Model-Search/META.yml
===================================================================
--- trunk/Catalyst-Model-Search/META.yml	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/META.yml	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,9 +1,8 @@
 --- 
 abstract: ~
-author: Andy Grundman, <andy at hybridized.org>
 distribution_type: module
 generated_by: Module::Install version 0.67
-license: perl
+license: unknown
 meta-spec: 
   url: http://module-build.sourceforge.net/META-spec-v1.3.html
   version: 1.3
@@ -15,4 +14,4 @@
 requires: 
   Catalyst: 5.62
   Class::Std: 0
-version: 0.01
+version: 0.03

Modified: trunk/Catalyst-Model-Search/Makefile.PL
===================================================================
--- trunk/Catalyst-Model-Search/Makefile.PL	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/Makefile.PL	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,7 +1,7 @@
 use inc::Module::Install;
 
 name('Catalyst-Model-Search');
-all_from('lib/Catalyst/Model/Search/Plucene.pm');
+all_from('lib/Catalyst/Model/Search.pm');
 
 include('ExtUtils::AutoInstall');
 

Modified: trunk/Catalyst-Model-Search/README
===================================================================
--- trunk/Catalyst-Model-Search/README	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/README	2008-01-28 22:11:39 UTC (rev 7420)
@@ -0,0 +1,3 @@
+Execute this to read the documentation:
+
+perldoc Catalyst::Model::Search::Plucene

Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,6 +1,5 @@
 package Catalyst::Model::Search::Item;
 
-our $VERSION = '0.01';
 
 use strict;
 use warnings;

Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm	2008-01-28 22:11:39 UTC (rev 7420)
@@ -6,8 +6,6 @@
 use base qw/Catalyst::Model::Search/;
 use Net::LuceneWS;
 
-our $VERSION = '0.01';
-
 __PACKAGE__->mk_classdata( '_lucene' );
 
 sub new { 

Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,7 +1,5 @@
 package Catalyst::Model::Search::Plucene::Simple;
 
-our $VERSION = '0.01';
-
 use strict;
 use warnings;
 

Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,6 +1,6 @@
 package Catalyst::Model::Search::Plucene;
 
-our $VERSION = '0.01';
+our $VERSION = '0.03';
 
 use strict;
 use warnings;

Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm	2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,7 +1,5 @@
 package Catalyst::Model::Search::Results;
 
-our $VERSION = '0.01';
-
 use strict;
 use warnings;
 use Class::Std;

Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm	2008-01-28 22:11:39 UTC (rev 7420)
@@ -4,7 +4,7 @@
 use NEXT;
 use base qw/Catalyst::Base/;
 
-our $VERSION = '0.01';
+our $VERSION='0.03';
 
 sub new { 
     my ( $self, $c ) = @_;

Modified: trunk/Catalyst-Model-Search/t/06lucene_ws.t
===================================================================
--- trunk/Catalyst-Model-Search/t/06lucene_ws.t	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/t/06lucene_ws.t	2008-01-28 22:11:39 UTC (rev 7420)
@@ -9,10 +9,11 @@
 use File::Path;
 
 BEGIN {
+    
     eval "use Net::LuceneWS";
     plan $@
-        ? ( skip_all => 'needs Net::LuceneWS for testing' )
-        : ( tests => 24 )
+        ? (  skip_all => 'needs Net::LuceneWS for testing' )
+        : ( $ENV{LOCAL_LUCENE_SERVER } ? ( tests => 24 ) : (skip_all => "Requires a local lucene server. set LOCAL_LUCENE_SERVER to force." ))
 }
 
 use Catalyst::Test 'TestApp';

Modified: trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm
===================================================================
--- trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm	2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm	2008-01-28 22:11:39 UTC (rev 7420)
@@ -47,6 +47,7 @@
     my ( $self, $c ) = @_;
     
     my $results = $lucene->query( $c->req->params->{q} );
+    return unless $results;
     my @items = $results->get_items;
     my $output;
     foreach my $item ( @items ) {




More information about the Catalyst-commits mailing list