sbotools2

commit ad82fb41493dbb51170e51afe73d9f1c785a311c
parent bea46e5db4dd16898489c56ceb7a6994728792de
Author: J Pipkin <j@dawnrazor.net>
Date:   Sat,  8 Sep 2012 23:43:37 -0500

set ::Lib::compat32 to 0 before get_requires/clean_reqs tests, so that they work

Diffstat:
M
t/test.t
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git 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.');