r51581 - in /branches/upstream/libcgi-application-server-perl/current: ./ lib/CGI/Application/ t/ t/htdocs/images/ t/htdocs/static/
franck at users.alioth.debian.org
franck at users.alioth.debian.org
Mon Jan 25 19:40:42 UTC 2010
Author: franck
Date: Mon Jan 25 19:40:32 2010
New Revision: 51581
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51581
Log:
[svn-upgrade] Integrating new upstream version, libcgi-application-server-perl (0.062)
Added:
branches/upstream/libcgi-application-server-perl/current/t/006_docroot_as_entry_point.t
branches/upstream/libcgi-application-server-perl/current/t/007_default_target.t
branches/upstream/libcgi-application-server-perl/current/t/htdocs/images/
branches/upstream/libcgi-application-server-perl/current/t/htdocs/images/index.html
branches/upstream/libcgi-application-server-perl/current/t/htdocs/static/
branches/upstream/libcgi-application-server-perl/current/t/htdocs/static/index.html
Removed:
branches/upstream/libcgi-application-server-perl/current/Makefile.PL
Modified:
branches/upstream/libcgi-application-server-perl/current/Build.PL
branches/upstream/libcgi-application-server-perl/current/ChangeLog
branches/upstream/libcgi-application-server-perl/current/MANIFEST
branches/upstream/libcgi-application-server-perl/current/META.yml
branches/upstream/libcgi-application-server-perl/current/README
branches/upstream/libcgi-application-server-perl/current/lib/CGI/Application/Server.pm
branches/upstream/libcgi-application-server-perl/current/t/001_basic.t
branches/upstream/libcgi-application-server-perl/current/t/003_dispatch.t
branches/upstream/libcgi-application-server-perl/current/t/004_object_as_entry_point.t
branches/upstream/libcgi-application-server-perl/current/t/005_mode_param_from_path_info.t
branches/upstream/libcgi-application-server-perl/current/t/006_replacequeryobject.t
Modified: branches/upstream/libcgi-application-server-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/Build.PL?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/Build.PL (original)
+++ branches/upstream/libcgi-application-server-perl/current/Build.PL Mon Jan 25 19:40:32 2010
@@ -23,10 +23,9 @@
'Test::WWW::Mechanize' => '1.08',
'CGI::Application::Plugin::Redirect' => '0',
},
- create_makefile_pl => 'traditional',
recursive_test_files => 1,
add_to_cleanup => [
- 'META.yml', '*.bak', '*.gz', 'Makefile.PL',
+ 'META.yml', '*.bak', '*.gz',
],
);
Modified: branches/upstream/libcgi-application-server-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/ChangeLog?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/ChangeLog (original)
+++ branches/upstream/libcgi-application-server-perl/current/ChangeLog Mon Jan 25 19:40:32 2010
@@ -1,4 +1,8 @@
Changes for CGI::Application::Server
+
+0.062 2010-01-20
+ work on alternate ports (thanks, Potatohead @ github)
+ misc. cleanup (Potatohead, rjbs)
0.061 2009-02-08
reinitialize $query between runs when entry point is an object
Modified: branches/upstream/libcgi-application-server-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/MANIFEST?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/MANIFEST (original)
+++ branches/upstream/libcgi-application-server-perl/current/MANIFEST Mon Jan 25 19:40:32 2010
@@ -1,9 +1,7 @@
Build.PL
ChangeLog
lib/CGI/Application/Server.pm
-Makefile.PL
MANIFEST
-META.yml
README
t/000_load.t
t/001_basic.t
@@ -11,8 +9,12 @@
t/003_dispatch.t
t/004_object_as_entry_point.t
t/005_mode_param_from_path_info.t
+t/006_docroot_as_entry_point.t
t/006_replacequeryobject.t
+t/007_default_target.t
+t/htdocs/images/index.html
t/htdocs/index.html
+t/htdocs/static/index.html
t/htdocs/test.css
t/htdocs/test.js
t/lib/AppWithParams.pm
@@ -21,3 +23,4 @@
t/lib/ReplaceQueryObject.pm
t/pod.t
t/pod_coverage.t
+META.yml
Modified: branches/upstream/libcgi-application-server-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/META.yml?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/META.yml (original)
+++ branches/upstream/libcgi-application-server-perl/current/META.yml Mon Jan 25 19:40:32 2010
@@ -1,14 +1,27 @@
---
-name: CGI-Application-Server
-version: 0.061
+abstract: 'A simple HTTP server for developing with CGI::Application'
author:
- 'Stevan Little E<lt>stevan at iinteractive.comE<gt>'
- 'Rob Kinyon E<lt>rob.kinyon at iinteractive.comE<gt>'
- 'Ricardo SIGNES E<lt>rjbs at cpan.orgE<gt>'
-abstract: A simple HTTP server for developing with CGI::Application
+build_requires:
+ CGI::Application::Plugin::Redirect: 0
+ Test::Exception: 0.21
+ Test::HTTP::Server::Simple: 0.02
+ Test::More: 0.47
+ Test::WWW::Mechanize: 1.08
+configure_requires:
+ Module::Build: 0.36
+generated_by: 'Module::Build version 0.3601'
license: perl
-resources:
- license: http://dev.perl.org/licenses/
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: CGI-Application-Server
+provides:
+ CGI::Application::Server:
+ file: lib/CGI/Application/Server.pm
+ version: 0.062
requires:
CGI::Application: 4.21
Carp: 0.01
@@ -17,17 +30,6 @@
HTTP::Server::Simple::Static: 0.02
HTTP::Status: 0
Scalar::Util: 1.18
-build_requires:
- CGI::Application::Plugin::Redirect: 0
- Test::Exception: 0.21
- Test::HTTP::Server::Simple: 0.02
- Test::More: 0.47
- Test::WWW::Mechanize: 1.08
-provides:
- CGI::Application::Server:
- file: lib/CGI/Application/Server.pm
- version: 0.061
-generated_by: Module::Build version 0.3
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+resources:
+ license: http://dev.perl.org/licenses/
+version: 0.062
Modified: branches/upstream/libcgi-application-server-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/README?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/README (original)
+++ branches/upstream/libcgi-application-server-perl/current/README Mon Jan 25 19:40:32 2010
@@ -1,4 +1,4 @@
-CGI::Application::Server version 0.061
+CGI::Application::Server version 0.062
======================================
See the individual module documentation for more information
Modified: branches/upstream/libcgi-application-server-perl/current/lib/CGI/Application/Server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/lib/CGI/Application/Server.pm?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/lib/CGI/Application/Server.pm (original)
+++ branches/upstream/libcgi-application-server-perl/current/lib/CGI/Application/Server.pm Mon Jan 25 19:40:32 2010
@@ -10,7 +10,7 @@
use HTTP::Response;
use HTTP::Status;
-our $VERSION = '0.061';
+our $VERSION = '0.062';
use base qw( HTTP::Server::Simple::CGI );
use HTTP::Server::Simple::Static;
Modified: branches/upstream/libcgi-application-server-perl/current/t/001_basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/001_basic.t?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/001_basic.t (original)
+++ branches/upstream/libcgi-application-server-perl/current/t/001_basic.t Mon Jan 25 19:40:32 2010
@@ -24,7 +24,9 @@
/;
}
-my $server = TestServer->new();
+my $port = $ENV{CGI_APP_SERVER_TEST_PORT} || 40000 + int(rand(10000));
+
+my $server = TestServer->new($port);
isa_ok($server, 'CGI::Application::Server');
isa_ok($server, 'HTTP::Server::Simple');
Modified: branches/upstream/libcgi-application-server-perl/current/t/003_dispatch.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/003_dispatch.t?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/003_dispatch.t (original)
+++ branches/upstream/libcgi-application-server-perl/current/t/003_dispatch.t Mon Jan 25 19:40:32 2010
@@ -29,7 +29,9 @@
/;
}
-my $server = TestServer->new();
+my $port = $ENV{CGI_APP_SERVER_TEST_PORT} || 40000 + int(rand(10000));
+
+my $server = TestServer->new($port);
isa_ok($server, 'CGI::Application::Server');
isa_ok($server, 'HTTP::Server::Simple');
Modified: branches/upstream/libcgi-application-server-perl/current/t/004_object_as_entry_point.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/004_object_as_entry_point.t?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/004_object_as_entry_point.t (original)
+++ branches/upstream/libcgi-application-server-perl/current/t/004_object_as_entry_point.t Mon Jan 25 19:40:32 2010
@@ -23,8 +23,10 @@
CGI::Application::Server
/;
}
-
-my $server = TestServer->new();
+
+my $port = $ENV{CGI_APP_SERVER_TEST_PORT} || 40000 + int(rand(10000));
+
+my $server = TestServer->new($port);
$server->entry_points({
'/foo/index.cgi' => $app1,
'/bar/index.cgi' => $app2,
Modified: branches/upstream/libcgi-application-server-perl/current/t/005_mode_param_from_path_info.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/005_mode_param_from_path_info.t?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/005_mode_param_from_path_info.t (original)
+++ branches/upstream/libcgi-application-server-perl/current/t/005_mode_param_from_path_info.t Mon Jan 25 19:40:32 2010
@@ -40,8 +40,10 @@
CGI::Application::Server
/;
}
-
-my $server = TestServer->new();
+
+my $port = $ENV{CGI_APP_SERVER_TEST_PORT} || 40000 + int(rand(10000));
+
+my $server = TestServer->new($port);
$server->entry_points({
'/index.cgi' => 'TestApp',
});
Added: branches/upstream/libcgi-application-server-perl/current/t/006_docroot_as_entry_point.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/006_docroot_as_entry_point.t?rev=51581&op=file
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/006_docroot_as_entry_point.t (added)
+++ branches/upstream/libcgi-application-server-perl/current/t/006_docroot_as_entry_point.t Mon Jan 25 19:40:32 2010
@@ -1,0 +1,33 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 5;
+use Test::WWW::Mechanize;
+use CGI::Application::Server;
+
+{
+ package TestServer;
+ use base qw/
+ Test::HTTP::Server::Simple
+ CGI::Application::Server
+ /;
+}
+
+my $port = $ENV{CGI_APP_SERVER_TEST_PORT} || 40000 + int(rand(10000));
+
+my $server = TestServer->new($port);
+$server->entry_points({
+ '/static' => 't/htdocs',
+ '/images' => 't/htdocs',
+});
+my $url_root = $server->started_ok("start up my web server");
+
+my $mech = Test::WWW::Mechanize->new();
+
+$mech->get_ok($url_root . '/static/index.html', '...got /static/index.html');
+$mech->title_is('White Noise!', '... got the right page title w/ static page');
+
+$mech->get_ok($url_root . '/images/index.html', '...got /images/index.html');
+$mech->title_is('1000 Words!', '... got the right page title w/ images page');
+
Modified: branches/upstream/libcgi-application-server-perl/current/t/006_replacequeryobject.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/006_replacequeryobject.t?rev=51581&op=diff
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/006_replacequeryobject.t (original)
+++ branches/upstream/libcgi-application-server-perl/current/t/006_replacequeryobject.t Mon Jan 25 19:40:32 2010
@@ -18,7 +18,9 @@
/;
}
-my $server = TestServer->new();
+my $port = $ENV{CGI_APP_SERVER_TEST_PORT} || 40000 + int(rand(10000));
+
+my $server = TestServer->new($port);
$server->entry_points({
'/one.cgi' => $app,
Added: branches/upstream/libcgi-application-server-perl/current/t/007_default_target.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/007_default_target.t?rev=51581&op=file
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/007_default_target.t (added)
+++ branches/upstream/libcgi-application-server-perl/current/t/007_default_target.t Mon Jan 25 19:40:32 2010
@@ -1,0 +1,52 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 14;
+use Test::Exception;
+
+package main;
+
+BEGIN {
+ use_ok('CGI::Application::Server');
+}
+
+=pod
+
+This could probably use some more tests, but it
+is good enough for now.
+
+=cut
+
+my $server = CGI::Application::Server->new();
+isa_ok($server, 'CGI::Application::Server');
+isa_ok($server, 'HTTP::Server::Simple');
+
+$server->entry_points({
+ '/' => 'TopLevel',
+ '/foo' => 'Foo',
+});
+
+foreach my $uri (qw(
+ /foo
+ /foo?say=hello
+ /foo/bling/bar
+ /foo/?bar=baz
+ /foo/barr
+ )) {
+ is($server->is_valid_entry_point($uri), 'Foo', '... got Foo where we expected');
+}
+
+foreach my $uri (qw(
+ /
+ /fooo
+ /fooo/
+ /food?say=hello
+ /fooo/bar
+ /fooo/barr/baz
+ )) {
+ is($server->is_valid_entry_point($uri), 'TopLevel', '... got TopLevel where we expected');
+}
+
+
Added: branches/upstream/libcgi-application-server-perl/current/t/htdocs/images/index.html
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/htdocs/images/index.html?rev=51581&op=file
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/htdocs/images/index.html (added)
+++ branches/upstream/libcgi-application-server-perl/current/t/htdocs/images/index.html Mon Jan 25 19:40:32 2010
@@ -1,0 +1,9 @@
+<HTML>
+<HEAD>
+ <TITLE>1000 Words!</TITLE>
+</HEAD>
+<BODY>
+<H1>Bar</H1>
+Bar
+</BODY>
+</HTML>
Added: branches/upstream/libcgi-application-server-perl/current/t/htdocs/static/index.html
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-application-server-perl/current/t/htdocs/static/index.html?rev=51581&op=file
==============================================================================
--- branches/upstream/libcgi-application-server-perl/current/t/htdocs/static/index.html (added)
+++ branches/upstream/libcgi-application-server-perl/current/t/htdocs/static/index.html Mon Jan 25 19:40:32 2010
@@ -1,0 +1,9 @@
+<HTML>
+<HEAD>
+ <TITLE>White Noise!</TITLE>
+</HEAD>
+<BODY>
+<H1>Foo</H1>
+Foo
+</BODY>
+</HTML>
More information about the Pkg-perl-cvs-commits
mailing list