# -*- mode: cperl;-*-
-use Test::More tests => 3;
+use Test::More tests => 5;
use warnings;
use strict;
);
-require_ok('scripts/errorlib.in');
+use_ok('Debbugs::Status',qw(:versions));
# check removefoundversions
my $data = dclone(\%data);
removefoundversions($data,$data->{package},'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');