view release on metacpan or search on metacpan
lib/APR/HTTP/Headers/Compat.pm view on Meta::CPAN
I haven't benchmarked but it's certain that this implementation will be
substantially slower than C<HTTP::Headers>.
=head1 DEPENDENCIES
L<APR::Pool>, L<APR::Table>, L<HTTP::Headers>, L<Storable>, L<Test::More>
=head1 SEE ALSO
L<FirePHP::Dispatcher>
view release on metacpan or search on metacpan
lib/Arc/Command/Test.pm view on Meta::CPAN
package Arc::Command::Test;
use strict;
use warnings;
use Carp;
use Arc::Command;
@Arc::Command::Test::ISA = qw(Arc::Command);
sub members
{
my $this = shift;
return { %{$this->SUPER::members},
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"File::Find" : 0,
"File::Temp" : 0,
"Test::More" : 0
}
}
},
"release_status" : "stable",
"resources" : {
view release on metacpan or search on metacpan
---
abstract: 'Parse an environment variable and unshift into @ARGV'
author:
- 'Olivier Mengué <dolmen@cpan.org>'
build_requires:
Test::More: 0
Test::NoWarnings: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300003, CPAN::Meta::Converter version 2.112150'
license: perl
view release on metacpan or search on metacpan
"Module::Build" : "0.38"
}
},
"develop" : {
"requires" : {
"Test::CPAN::Meta" : "0",
"Test::MinimumVersion" : "0.10108",
"Test::Pod" : "1.41",
"Test::Spellunker" : "v0.2.7"
}
},
"runtime" : {
"requires" : {
"JSON" : "0",
"perl" : "5.008005"
}
},
"test" : {
"requires" : {
"Test::More" : "0.98"
}
}
},
"provides" : {
"ARGV::JSON" : {
view release on metacpan or search on metacpan
#!/usr/bin/perl
use warnings;
use strict;
use Test::More tests => 3;
use ARGV::OrDATA;
while (<>) {
is $_, "pipe $.\n", "read line $. from stdin";
view release on metacpan or search on metacpan
"Types::Standard" : "0"
}
},
"test" : {
"requires" : {
"Test::Exception" : "0",
"Test::More" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
view release on metacpan or search on metacpan
[MinimumPerl]
[Prereqs]
LWP = 5
[Test::Compile]
[Test::Kwalitee]
view release on metacpan or search on metacpan
t/ARGV-readonly.t view on Meta::CPAN
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test;
BEGIN { plan tests => 1 };
use ARGV::readonly;
ok(1); # If we made it this far, we're ok.
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
view release on metacpan or search on metacpan
]
},
"prereqs" : {
"build" : {
"requires" : {
"Test::More" : "0"
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
view release on metacpan or search on metacpan
#!perl -w
use strict;
use Test;
BEGIN { plan tests => 2 + 5 + 1}
if (1) {
view release on metacpan or search on metacpan
example/ars_GetListEntry.pl view on Meta::CPAN
|| die "ars_LoadQualifier: $ars_errstr";
# basic format: allow the server to provide sorting order
# and query list fields.
print "Testing: basic format.\n";
( my @entries = ars_GetListEntry( $ctrl, $schema, $qual, 0, 0 ) )
|| die "ars_GetListEntry: $ars_errstr";
for ( my $i = 0 ; $i < $#entries ; $i += 2 ) {
example/ars_GetListEntry.pl view on Meta::CPAN
}
# another format: specify a sorting order.
# sort by license type, ascending.
print "Testing: basic + sorting format.\n";
( my @sorted_entries =
ars_GetListEntry( $ctrl, $schema, $qual, 0, 0, $fids{$login_name}, 1 ) )
|| # sort on Login Name, ascending
die "ars_GetListEntry: $ars_errstr";
example/ars_GetListEntry.pl view on Meta::CPAN
printf( "%s %s\n", $sorted_entries[$i], $sorted_entries[ $i + 1 ] );
}
# another format: specify a custom query list field-list.
print "Testing: basic + sorting + custom field-list format.\n";
if ( !defined( $fids{$login_name} ) || !defined( $fids{$full_name} ) ) {
print
"Sorry. Either i can't find the field-id for \"$login_name\" or \"$full_name\"\n on your \"$schema\" form. I'm skipping this test.\n";
}
view release on metacpan or search on metacpan
applications/archive.pl view on Meta::CPAN
}
my ( $tWeek, $tYear ) = get_week('yesterday');
$weekFilename = get_year('yesterday') ."w$tWeek-$command-$catalogID_uKey-csv-week.txt";
if (-e "$path/$weekFilename") { unlink ($path.'/'.$weekFilename); }
print "Test : <$dtest>\n" if ($debug);
foreach $filename (@files) {
print "Filename : <$filename>\n" if ($debug >= 2);
catAllCsvFilesYesterdayWeek ($firstDayOfWeekEpoch, $yesterdayEpoch, $catalogID_uKey, $command, $path, $weekFilename, $filename);
removeAllNokgzipCsvSqlErrorWeekFilesOlderThenAndMoveToBackupShare ($gzipEpoch, $removeAllNokEpoch, $removeGzipEpoch, $removeDebugEpoch, $removeWeeksEpoch, $catalogID_uKey, $command, $path, $filename);
view release on metacpan or search on metacpan
=head1 SYNOPSIS
use strict;
use ASP qw(:strict);
print "Testing, testing.<BR><BR>";
my $item = param('item');
if($item eq 'Select one...') {
die "Please select a value from the list.";
}
view release on metacpan or search on metacpan
2010-09-21 v0.002
- Woops! Was not returning a coderef. Now we are.
2010-09-21 v0.001
- Initial version.
- Tested with Plack, Corona and Starman.
view release on metacpan or search on metacpan
lib/ASP4/API.pm view on Meta::CPAN
use strict;
use warnings 'all';
use ASP4::ConfigLoader;
use ASP4::HTTPContext;
use ASP4::UserAgent;
use ASP4::Test::Fixtures;
BEGIN { ASP4::ConfigLoader->load }
sub new
{
my ($class) = @_;;
lib/ASP4/API.pm view on Meta::CPAN
properties_file => $config->web->application_root . '/etc/test_fixtures.json'
) unless $@;
}
elsif( -f $config->web->application_root . '/etc/test_fixtures.yaml' )
{
$test_data = ASP4::Test::Fixtures->new(
properties_file => $config->web->application_root . '/etc/test_fixtures.yaml'
);
}# end if()
# Our diagnostic messages:
lib/ASP4/API.pm view on Meta::CPAN
=head1 DESCRIPTION
C<ASP4::API> is B<very useful for unit tests> - specifically when writing tests
for the actual web pages themselves.
=head2 Example Unit Test
#!/usr/bin/perl -w
use strict;
use warnings 'all';
use Test::More 'no_plan';
use ASP4::API;
my $api = ASP4::API->new();
ok(
view release on metacpan or search on metacpan
author:
- John Drago <jdrago_999@yahoo.com>
license: perl
distribution_type: module
test_requires:
Test::More: 0
requires:
Carp: 0
ASP4: 1.046
Imager: 0.71
no_index:
view release on metacpan or search on metacpan
author:
- John Drago <jdrago_999@yahoo.com>
license: perl
distribution_type: module
test_requires:
Test::More: 0
requires:
Carp: 0
ASP4: 1.044
Router::Generic: 0.016
recommends:
view release on metacpan or search on metacpan
author:
- John Drago <jdrago_999@yahoo.com>
license: perl
distribution_type: module
test_requires:
Test::More: 0
requires:
Carp: 0
ASP4: 1.080
Router::Generic: 0.016
recommends:
view release on metacpan or search on metacpan
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
my ($count, $message, $setting, $aubbc, $Current_version, %msg) =
(1, '[br][utf://#x23]', '', '', '', (1 => 'Test good ', 2 => 'Test error ',) );
BEGIN {
$| = 1;
print "Test's 1 to 4\n";
}
use AUBBC;
$aubbc = new AUBBC;
{
view release on metacpan or search on metacpan
lib/AVLTree.pm view on Meta::CPAN
Caller : General
Status : Unstable
=head1 DEPENDENCIES
AVLTree requires Carp and Test::More, Test::Deep and Test::LeakTrace to run the tests during installation.
If you want to run the benchmarks in the scripts directory, you need to install the Benchmark
and List::Util modules.
=head1 EXPORT
view release on metacpan or search on metacpan
"perl" : "5.008001"
}
},
"develop" : {
"requires" : {
"Test::Pod" : "1.41"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
}
},
"test" : {
"requires" : {
"File::Temp" : "0",
"Test::More" : "0.98",
"perl" : "5.008001"
}
}
},
"provides" : {
view release on metacpan or search on metacpan
"version" : "0.77"
}
},
"test" : {
"requires" : {
"Test::More" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
view release on metacpan or search on metacpan
author:
- John Drago <jdrago_999@yahoo.com>
license: perl
distribution_type: module
test_requires:
Test::More: 0
requires:
AWS::S3: 0.023
Carp: 0
LWP::UserAgent: 0
Digest::HMAC_SHA1: 0
view release on metacpan or search on metacpan
"warnings" : "0"
}
},
"test" : {
"requires" : {
"Test::More" : "0"
}
}
},
"release_status" : "stable",
"version" : 0.04,
view release on metacpan or search on metacpan
t/lib/TestHelper/CreateTestFiles.pm view on Meta::CPAN
package TestHelper::CreateTestFiles;
use strict;
use warnings;
use Test::TempDir::Tiny qw( tempdir );
use Path::Tiny qw( path );
use base qw(Exporter);
our @EXPORT_OK = qw( populated_tempdir );
view release on metacpan or search on metacpan
"Dancer2" : "0",
"Minilla" : "0",
"Mojolicious" : "0",
"Parallel::ForkManager" : "0",
"Software::License::MIT" : "0",
"Test::CPAN::Meta" : "0",
"Test::MinimumVersion::Fast" : "0.04",
"Test::PAUSE::Permissions" : "0.07",
"Test::Pod" : "1.41",
"Test::Spellunker" : "v0.2.7",
"Version::Next" : "0"
}
},
"runtime" : {
"recommends" : {
},
"test" : {
"requires" : {
"File::Slurp" : "9999.25",
"Starman" : "0",
"Test::Deep" : "1.128",
"Test::More" : "0.98",
"Test::SharedFork" : "0",
"Test::TCP" : "2.19",
"Test::Warn" : "0"
}
}
},
"provides" : {
"AWS::Lambda" : {
view release on metacpan or search on metacpan
---
abstract: 'Parse and query official AWS network ranges'
author:
- 'Jose Luis Martinez <jlmartinez@capside.com>'
build_requires:
Test::Exception: '0'
Test::More: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.025, CPAN::Meta::Converter version 2.142690'
license: perl
view release on metacpan or search on metacpan
0.004 2011-11-21
- I didn't update 'Changes' or 'META.yml' in v0.003 - fixing...
0.003 2011-11-21
- All basic functionality (that I need right now) appears to be working.
- Tests rewritten.
- Everything appears to be good.
0.002 2011-11-20
- Removed some incorrect POD.
view release on metacpan or search on metacpan
- 'Tristan Havelick <tristan@havelick.com>'
build_requires:
Amazon::SNS::Topic: 0
Data::Dumper: 0
FindBin: 0
Test::Exception: 0
Test::More: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300006, CPAN::Meta::Converter version 2.113640'
license: perl