Bugzilla – Attachment 41547 Details for
Bug 13799
Add base for building RESTful API
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 13799 - 6. REST API Testing framework
Bug-13799---6-REST-API-Testing-framework.patch (text/plain), 21.05 KB, created by
Olli-Antti Kivilahti
on 2015-08-17 12:17:36 UTC
(
hide
)
Description:
Bug 13799 - 6. REST API Testing framework
Filename:
MIME Type:
Creator:
Olli-Antti Kivilahti
Created:
2015-08-17 12:17:36 UTC
Size:
21.05 KB
patch
obsolete
>From ebc882937f4f89e23c73c158fdcf25e3e4e13e0f Mon Sep 17 00:00:00 2001 >From: Olli-Antti Kivilahti <olli-antti.kivilahti@jns.fi> >Date: Tue, 28 Jul 2015 14:57:59 +0300 >Subject: [PATCH] Bug 13799 - 6. REST API Testing framework > >Introduces the Swagger2TestRunner which takes care of authentication and API >consumer creation behind the scenes, and makes sure all API endpoints get >test coverage. > >This way the test automator can focus on testing the business logic instead of >duplicating authentication and API consumer creation in various test scripts. > >Run t/db_dependent/Api/V1/testREST.pl and it will tell you what you need to do. >--- > t/db_dependent/Api/V1/Borrowers.pm | 69 +++++++++ > t/db_dependent/Api/V1/testREST.pl | 37 +++++ > t/lib/RESTTest.pm | 133 +++++++++++++++++ > t/lib/Swagger2TestRunner.pm | 282 +++++++++++++++++++++++++++++++++++++ > 4 files changed, 521 insertions(+) > create mode 100644 t/db_dependent/Api/V1/Borrowers.pm > create mode 100644 t/db_dependent/Api/V1/testREST.pl > create mode 100644 t/lib/RESTTest.pm > create mode 100644 t/lib/Swagger2TestRunner.pm > >diff --git a/t/db_dependent/Api/V1/Borrowers.pm b/t/db_dependent/Api/V1/Borrowers.pm >new file mode 100644 >index 0000000..839eaac >--- /dev/null >+++ b/t/db_dependent/Api/V1/Borrowers.pm >@@ -0,0 +1,69 @@ >+package t::db_dependent::Api::V1::Borrowers; >+ >+use Modern::Perl; >+use Test::More; >+ >+use t::lib::TestObjects::BorrowerFactory; >+use t::lib::TestObjects::ObjectFactory; >+ >+#GET /borrowers/{borrowernumber}, with response 200 >+ >+sub get_n_200 { >+ my ($class, $restTest, $driver) = @_; >+ my $testContext = $restTest->get_testContext(); #Test context will be automatically cleaned after this subtest has been executed. >+ my $activeUser = $restTest->get_activeBorrower(); >+ >+ #Create the test borrower. >+ my $b = [{ cardnumber => '11A01', firstname => 'Olli', surname => 'Kiivi', password => '1234', userid => 'admin', branchcode => 'CPL' }]; >+ my $borrowers = t::lib::TestObjects::BorrowerFactory->createTestGroup($b, undef, $testContext, undef, undef); >+ $b = $borrowers->{'11A01'}; >+ my $borrowernumber = $b->borrowernumber; >+ >+ #Execute request >+ my $path = $restTest->get_routePath(); >+ $path =~ s/\{borrowernumber\}/$borrowernumber/; >+ $driver->get_ok($path => {Accept => 'text/json'}); >+ $driver->status_is(200); >+ >+ #Compare result >+ $driver->json_is('/borrowernumber' => $borrowernumber, "Got the same borrower '$borrowernumber'"); >+ my $json = $driver->tx->res->json(); >+ my $body = $driver->tx->res->body(); >+ >+ return 1; >+} >+ >+sub get_n_404 { >+ my ($class, $restTest, $driver) = @_; >+ my $testContext = $restTest->get_testContext(); #Test context will be automatically cleaned after this subtest has been executed. >+ my $activeUser = $restTest->get_activeBorrower(); >+ >+ #Create the test borrower and get the borrowernumber. We know for sure that this borrowernumber is not already in use. >+ my $b = [{ cardnumber => '11A01', firstname => 'Olli', surname => 'Kiivi', password => '1234', userid => 'admin', branchcode => 'CPL' }]; >+ my $borrowers = t::lib::TestObjects::BorrowerFactory->createTestGroup($b, undef, $testContext, undef, undef); >+ $b = $borrowers->{'11A01'}; >+ my $borrowernumber = $b->borrowernumber; >+ >+ #Delete the borrower so we can no longer find it. >+ t::lib::TestObjects::ObjectFactory->tearDownTestContext($testContext); >+ >+ #Make the HTTP request >+ my $path = $restTest->get_routePath(); >+ $path =~ s/\{borrowernumber\}/$borrowernumber/; >+ $driver->get_ok($path => {Accept => 'text/json'}); >+ $driver->status_is(404); >+ >+ return 1; >+} >+ >+sub get200 { >+ my ($class, $restTest, $driver) = @_; >+ >+ #Make the HTTP request >+ my $path = $restTest->get_routePath(); >+ $driver->get_ok($path => {Accept => 'text/json'}); >+ $driver->status_is(200); >+ $driver->json_has('email', 'Got something meaningful'); >+} >+ >+1; >\ No newline at end of file >diff --git a/t/db_dependent/Api/V1/testREST.pl b/t/db_dependent/Api/V1/testREST.pl >new file mode 100644 >index 0000000..f3be2f9 >--- /dev/null >+++ b/t/db_dependent/Api/V1/testREST.pl >@@ -0,0 +1,37 @@ >+#!/usr/bin/perl >+ >+use Modern::Perl; >+use Test::More; >+use Getopt::Long; >+ >+use t::lib::Swagger2TestRunner; >+ >+# These are defaults for command line options. >+my @testKeywords; >+my $help = 0; >+ >+GetOptions( >+ 'h|help' => \$help, >+ 'k|keywords=s{,}' => \@testKeywords, >+ ); >+ >+my $helpText = <<HELP; >+ >+perl t/db_dependent/Api/V1/testREST.pl >+ >+Triggers all tests for all REST API endpoints for V1. >+See. t::lib::Swagger2TestRunner->new() for parameter descriptions. >+ >+ --help This help text. >+ >+HELP >+ >+ >+if ($help) { >+ print $helpText; >+ exit; >+} >+ >+ >+my $testRunner = t::lib::Swagger2TestRunner->new({testKeywords => \@testKeywords}); >+$testRunner->testREST(); >diff --git a/t/lib/RESTTest.pm b/t/lib/RESTTest.pm >new file mode 100644 >index 0000000..10bd4c1 >--- /dev/null >+++ b/t/lib/RESTTest.pm >@@ -0,0 +1,133 @@ >+package t::lib::RESTTest; >+ >+use Modern::Perl; >+use Test::More; >+ >+use Class::Accessor "antlers"; >+__PACKAGE__->follow_best_practice(); >+ >+has testImplementationMainPackage => (is => 'rw', isa => 'Str'); #eg. 't::db_dependent::api' >+has basePath => (is => 'rw', isa => 'Str'); #eg. '/v1' >+has pathsObjectPath => (is => 'rw', isa => 'Str'); #eg. '/borrowers/{borrowernumber}/issues/{itemnumber}' >+has httpVerb => (is => 'rw', isa => 'Str'); #eg. 'get' >+has httpStatusCode => (is => 'rw', isa => 'Str'); #eg. '404' >+has packageName => (is => 'rw', isa => 'Str'); #eg. 'Borrowers' >+has subroutineName => (is => 'rw', isa => 'Str'); #eg. 'get_n_200' >+has swagger2specification => (is => 'rw', isa => 'HASH'); #The Swagger2 specification as HASH >+has operationObject => (is => 'rw', isa => 'HASH'); #The Swagger2 specifications OperationObject this test tests. >+has activeBorrower => (is => 'rw', isa => 'Koha::Borrower'); #The Borrower who is consuming the REST API, and doing the authentication. >+has apiKey => (is => 'rw', isa => 'Str'); #eg."23f08sev90-42vfwv+ave3v==Ac", active borrower's api key >+has testContext => (is => 'rw', isa => 'HASH'); #Test context for this test case, used to collect all DB modifications in one place for easy removal. >+ >+use Koha::Exception::BadParameter; >+ >+=head new >+ >+ t::lib::RESTTest->new({ >+ testImplementationMainPackage => 't::db_dependent::api', >+ basePath => '/v1', >+ pathsObj_Path => '/borrowers/{borrowernumber}/issues/{itemnumber}', >+ httpVerb => 'get', >+ httpStatusCode => '200', >+ specification => $specification, >+ operationObject => $operationObject, >+ activeBorrower => $activeBorrower, >+ apiKey => "23f08sev90-42vfwv+ave3v==Ac", #Active borrowers api key >+ }); >+ >+=cut >+ >+our $testImplementationMainPackage = 't::db_dependent::Api'; >+ >+sub new { >+ my ($class, $params) = @_; >+ >+ bless($params, $class); >+ _validateParams($params); >+ >+ $params->set_testImplementationMainPackage($testImplementationMainPackage) unless $params->get_testImplementationMainPackage(); >+ $params->set_testContext({}); >+ >+ #We need to create the package and subroutine path to dynamically check that test-subroutines are defined for the specified paths. >+ $params->_buildPackageAndSubroutineName(); >+ return $params; >+} >+ >+=head _validateParams >+ >+@THROWS Koha::Exception::BadParameter, if validation fails. >+=cut >+ >+sub _validateParams { >+ my ($params) = @_; >+ >+ ##Actually check the params >+ unless ($params->{basePath}) { >+ $params->{basePath} = 'v1'; >+ } >+ >+ if ($params->{pathsObjectPath}) { >+ my ($sModule, $sPathTail) = ($1, $2) if $params->{pathsObjectPath} =~ /^\/(\w+)\/?(.*)$/; >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> Unable to parse the module name from '".$params->{pathsObjectPath}."'. Please fix the module parser!") >+ unless $sModule; >+ } >+ else { >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> no 'pathsObjectPath'-parameter given!"); >+ } >+ >+ unless ($params->{httpVerb}) { >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> no 'httpVerb'-parameter given!"); >+ } >+ >+ unless ($params->{httpStatusCode}) { >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> no 'httpStatusCode'-parameter given!"); >+ } >+ >+ unless ($params->{swagger2specification}) { >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> no 'swagger2specification'-parameter given!"); >+ } >+ >+ unless ($params->{operationObject}) { >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> no 'operationObject'-parameter given!"); >+ } >+ >+ unless ($params->{activeBorrower}) { >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> no 'activeBorrower'-parameter given!"); >+ } >+ >+ unless ($params->{apiKey}) { >+ Koha::Exception::BadParameter->throw(error => "RESTTest->new():> no 'apiKey'-parameter given!"); >+ } >+} >+ >+sub _buildPackageAndSubroutineName { >+ my ($self) = @_; >+ >+ my $bp = $self->get_basePath(); >+ $bp =~ s/\///g; >+ >+ my ($sModule, $sPathTail) = ($1, $2) if $self->get_pathsObjectPath() =~ /^\/(\w+)\/?(.*)$/; >+ $sPathTail =~ s/\{.*?\}/_n_/g; >+ $sPathTail =~ s/\///g; >+ >+ my $testPackageName = $testImplementationMainPackage.'::'. #typically t::db_dependent::api >+ ucfirst($bp).'::'. #version, v1 >+ ucfirst($sModule); #borrowers, etc. >+ $self->set_packageName($testPackageName); >+ >+ my $testSubroutineName = $self->get_httpVerb(). #eg. get >+ (($sPathTail) ? $sPathTail : ''). #eg. borrowers_n_ >+ $self->get_httpStatusCode(); #eg. 200, 404, 403, ... >+ $self->set_subroutineName($testSubroutineName); >+} >+ >+sub get_routePath { >+ my $self = shift; >+ return $self->get_basePath().$self->get_pathsObjectPath(); >+} >+sub get_requiredPermissions { >+ my ($self) = @_; >+ return $self->get_operationObject()->{'x-koha-permission'}; >+} >+ >+1; >diff --git a/t/lib/Swagger2TestRunner.pm b/t/lib/Swagger2TestRunner.pm >new file mode 100644 >index 0000000..cdc01fe >--- /dev/null >+++ b/t/lib/Swagger2TestRunner.pm >@@ -0,0 +1,282 @@ >+package t::lib::Swagger2TestRunner; >+ >+use Modern::Perl; >+use Test::More; >+ >+use Swagger2; >+use YAML::XS; >+use String::Random; >+ >+use C4::Context; >+ >+use Koha::ApiKeys; >+use Koha::Auth::PermissionManager; >+use Koha::Auth::Permissions; >+use Koha::Auth::Challenge::RESTV1; >+ >+use t::lib::WebDriverFactory; >+use t::lib::RESTTest; >+use t::lib::TestObjects::BorrowerFactory; >+use t::lib::TestObjects::ObjectFactory; >+ >+use Koha::Exception::FeatureUnavailable; >+ >+=head new >+ >+ my $swagger2TestRunner = t::lib::Swagger2TestRunner->new({ >+ testKeywords => ['borrowers','^issues', '@/borrowers/{borrowernumber}'], >+ }); >+ >+Gets the testrunner for you to operate on the REST API tests. >+@PARAM1 HASHRef of parameters: { >+ #Every route in the Swagger2 interface definition is matched against these >+ #given keywords. Matching routes are targeted for operations. >+ # Keywords starting with ^ are negated, so they must not match >+ # Keywords starting with @ are complete matches, so they must match the url endpoint completely. A bit like a tag. >+ # Keywords with no special starting character must be found from the endpoint/url. >+ #The special starting character is removed before matching. >+ testKeywords => ['borrowers','^issues', '@/borrowers/{borrowernumber}'], >+ } >+=cut >+ >+sub new { >+ my ($class, $params) = @_; >+ >+ my $self = $params || {}; >+ bless($self, $class); >+ >+ my $swagger = Swagger2->new->load( _getSwagger2Syspref() )->expand; >+ $self->{swagger} = $swagger; >+ $self->{testContext} = {}; #Collect all objects created for testing here for easy test context tearDown. >+ >+ return $self; >+} >+ >+=head testREST >+Gets and runs all the tests for all endpoints. >+=cut >+ >+sub testREST { >+ my ($self) = @_; >+ my $tests = $self->getTests(); >+ $self->runTests($tests); >+} >+ >+=head getTests >+Reads through the Swagger2 API definition and prepares tests for each >+returned HTTP status code within >+each accepted HTTP verb within >+each defined API endpoint/url >+ >+This enforces that no documented case is left untested. >+If the 'testKeywords'-parameter is given during object instantiation, filters endpoints >+with the keywords. >+@RETURNS ARRAYRef of RESTTest-objects. >+@THROW Koha::Exception::FeatureUnavailable, if Swagger2 is misconfigured or missing. >+=cut >+ >+sub getTests { >+ my ($self) = @_; >+ >+ my $tests = []; >+ my $specification = $self->{swagger}->{tree}->{data}; >+ my $pathsObject = $specification->{paths}; >+ my $basePath = $specification->{basePath}; >+ >+ my $activeBorrower = _getTestBorrower($self->{testContext}); #The Borrower who authenticates for the tests >+ my $apiKey = Koha::ApiKeys->grant($activeBorrower); >+ >+ #Find the response object which encompasses all documented permutations of API calls. >+ foreach my $pathsObject_path (grep {$_ if $_ !~ /^x-/i } sort keys(%$pathsObject)) { #Pick only Path Item Objects >+ next unless _testPathsObject_pathAgainstTestKeywords($pathsObject_path, $self->{testKeywords}); >+ >+ my $pathItemObject = $pathsObject->{$pathsObject_path}; >+ foreach my $httpVerb (grep {$_ if $_ =~ /(get|put|post|delete|options|head|patch)/i} sort keys(%$pathItemObject)) { #Pick only Operation Objects >+ my $operationObject = $pathItemObject->{$httpVerb}; >+ foreach my $httpStatusCode (grep {$_ if $_ !~ /^x-/i } sort keys(%{$operationObject->{responses}})) { #Pick only Response Objects from the Responses Object. >+ my $responseObject = $operationObject->{responses}->{$httpStatusCode}; >+ >+ my $subtest = t::lib::RESTTest->new({basePath => $basePath, >+ pathsObjectPath => $pathsObject_path, >+ httpVerb => $httpVerb, >+ httpStatusCode => $httpStatusCode, >+ swagger2specification => $specification, >+ operationObject => $operationObject, >+ activeBorrower => $activeBorrower, >+ apiKey => $apiKey, >+ }); >+ push @$tests, $subtest; >+ } >+ } >+ } >+ @$tests = reverse @$tests; >+ return $tests; >+} >+ >+=head runTests >+Executes the prepared tests. >+Sets up the necessary authentication prerequisites documented in the Swagger2 API definition >+prior to executing the test subroutine. >+Tears down any preconfigured changes after each test. >+=cut >+ >+sub runTests { >+ my ($self, $tests) = @_; >+ >+ print "testREST():> Starting testing >>>\n"; >+ my ($driver) = t::lib::WebDriverFactory::getUserAgentDrivers('mojolicious'); >+ foreach my $subtest (@$tests) { >+ my $testPackageName = $subtest->get_packageName(); >+ my $testSubroutineName = $subtest->get_subroutineName(); >+ eval "require $testPackageName"; >+ if ($@) { >+ warn "$@\n"; >+ } >+ >+ if ($@) { #Trigger this test to fail if the package is unimplemented >+ ok(0, "No test package defined for API route '".$subtest->get_routePath()."'. You must define it in $testPackageName->$testSubroutineName()."); >+ } >+ elsif (not("$testPackageName"->can("$testSubroutineName"))) { >+ ok(0, "No test subroutine defined for API route '".$subtest->get_routePath()."'. You must define it in $testPackageName->$testSubroutineName()."); >+ } >+ else { >+ $self->_prepareTestContext( $subtest, $driver ); >+ >+ eval { #Prevent propagation of death from above, so we can continue testing and clean up the test context afterwards. >+ no strict 'refs'; >+ subtest "$testPackageName->$testSubroutineName()" => sub { >+ "$testPackageName"->$testSubroutineName( $subtest, $driver ); >+ }; >+ }; >+ if ($@) { >+ warn "$@\n"; >+ } >+ >+ $self->_tearDownTestContext( $subtest, $driver ); >+ } >+ } >+ t::lib::TestObjects::ObjectFactory->tearDownTestContext($self->{testContext}); #Clear the global REST test context. >+ done_testing; >+} >+ >+sub _getSwagger2Syspref { >+ my $swagger2DefinitionLocation = $ENV{KOHA_PATH}.'/api/v1/swagger.json'; >+ unless (-f $swagger2DefinitionLocation) { >+ Koha::Exception::FeatureUnavailable->throw(error => "Swagger2TestRunner():> Couldn't find the Swagger2 definitions file from '$swagger2DefinitionLocation'. You must have a swagger.json-file to use the test runner."); >+ } >+ return $swagger2DefinitionLocation; >+} >+ >+=head _getTestBorrower >+Gets the universal active test Borrower used in all REST tests as the Borrower consuming the API. >+=cut >+ >+sub _getTestBorrower { >+ my ($testContext) = @_; >+ my $borrowerFactory = t::lib::TestObjects::BorrowerFactory->new(); >+ my $borrowers = $borrowerFactory->createTestGroup([ >+ {firstname => 'TestRunner', >+ surname => 'AI', >+ cardnumber => '11A000', >+ branchcode => 'CPL', >+ address => 'Technological Singularity', >+ city => 'Gehenna', >+ zipcode => '80140', >+ email => 'bionicman@example.com', >+ categorycode => 'PT', >+ dateofbirth => DateTime->now(time_zone => C4::Context->tz())->subtract(years => 21)->iso8601(), #I am always 21! >+ }, >+ ], undef, $testContext); >+ return $borrowers->{'11A000'}; >+} >+ >+=head _testPathsObject_pathAgainstTestKeywords >+Implements the 'testKeywords'-parameter introduced in the constructor '->new()'. >+=cut >+ >+sub _testPathsObject_pathAgainstTestKeywords { >+ my ($pathsObject_path, $keywords) = @_; >+ return 1 unless $keywords; >+ foreach my $kw (@$keywords) { >+ my ($exclude, $include, $only); >+ if ($kw =~ /^\^(.+?)$/) { >+ $exclude = $1; >+ } >+ elsif ($kw =~ /^\@(.+?)$/) { >+ $only = $1; >+ } >+ else { >+ $include = $kw; >+ } >+ >+ if ($include) { >+ return undef unless $pathsObject_path =~ m/\Q$include/; >+ } >+ elsif ($exclude) { >+ return undef if $pathsObject_path =~ m/\Q$exclude/; >+ } >+ elsif ($only) { >+ return undef unless $pathsObject_path =~ m/^\Q$only\E$/; >+ } >+ } >+ return 1; >+} >+ >+=head _prepareTestContext >+Help to make implementing these tests maximally easy. >+Make sure the active test Borrower has proper permissions to access the resource >+ and the authentication headers are properly set. >+=cut >+ >+sub _prepareTestContext { >+ my ($self, $subtest, $driver) = @_; >+ my $permissionsRequired = _replaceAnyPermissions( $subtest->get_requiredPermissions() ); >+ >+ my $permissionManager = Koha::Auth::PermissionManager->new(); >+ $permissionManager->grantPermissions($subtest->get_activeBorrower(), $permissionsRequired); >+ >+ #Prepare authentication headers >+ $driver->ua->once(start => sub { #Subscribe only once to this event, we need fresh headers on every HTTP request. >+ my ($ua, $tx) = @_; >+ my $headers = Koha::Auth::Challenge::RESTV1::prepareAuthenticationHeaders($subtest->get_activeBorrower(), undef, $subtest->get_httpVerb()); >+ $tx->req->headers->add('X-Koha-Date' => $headers->{'X-Koha-Date'}); >+ $tx->req->headers->add('Authorization' => $headers->{Authorization}); >+ }); >+} >+ >+=head _tearDownTestContext >+Help to make implementing these tests maximally easy. >+Remove all granted permissions so they wont interfere with other REST tests. >+ >+Also purges the test context created during test execution, if the context has been populated with TestObjectFactories. >+=cut >+ >+sub _tearDownTestContext { >+ my ($self, $subtest, $driver) = @_; >+ my $testContext = $subtest->get_testContext(); >+ >+ my $permissionManager = Koha::Auth::PermissionManager->new(); >+ $permissionManager->revokeAllPermissions($subtest->{activeBorrower}); >+ >+ t::lib::TestObjects::ObjectFactory->tearDownTestContext($testContext); >+ >+ sleep 1; #Wait for Test::Mojo to clean up and reattach event handlers in it's asynchronous internals. >+} >+ >+=head _replaceAnyPermission >+When fulfilling the *-permission, we need to find any permission under the given >+permissionmodule to satisfy the permission requirement. >+=cut >+ >+sub _replaceAnyPermissions { >+ my ($permissionsRequired) = @_; >+ foreach my $module (keys %$permissionsRequired) { >+ if ( $permissionsRequired->{$module} eq '*' ) { >+ my @permissions = Koha::Auth::Permissions->search({module => $module}); >+ $permissionsRequired->{$module} = $permissions[0]->code; >+ } >+ } >+ return $permissionsRequired; >+} >+ >+1; >-- >1.9.1
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 13799
:
36700
|
36705
|
36938
|
36941
|
37119
|
37132
|
37172
|
38246
|
39156
|
39158
|
39159
|
39160
|
39161
|
39162
|
39163
|
39164
|
40088
|
40092
|
40093
|
40094
|
40098
|
40099
|
40101
|
40140
|
40141
|
40142
|
40463
|
40464
|
40465
|
40466
|
40467
|
40468
|
40469
|
40470
|
40471
|
40551
|
40552
|
40553
|
40554
|
40560
|
40561
|
40584
|
40585
|
40586
|
40587
|
40616
|
40617
|
40618
|
40619
|
41160
|
41161
|
41162
|
41268
|
41269
|
41270
|
41271
|
41272
|
41273
|
41274
|
41320
|
41321
|
41326
|
41327
|
41328
|
41329
|
41330
|
41331
|
41538
|
41539
|
41540
|
41541
|
41542
|
41543
|
41547
|
41554
|
42044
|
42085
|
42086
|
42123
|
42518
|
42766
|
42768
|
42801
|
42874
|
42875
|
42876
|
42877
|
42878
|
43186
|
43187
|
43189
|
43190
|
43191
|
43192
|
43204
|
43205
|
43206
|
43207
|
43208
|
43209
|
43210
|
43211
|
43212
|
43213
|
43214
|
43980
|
43981
|
43987
|
43989
|
43990
|
43991
|
43992
|
43993
|
43994
|
43995
|
43996
|
43997
|
43998
|
43999
|
44000
|
44001
|
44185
|
44285
|
44313
|
44375
|
44376
|
44377
|
44378
|
44379
|
44380
|
44381
|
44382
|
44383
|
44384
|
44385