From ad82fb41493dbb51170e51afe73d9f1c785a311c Mon Sep 17 00:00:00 2001 From: J Pipkin Date: Sat, 8 Sep 2012 23:43:37 -0500 Subject: set ::Lib::compat32 to 0 before get_requires/clean_reqs tests, so that they work --- t/test.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 't/test.t') diff --git a/t/test.t b/t/test.t index c743336..2c62453 100755 --- a/t/test.t +++ b/t/test.t @@ -290,16 +290,17 @@ close $fh; ok (! (get_opts $readme), 'get_opts good where README does not define opts'); # 88-90, clean_reqs tests +$SBO::Lib::compat32 = 0; $fh = open_read "$sbo_home/system/wine/README"; $readme = do {local $/; <$fh>}; close $fh; -$reqs = get_requires "wine", $readme; +$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 = 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