Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
6055b5b
commit b29a05e
Showing
10 changed files
with
164 additions
and
10 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,5 @@ | |||
Revision history for App-Foca | |||
|
|||
0.01 01-Aug-2012 | |||
First version (tho very well tested) | |||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,17 @@ | |||
t/pod.t | |||
t/manifest.t | |||
t/pod-coverage.t | |||
t/boilerplate.t | |||
t/00-load.t | |||
Makefile.PL | |||
README | |||
examples/foca-server | |||
examples/foca-client | |||
examples/example_commands.yaml | |||
LICENSE | |||
MANIFEST | |||
lib/App/Foca/Server.pm | |||
lib/App/Foca/Tools/Logger.pm | |||
lib/App/Foca/Server/HTTP.pm | |||
lib/App/Foca/Client.pm | |||
Changes |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,26 @@ | |||
use strict; | |||
use warnings; | |||
use ExtUtils::MakeMaker; | |||
|
|||
WriteMakefile( | |||
NAME => 'App::Foca', | |||
AUTHOR => q{Pablo Fischer <pablo@yahoo-inc.com>}, | |||
VERSION_FROM => 'lib/App/Foca.pm', | |||
ABSTRACT_FROM => 'lib/App/Foca.pm', | |||
SKIP => ['examples/example_commands.yaml', | |||
'examples/foca-client', 'examples/foca-server'], | |||
PREREQ_PM => { | |||
'Cache::FastMmap' => 0, | |||
'Data::Dumper' => 0, | |||
'HTTP::Status' => 0, | |||
'HTTP::Response' => 0, | |||
'IPC::Cmd' => 0, | |||
'Linux::Proc::Net::TCP' => 0, | |||
'Moose' => 0, | |||
'Parallel::ForkManager' => 0, | |||
'Time::HiRes' => 0, | |||
'WWW::Curl::Easy' => 0, | |||
'YAML::Syck' => 0, | |||
'Test::More' => 0, | |||
}, | |||
); |
This file was deleted.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,10 @@ | |||
#!perl -T | |||
|
|||
use Test::More tests => 1; | |||
|
|||
BEGIN { | |||
use_ok( 'App::Foca' ) || print "Bail out! | |||
"; | |||
} | |||
|
|||
diag( "Testing App::Foca $App::Foca::VERSION, Perl $], $^X" ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,55 @@ | |||
#!perl -T | |||
|
|||
use strict; | |||
use warnings; | |||
use Test::More tests => 3; | |||
|
|||
sub not_in_file_ok { | |||
my ($filename, %regex) = @_; | |||
open( my $fh, '<', $filename ) | |||
or die "couldn't open $filename for reading: $!"; | |||
|
|||
my %violated; | |||
|
|||
while (my $line = <$fh>) { | |||
while (my ($desc, $regex) = each %regex) { | |||
if ($line =~ $regex) { | |||
push @{$violated{$desc}||=[]}, $.; | |||
} | |||
} | |||
} | |||
|
|||
if (%violated) { | |||
fail("$filename contains boilerplate text"); | |||
diag "$_ appears on lines @{$violated{$_}}" for keys %violated; | |||
} else { | |||
pass("$filename contains no boilerplate text"); | |||
} | |||
} | |||
|
|||
sub module_boilerplate_ok { | |||
my ($module) = @_; | |||
not_in_file_ok($module => | |||
'the great new $MODULENAME' => qr/ - The great new /, | |||
'boilerplate description' => qr/Quick summary of what the module/, | |||
'stub function definition' => qr/function[12]/, | |||
); | |||
} | |||
|
|||
TODO: { | |||
local $TODO = "Need to replace the boilerplate text"; | |||
|
|||
not_in_file_ok(README => | |||
"The README is used..." => qr/The README is used/, | |||
"'version information here'" => qr/to provide version information/, | |||
); | |||
|
|||
not_in_file_ok(Changes => | |||
"placeholder date/time" => qr(Date/time) | |||
); | |||
|
|||
module_boilerplate_ok('lib/App/Foca.pm'); | |||
|
|||
|
|||
} | |||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,13 @@ | |||
#!perl -T | |||
|
|||
use strict; | |||
use warnings; | |||
use Test::More; | |||
|
|||
unless ( $ENV{RELEASE_TESTING} ) { | |||
plan( skip_all => "Author tests not required for installation" ); | |||
} | |||
|
|||
eval "use Test::CheckManifest 0.9"; | |||
plan skip_all => "Test::CheckManifest 0.9 required" if $@; | |||
ok_manifest(); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,18 @@ | |||
use strict; | |||
use warnings; | |||
use Test::More; | |||
|
|||
# Ensure a recent version of Test::Pod::Coverage | |||
my $min_tpc = 1.08; | |||
eval "use Test::Pod::Coverage $min_tpc"; | |||
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" | |||
if $@; | |||
|
|||
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version, | |||
# but older versions don't recognize some common documentation styles | |||
my $min_pc = 0.18; | |||
eval "use Pod::Coverage $min_pc"; | |||
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" | |||
if $@; | |||
|
|||
all_pod_coverage_ok(); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Original file line | Diff line number | Diff line change |
---|---|---|---|
@@ -0,0 +1,12 @@ | |||
#!perl -T | |||
|
|||
use strict; | |||
use warnings; | |||
use Test::More; | |||
|
|||
# Ensure a recent version of Test::Pod | |||
my $min_tp = 1.22; | |||
eval "use Test::Pod $min_tp"; | |||
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@; | |||
|
|||
all_pod_files_ok(); |