From d32cfb6ec78b3c842651d6aa81458e082a1a4234 Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Mon, 14 Dec 2015 02:44:07 +0100
Subject: Use system(mv) to move files, and test that it's ok

---
 t/test.t | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/t/test.t b/t/test.t
index 867057f..defecca 100755
--- 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();
-- 
cgit v1.2.3