WebService::TestSystem 0.06

WebService::TestSystem is a Perl module with Web service for implementing a distributed testing system.

my $testsys = new WebService::TestSystem;

# Getting a list of tests foreach my $test (@{$testsys->get_tests()}) { print "$test->{id} $test->{descriptor}n"; }

# Getting a list of hosts foreach my $host (@{$testsys->get_hosts()}) { print "$host->{id} $host->{descriptor}n"; }

# Submitting tests my %request; if (! $testsys->validate_test_request(%request) ) { my %errors = $testsys->get_validation_errors(); } else { my $test_request_id = $testsys->request_test(%request); print "Test request #$test_request_id submittedn"; }

# System Metrics @metrics = $testsys->metrics_test_run_time(2004, 12); @metrics = $testsys->metrics_requests_per_month(2004, all) @metrics = $testsys->metrics_distros_tested_per_month(2004) etc.

WebService::TestSystem presents a programmatic interface (API) for remote interactions with a software testing service. In other words, this provides a set of remote procedure calls (RPCs) for requesting test runs, monitoring systems under test (SUT), and so forth.