X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2F03_versions.t;h=3a7beb44dfae90bf620f3e626086bb9fb0f27ccf;hb=1c4ce01f78b112c2247a08f1a0dc9efb5ab3adca;hp=ace98ce7709c61560a63dc032e96edec07f1692c;hpb=7a16767e7b88dfecfb999fe24e3914eabce21631;p=debbugs.git

diff --git a/t/03_versions.t b/t/03_versions.t
index ace98ce..3a7beb4 100644
--- 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');