[continued from previous message]

sha256 => 'f53cb4ee5128363210053c89627757c3dd864ab87e3ac9bff20dd6fe4175a140',
+ sha512 => '045b1b0989dcc228f740ce4de883f9960462d37a0f1c75af86655c24ba5f5f80102769fcc8c9066e2fd6bc70e38c01a9a64688b5a0c5a18b4be42200b96e9b7b',
}
}, {
file => 'data-2',
@@ -49,6 +51,7 @@ my @data = (
md5 => '785400cfc51d16a06e2c34aa511b99ef',
sha1 => '329ba56c0c9c63b6e138f3970ac3628e476a6854',
sha256 => '217147cd3126a076ba3fd816566a80aaaffff5facc572394dbd6af61a49760d1',
+ sha512 => '523277b702a7bd2182221a1c66cb924a239d15a072ed07117b748931508bceea651f51f182ba98b1ac56de747565acfbad70544d2b173b3fa08a61a61ec1333e',
}
}
);
@@ -76,7 +79,7 @@ sub test_checksums {
}


-my @expected_checksums = qw(md5 sha1 sha256);
+my @expected_checksums = qw(md5 sha1 sha256 sha512);
my @known_checksums = checksums_get_list();

is_deeply(\@known_checksums, \@expected_checksums, 'List of known checksums'); diff --git a/scripts/t/Dpkg_Control_Fields.t b/scripts/t/Dpkg_Control_Fields.t index 1c699e373..349e94756 100644
--- a/scripts/t/Dpkg_Control_Fields.t
+++ b/scripts/t/Dpkg_Control_Fields.t
@@ -20,7 +20,7 @@ use Test::More;
use Test::Dpkg qw(:paths);

BEGIN {
- plan tests => 2603;
+ plan tests => 2647;

use_ok('Dpkg::Control::Types');
use_ok('Dpkg::Control::FieldsCore');
@@ -60,11 +60,13 @@ my @src_checksums = qw(
Checksums-Md5
Checksums-Sha1
Checksums-Sha256
+ Checksums-Sha512
);
my @bin_checksums = qw(
MD5sum
SHA1
SHA256
+ SHA512
);
my @src_files = (
@src_checksums,
diff --git a/scripts/t/dpkg_buildpackage/test-source_0.dsc b/scripts/t/dpkg_buildpackage/test-source_0.dsc
index fe5b4f8a4..f0545a95b 100644
--- a/scripts/t/dpkg_buildpackage/test-source_0.dsc
+++ b/scripts/t/dpkg_buildpackage/test-source_0.dsc
@@ -11,5 +11,7 @@ Checksums-Sha1:
0000000000000000000000000000000000000000 0 test-source_0.tar.xz
Checksums-Sha256:
0000000000000000000000000000000000000000000000000000000000000000 0 test-source_0.tar.xz
+Checksums-Sh