view release on metacpan or search on metacpan
lib/API/Eulerian/EDW/File.pm view on Meta::CPAN
# Save content
$status->{ data } = $data;
return $status;
}
#
# @brief Test if given path is writable.
#
# @param $class - API::Eulerian::EDW::File class.
# @param $path - Filesystem path.
#
# @return 0 - Path isnt writable.
lib/API/Eulerian/EDW/File.pm view on Meta::CPAN
=back
=head2 writable()
I<Test if a given path is writable.>
=head3 input
=over 4
view release on metacpan or search on metacpan
use Test::More;
use_ok 'API::Facebook';
ok 1 and done_testing;
view release on metacpan or search on metacpan
}
},
"develop" : {
"requires" : {
"Pod::Coverage::TrustPod" : "0",
"Test::Pod" : "1.41",
"Test::Pod::Coverage" : "1.08"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
view release on metacpan or search on metacpan
use Test::More;
use_ok 'API::Github';
ok 1 and done_testing;
view release on metacpan or search on metacpan
"warnings" : "0"
}
},
"test" : {
"requires" : {
"Test::More" : "0",
"perl" : "5.006"
}
}
},
"release_status" : "stable",
view release on metacpan or search on metacpan
"ExtUtils::MakeMaker" : "6.30"
}
},
"develop" : {
"requires" : {
"Test::Pod" : "1.41"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
view release on metacpan or search on metacpan
$(NOECHO) $(NOOP)
subdirs-test_dynamic :: dynamic pure_all
test_dynamic :: subdirs-test_dynamic
PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES)
testdb_dynamic :: dynamic pure_all
PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
subdirs-test_static :: static pure_all
test_static :: subdirs-test_static
PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES)
testdb_static :: static pure_all
PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
view release on metacpan or search on metacpan
t/01-test.t view on Meta::CPAN
BEGIN {
$ONLINE = $ENV{password};
}
use Test::More tests => $ONLINE ? 42 : 40;
my $test_host = $ENV{host} || 'ultrasam.ru';
ok(1, 'Test OK');
use_ok('API::ISPManager');
$a = 'refs';
is( refs( undef ), '', $a);
view release on metacpan or search on metacpan
Change: ec7504d1d44f315b5db6c0d07a19fffe3dcbf9d5
Author: Gabriel Vieira <gabriel.vieira@gmail.com>
Date : 2014-08-27 00:20:02 +0000
Tests reorganized
Change: 18d4c00985ef334e019f94be9d2d7a1bfd00764e
Author: Gabriel Vieira <gabriel.vieira@gmail.com>
Date : 2014-08-26 23:16:30 +0000
view release on metacpan or search on metacpan
API/Intis/Makefile.PL view on Meta::CPAN
NAME => 'API::Intis',
VERSION_FROM => 'lib/API/Intis.pm', # finds \$VERSION
AUTHOR => 'Nick Nomos (nnmos@cpan.org)',
ABSTRACT => 'Intis Telecom API',
PREREQ_PM => {
'Test::Simple' => '0',
'Modern::Perl' => '0',
'YAML::Tiny' => '0',
'WWW::Mechanize' => '0',
'Crypt::SSLeay' => '0',
'JSON' => '0',
view release on metacpan or search on metacpan
lib/API/MailboxOrg/API/Test.pm view on Meta::CPAN
package API::MailboxOrg::API::Test;
# ABSTRACT: MailboxOrg::API::Test
# ---
# This class is auto-generated by bin/get_mailbox_api.pl
# ---
lib/API/MailboxOrg/API/Test.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
API::MailboxOrg::API::Test - MailboxOrg::API::Test
=head1 VERSION
version 1.0.2
view release on metacpan or search on metacpan
"Module::Build::Tiny" : "0.035"
}
},
"develop" : {
"requires" : {
"Test::CPAN::Meta" : "0",
"Test::MinimumVersion::Fast" : "0.04",
"Test::PAUSE::Permissions" : "0.04",
"Test::Pod" : "1.41",
"Test::Spellunker" : "v0.2.7"
}
},
"runtime" : {
"requires" : {
"Algorithm::LeakyBucket" : "0",
view release on metacpan or search on metacpan
"test_requires" => {
"File::Spec" => 0,
"File::Temp" => 0,
"IO::Handle" => 0,
"IPC::Open3" => 0,
"Test::More" => 0,
"perl" => "5.006"
}
);
"File::Spec" => 0,
"File::Temp" => 0,
"IO::Handle" => 0,
"IPC::Open3" => 0,
"Module::Build" => "0.28",
"Test::More" => 0,
"perl" => "5.006"
);
unless ( eval { Module::Build->VERSION(0.4004) } ) {
view release on metacpan or search on metacpan
t/mikrotik-online.t view on Meta::CPAN
use warnings;
use strict;
use lib './';
use Test::More;
plan skip_all =>
'On-line tests. Set API_MIKROTIK_ONLINE to "host:user:pass:tls" to run.'
unless $ENV{API_MIKROTIK_ONLINE};
view release on metacpan or search on metacpan
use Test::More;
use_ok 'API::Name';
ok 1 and done_testing;
view release on metacpan or search on metacpan
"perl" : "5.010"
}
},
"test" : {
"requires" : {
"Test::More" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
view release on metacpan or search on metacpan
}
},
"develop" : {
"requires" : {
"Pod::Coverage::TrustPod" : "0",
"Test::CPAN::Meta" : "0",
"Test::Kwalitee" : "1.12",
"Test::More" : "0",
"Test::NoTabs" : "0",
"Test::Pod" : "1.41",
"Test::Pod::Coverage" : "1.08"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
"File::Spec" : "0",
"File::Temp" : "0",
"HTTP::Response" : "6.04",
"IO::Handle" : "0",
"IPC::Open3" : "0",
"Test::Fatal" : "0.010",
"Test::More" : "0.98",
"Test::Pod" : "1.22",
"Test::Warnings" : "0.010"
}
}
},
"provides" : {
"API::ParallelsWPB" : {
view release on metacpan or search on metacpan
t/TestData.pm view on Meta::CPAN
package TestData;
use Test::More;
use API::Plesk;
#
# Support sub`s and data for tests
#
view release on metacpan or search on metacpan
t/TestData.pm view on Meta::CPAN
package TestData;
use strict;
use warnings;
my $online_expand_url = 'https://your.true.host.ru:8442/webgate.php';
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
PREREQ_PM => {
'REST::Client' => 0,
'JSON' => 0,
'Net::SSL' => 0,
'Test::More' => 0,
'Test::Simple' => '0'
},
( $ExtUtils::MakeMaker::VERSION < 6.46
? ()
: ( META_MERGE => {
view release on metacpan or search on metacpan
ReviewBoard.pm view on Meta::CPAN
username => 'user',
password => 'password' );
print "*****************************************************\n";
print " UnitTest to exercise ReviewBoard Class API's \n";
print " Author: chetang\@cpan.org \n";
print "*****************************************************\n\n";
my $submitter = $rb->getSubmitter(changenum => '13638134');
print "Review Submitted by:\n", @$submitter, "\n\n";
view release on metacpan or search on metacpan
use Test::More;
use_ok 'API::Stripe';
ok 1 and done_testing;
view release on metacpan or search on metacpan
use Test::More;
use_ok 'API::Trello';
ok 1 and done_testing;
view release on metacpan or search on metacpan
use Test::More;
use_ok 'API::Twitter';
ok 1 and done_testing;
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"LWP::UserAgent" : "6.72",
"Test::LWP::UserAgent" : "0.036",
"Test::Simple" : "1.302195",
"URI" : "5.21",
"perl" : "v5.8.1"
}
}
},
view release on metacpan or search on metacpan
use Test::More;
use_ok 'API::Wunderlist';
ok 1 and done_testing;
view release on metacpan or search on metacpan
my $code = qq[
package $package;
use strict;
use warnings;
use parent qw(Test::Class);
use Test::More;
use Test::Fatal qw(lives_ok dies_ok exception);
use Test::Deep;
use Test::Deep::JSON;
END { $package->runtests }
];
eval $code;
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" : {
"AnyEvent::APNS" : "0",
"test" : {
"requires" : {
"AnyEvent" : "0",
"AnyEvent::Socket" : "0",
"HTTP::Request::Common" : "0",
"Plack::Test" : "0",
"Test::More" : "0.98",
"Test::TCP" : "0"
}
}
},
"provides" : {
"APNS::Agent" : {
view release on metacpan or search on metacpan
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
package APP::REST::RestTestSuite;
use 5.006;
use strict;
use warnings FATAL => 'all';
use Data::Dumper;
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
$| = 1; #make the pipe hot
$Data::Dumper::Indent = 1;
=head1 NAME
APP::REST::RestTestSuite - Suite for testing restful web services
=head1 VERSION
Version 0.03
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
our $VERSION = '0.03';
=head1 SYNOPSIS
use APP::REST::RestTestSuite;
my $suite = APP::REST::RestTestSuite->new();
$suite->execute_test_cases( $suite->get_test_cases() );
my ( $cases_in_config, $executed, $skipped, $passed, $failed ) =
$suite->get_result_summary();
#OR
use APP::REST::RestTestSuite;
# overrides the default config and log file paths
my $suite = APP::REST::RestTestSuite->new(
REST_CONFIG_FILE => <config file>,
LOG_FILE_PATH => <path>,
);
$suite->execute_test_cases( $suite->get_test_cases() );
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
$suite->get_result_summary();
=head1 DESCRIPTION
APP::REST::RestTestSuite object is instantiated with the data in config file.
Default config file format is defined in __DATA__ and that can be overridden
by passing the config file as an argument to the class.
Default LOG file path is the current working directory of the script which
calls this module
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
unless (@_) {
$err = "There is no test cases defined to execute.\n";
} elsif ( ( (@_) % 2 ) == 1 ) {
$err =
"Test cases are not properly configured in '"
. $self->get_config_file()
. "'\nDefine test cases properly.\nPlease see the README file for more info.\n";
}
return $err if ($err);
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
my $tc = $test_cases{$count};
my @keys = sort keys %{$tc};
no warnings;
$err .= "Test case '$tc->{test_case}' not properly defined\n"
unless ( _compare_arrays( \@spec, \@keys ) );
}
$err .= "Please see the README file to see the correct format.\n" if ($err);
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
print $err_fh
qq|<HTML> <HEAD> <TITLE>ERROR LOG for $self->{endpoint}</TITLE> </HEAD>|
. qq|<BODY><textarea rows="999999" cols="120" style="border:none;">|;
}
print STDERR "\nTest Suite executed on $self->{endpoint}\n";
print $fh "\nTest Suite executed on $self->{endpoint}\n";
print $err_fh "\nTest Suite executed on $self->{endpoint}\n";
foreach my $count ( sort { $a <=> $b } keys(%test_cases) ) {
my $tc = $test_cases{$count};
$config++;
print $fh "\n", LINE, "\n";
if ( $tc->{execute} && ( $tc->{execute} =~ /no/i ) ) {
print $fh "\nSkipping Test case $count => $tc->{test_case} \n";
$skip++;
next;
}
$uri = qq|$self->{rest_uri_base}| . qq|$tc->{uri}|;
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
if ( $username && $password );
$request->content_type($req_content_type);
$request->content_length( length($req_body) );
}
print STDERR "Executing Test case $count => $tc->{test_case}";
print $fh "Executing Test case $count => $tc->{test_case}";
my $start_time = time;
$response = $ua->request($request);
$total++;
my $exec_time = $self->delta_time( start_time => $start_time );
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
m/$respose_content_type/ )
{
$failed = 1;
print $err_fh "\n", LINE, "\n";
print $err_fh
"Executing Test case $count => $tc->{test_case}";
print $err_fh
"\n*********ATTENTION CONTENT TYPE ERROR ******";
print $err_fh
"\n\nExpected content_type is $expected_response_content_type\n";
print $err_fh
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
}
($failed) ? $fail++ : $pass++;
} else {
$fail++;
print $err_fh "\n", LINE, "\n";
print $err_fh "Executing Test case $count => $tc->{test_case}";
$self->_print_logs(
fh => $err_fh,
uri => $uri,
method => $method,
req_body => $req_body,
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
print $fh
qq|<HTML> <HEAD> <TITLE>LOG for $self->{endpoint}</TITLE> </HEAD>|
. qq|<BODY><textarea rows="999999" cols="120" style="border:none;">|;
}
print STDERR "\nTest Suite executed on $self->{endpoint}\n";
print $fh "\nTest Suite executed on $self->{endpoint}\n";
my @reqs;
foreach my $count ( sort { $a <=> $b } keys(%test_cases) ) {
my $tc = $test_cases{$count};
$config++;
if ( $tc->{execute} =~ /no/i ) {
print $fh "\nSkipping Test case $count => $tc->{test_case} \n";
$skip++;
next;
}
$uri = qq|$self->{rest_uri_base}| . qq|$tc->{uri}|;
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
my $file = $self->{file};
if ( $file->{config_file} ) {
$file->{config_file_handle} =
$self->_open_fh( FILE => $file->{config_file}, MODE => 'READ' );
} else {
$file->{config_file_handle} = \*APP::REST::RestTestSuite::DATA;
}
$self->{file} = $file;
}
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
? $self->{http_status_code}->{ $res->code }
: $define;
print $fh " ]\n";
print $fh "\n\nResponse Content =>\n";
print $fh $res->content;
print $fh "\n\nTest execution time => ";
print $fh $args{exec_time};
print $fh " milli seconds";
print $fh "\n", LINE, "\n";
}
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
perldoc APP::REST::RestTestSuite
=head1 ACKNOWLEDGEMENTS
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
=cut
=head1 REPOSITORY
L<https://github.com/rkmithun/APP-REST-RestTestSuite>
=cut
1; # End of APP::REST::RestTestSuite
__DATA__
# RestTestSuite supports config file of below format.
# All values in LHS of ':' are case sensitive.
# Every test case should be within the '#START_TEST_CASE' and '#END_TEST_CASE' block.
# Create application specific config file in below format and pass the
# full path of file as an argument to the constructor
# for POST and PUT methods you need to supply the request body within
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
my @tests = split ' ', $self->tests;
my %seen;
$args->{test} = {
TESTS => (join ' ', grep {!$seen{$_}++} @tests),
};
} elsif ( $Module::Install::ExtraTests::use_extratests ) {
# Module::Install::ExtraTests doesn't set $self->tests and does its own tests via harness.
# So, just ignore our xt tests here.
} elsif ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
$args->{test} = {
TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ),
};