perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
13
fork

Configure Feed

Select the types of activity you want to include in your feed.

Align importRepo invalid-CAR errors

alice 6a2af911 b58c00c9

+2 -2
+1 -1
lib/ATProto/PDS/API/Repo.pm
··· 189 189 } or do { 190 190 my $err = $@; 191 191 die $err if ref($err) eq 'HASH'; 192 - xrpc_error(400, 'InvalidRepoImport', 'Repo import CAR was invalid'); 192 + xrpc_error(400, 'InvalidRequest', 'Repo import CAR was invalid'); 193 193 }; 194 194 return {}; 195 195 });
+1 -1
t/import-repo.t
··· 90 90 Authorization => "Bearer $access", 91 91 'Content-Type' => 'application/vnd.ipld.car', 92 92 } => 'not-a-car')->status_is(400) 93 - ->json_is('/error' => 'InvalidRepoImport'); 93 + ->json_is('/error' => 'InvalidRequest'); 94 94 95 95 $t->get_ok('/xrpc/com.atproto.repo.listRecords' => form => { 96 96 repo => $did,