* Clean up removefoundversions and add tests for the new functionality

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

diff --git a/t/03_versions.t b/t/03_versions.t
new file mode 100644 (file)
index 0000000..ace98ce
--- /dev/null
+++ b/t/03_versions.t
@@ -0,0 +1,30 @@
+# -*- mode: cperl;-*-
+
+use Test::More tests => 3;
+
+use warnings;
+use strict;
+
+use Storable qw(dclone);
+
+# First, lets create a dataset for the illustrious foo package
+
+my %data = (package => q(foo),
+           found_versions   => ['bar/1.00',
+                                '1.00',
+                                '1.34',
+                               ],
+           fixed_versions   => ['bar/1.02',
+                                '1.45',
+                               ],
+          );
+
+
+require_ok('scripts/errorlib.in');
+# check removefoundversions
+my $data = dclone(\%data);
+removefoundversions($data,$data->{package},'1.00');
+is_deeply($data->{found_versions},['1.34'],'removefoundversions removes all 1.00 versions');
+$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');