Adjust the test suite for the modified Dpkg::BuildOptions

* scripts/t/300_Dpkg_BuildOptions.t: Fix the test suite to work with
  the modified Dpkg::BuildOptions.
* scripts/Dpkg/BuildOptions.pm: Add missing import.

ChangeLog

@@ -8,13 +8,15 @@
 	* lib/varbuf.c (varbufprintf): Use varbufvprintf instead of
 	reimplementing it.
 
-2008-06-09  Guillem Jover  <guillem@debian.org>
+2008-06-09  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/Dpkg/BuildOptions.pm (parse, set): Use space as the
 	official separator in DEB_BUILD_OPTIONS. Check for validity of
 	flags and print a warning if a bad option is detected. Rewrote
 	the logic of set() to avoid adding options twice in non-overwrite
 	mode.
+	* scripts/t/300_Dpkg_BuildOptions.t: Adjust the test suite
+	accordingly.
 
 2008-06-09  Guillem Jover  <guillem@debian.org>
 

scripts/Dpkg/BuildOptions.pm

@@ -3,6 +3,9 @@ package Dpkg::BuildOptions;
 use strict;
 use warnings;
 
+use Dpkg::Gettext;
+use Dpkg::ErrorHandling qw(warning);
+
 sub parse {
     my ($env) = @_;
 
@@ -43,7 +46,7 @@ sub set {
         $new->{$k} = $v;
     }
 
-    my $env = join(" ", map { $new->{$_} ? $_ . "=" . $new->{$_} : $_ } keys %$new);
+    my $env = join(" ", map { $new->{$_} ? $_ . "=" . $new->{$_} : $_ } sort keys %$new);
 
     $ENV{DEB_BUILD_OPTIONS} = $env;
     return $env;

scripts/t/300_Dpkg_BuildOptions.t

@@ -7,7 +7,14 @@ use warnings;
 
 use_ok('Dpkg::BuildOptions');
 
-$ENV{DEB_BUILD_OPTIONS} = 'noopt,foonostripbar,parallel=3,bazNOCHECK';
+{
+    no warnings;
+    # Disable warnings related to invalid values fed during
+    # the tests
+    $Dpkg::ErrorHandling::quiet_warnings = 1;
+}
+
+$ENV{DEB_BUILD_OPTIONS} = 'noopt foonostripbar parallel=3 bazNOCHECK';
 
 my $dbo = Dpkg::BuildOptions::parse();
 
@@ -26,14 +33,14 @@ my %dbo2 = (
 
 is_deeply($dbo, \%dbo, 'parse');
 
-$dbo = Dpkg::BuildOptions::parse('no opt,no-strip,parallel = 5,nocheck');
+$dbo = Dpkg::BuildOptions::parse('no opt no-strip parallel = 5 nocheck');
 
 is_deeply($dbo, \%dbo2, 'parse (param)');
 
 $dbo->{parallel} = 5;
 $dbo->{noopt} = '';
 
-my $env = Dpkg::BuildOptions::set($dbo,1);
+my $env = Dpkg::BuildOptions::set($dbo, 1);
 
 is($ENV{DEB_BUILD_OPTIONS}, $env, 'set (return value)');
 is_deeply(Dpkg::BuildOptions::parse(), $dbo, 'set (env)');
@@ -41,4 +48,4 @@ is_deeply(Dpkg::BuildOptions::parse(), $dbo, 'set (env)');
 $ENV{DEB_BUILD_OPTIONS} = 'foobar';
 $dbo = { noopt => '' };
 $env = Dpkg::BuildOptions::set($dbo, 0);
-is($env, "foobar,noopt,", 'set (append)');
+is($env, "foobar noopt", 'set (append)');