Bug 18925: (QA follow-up) Remove weird 'Null' values for integer column
[koha.git] / t / db_dependent / Sitemapper.t
index 9f9945d..30c64cf 100755 (executable)
@@ -23,9 +23,9 @@ use File::Path;
 use DateTime;
 use Test::MockModule;
 use Test::More tests => 16;
-use Koha::Schema;
 use Carp qw/croak carp/;
 
+
 BEGIN {
     use_ok('Koha::Sitemapper');
     use_ok('Koha::Sitemapper::Writer');
@@ -33,7 +33,7 @@ BEGIN {
 
 my $now_value       = DateTime->now();
 my $mocked_datetime = Test::MockModule->new('DateTime');
-$mocked_datetime->mock( 'now', sub { return $now_value; } );
+$mocked_datetime->mock( 'now', sub { return $now_value->clone; } );
 
 sub slurp {
     my $file = shift;
@@ -62,7 +62,7 @@ $db->mock(
     _new_schema => sub { return Schema(); }
 );
 
-my $dir = File::Spec->tmpdir();
+my $dir = C4::Context::temporary_directory;
 
 my $data = [
     [qw/ 1         2013-11-15 2013-11-15/],