back-port of -w force_reqs thing

1 files changed, 15 insertions, 0 deletions

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.');