sbotools2

commit d32cfb6ec78b3c842651d6aa81458e082a1a4234
parent f9e6c214e191e7100646af617e399b095449679d
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Mon, 14 Dec 2015 02:44:07 +0100

Use system(mv) to move files, and test that it's ok

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

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/t/test.t b/t/test.t
@@ -511,12 +511,13 @@ $line = '( tar xvf xapian-bindings-$VERSION.tar.gz';
 is($regex, '(?^u: xapian-bindings-[^-]+.tar.gz)', 'get_dc_regex test 04.1');
 is($initial, ' ', 'get_dc_regex test 04.2');
 
-# end of tests.
-
 # move things back to pre-migration state
 foreach my $fname (glob("$repo_path/*")) {
-	move $fname, $sbo_home;
+	print "Moving $fname\n";
+	is(system('mv', $fname, $sbo_home), 0, "moving $fname to pre-migration place works");
 }
 unlink $repo_path;
 
+# end of tests.
+
 done_testing();