From 8634f81f0036c7dc4d37b082912336864eaaa7b8 Mon Sep 17 00:00:00 2001
From: J Pipkin <j@dawnrazor.net>
Date: Tue, 4 Sep 2012 09:41:19 -0500
Subject: back-port of -w force_reqs thing

---
 t/test.t | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 't/test.t')

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