perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
Cover temp endpoint surface semantics
+20
+20
t/uncovered-endpoints.t
+20
t/uncovered-endpoints.t
···
374
374
375
375
my $app_password = $t->tx->res->json->{password};
376
376
377
+
$t->get_ok('/xrpc/com.atproto.temp.checkSignupQueue')
378
+
->status_is(200)
379
+
->json_is('/activated' => JSON::PP::true);
380
+
381
+
$t->get_ok('/xrpc/com.atproto.temp.dereferenceScope?scope=ref:app.bsky.feed.post')
382
+
->status_is(200)
383
+
->json_is('/scope' => 'app.bsky.feed.post');
384
+
385
+
$t->get_ok('/xrpc/com.atproto.temp.dereferenceScope?scope=app.bsky.feed.post')
386
+
->status_is(400)
387
+
->json_is('/error' => 'InvalidScopeReference');
388
+
389
+
$t->get_ok('/xrpc/com.atproto.temp.dereferenceScope?scope=ref:')
390
+
->status_is(400)
391
+
->json_is('/error' => 'InvalidScopeReference');
392
+
393
+
$t->post_ok('/xrpc/com.atproto.temp.requestPhoneVerification' => json => {})
394
+
->status_is(200)
395
+
->json_is({});
396
+
377
397
$t->post_ok('/xrpc/com.atproto.temp.revokeAccountCredentials' => json => {
378
398
account => $did,
379
399
})->status_is(401)