remove UTF8 warnings

[debbugs.git] / t / 03_versions.t

diff --git a/t/03_versions.t b/t/03_versions.t
index ace98ce7709c61560a63dc032e96edec07f1692c..3a7beb44dfae90bf620f3e626086bb9fb0f27ccf 100644 (file)
--- a/t/03_versions.t
+++ b/t/03_versions.t
@@ -1,6 +1,6 @@
 # -*- mode: cperl;-*-
 
-use Test::More tests => 3;
+use Test::More tests => 5;
 
 use warnings;
 use strict;
@@ -20,7 +20,7 @@ my %data = (package => q(foo),
           );
 
 
-require_ok('scripts/errorlib.in');
+use_ok('Debbugs::Status',qw(:versions));
 # check removefoundversions
 my $data = dclone(\%data);
 removefoundversions($data,$data->{package},'1.00');
@@ -28,3 +28,11 @@ is_deeply($data->{found_versions},['1.34'],'removefoundversions removes all 1.00
 $data = dclone(\%data);
 removefoundversions($data,$data->{package},'bar/1.00');
 is_deeply($data->{found_versions},['1.00','1.34'],'removefoundversions removes only bar/1.00 versions');
+$data = dclone(\%data);
+addfoundversions($data,$data->{package},'1.45');
+is_deeply($data->{fixed_versions},['bar/1.02'],'addfoundversions removes fixed versions');
+is_deeply($data->{found_versions},['bar/1.00',
+                                  '1.00',
+                                  '1.34',
+                                  'foo/1.45',
+                                 ],,'addfoundversions adds found versions');