test: Correctly iterate over all default and passed .dsc template substvars

The code was returning all keys and values for %default_substvars,
when instead we should have been requesting all %default_substvars
and %options keys.

1 files changed, 1 insertions, 1 deletions

diff --git a/scripts/t/dpkg_source.t b/scripts/t/dpkg_source.t
index 974e3719c..2de0c0dbb 100644
--- a/scripts/t/dpkg_source.t
+++ b/scripts/t/dpkg_source.t
@@ -89,7 +89,7 @@ sub gen_source
     my (%options) = @_;
 
     my $substvars = Dpkg::Substvars->new();
-    foreach my $var (%default_substvars) {
+    foreach my $var ((keys %default_substvars, keys %options)) {
         my $value = $options{$var} // $default_substvars{$var};
 
         $substvars->set_as_auto($var, $value);