2 files changed, 16 insertions, 1 deletions
diff --git a/t/prep.pl b/t/prep.pl
index eaf1d4e..ae91c77 100755
--- a/t/prep.pl
+++ b/t/prep.pl
@@ -17,7 +17,7 @@ sub pr ($) {
 	print {$write} "our \$$thing = 1;\n";
 }
 
-for my $thing (qw(interactive compat32 no_readme jobs distclean noclean no_install no_reqs)) {
+for my $thing (qw(interactive compat32 no_readme jobs distclean noclean no_install no_reqs force force_reqs)) {
 	pr $thing;
 }
 
diff --git a/t/test.t b/t/test.t
index 3af92d7..c743336 100755
--- a/t/test.t
+++ b/t/test.t
@@ -288,3 +288,18 @@ $fh = open_read "$sbo_home/libraries/libmatchbox/README";
 $readme = do {local $/; <$fh>};
 close $fh;
 ok (! (get_opts $readme), 'get_opts good where README does not define opts');
+
+# 88-90, clean_reqs tests
+$fh = open_read "$sbo_home/system/wine/README";
+$readme = do {local $/; <$fh>};
+close $fh;
+$reqs = get_requires "wine", $readme;
+$reqs = clean_reqs $reqs;
+ok (! $$reqs[0], 'clean_reqs good for already installed reqs');
+$fh = open_read "$sbo_home/games/pingus/README";
+$readme = do {local $/; <$fh>};
+close $fh;
+$reqs = get_requires "pingus", $readme;
+$reqs = clean_reqs $reqs;
+ok ($$reqs[0] eq 'scons', 'clean_reqs good for un/installed reqs.');
+ok ($$reqs[1] eq 'physfs', 'clean_reqs good for un/installed reqs.');