Blob Blame History Raw
From 1e1084944a16908de81a8934ef8ad422bf39637a Mon Sep 17 00:00:00 2001
From: Jakub Janco <jjanco@redhat.com>
Date: Wed, 13 Dec 2017 14:43:59 +0100
Subject: [PATCH] Fix tests on ppc64[le] architecture

---
 t/01-environment.t | 5 +++--
 t/03-fastmode.t    | 4 +++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/t/01-environment.t b/t/01-environment.t
index f9ce875..5e6e975 100644
--- a/t/01-environment.t
+++ b/t/01-environment.t
@@ -1,7 +1,7 @@
 #!perl
 use strict;
 use warnings;
-use Test::More tests => 175;
+use Test::More tests => 174;
 use Test::Exception;
 use Encode;
 
@@ -55,7 +55,8 @@ throws_ok {
     isa_ok(my $stat = $env->stat, 'HASH', 'Get Stat');
     ok(exists $stat->{$_}, "Stat has $_")
 	for qw(psize depth branch_pages leaf_pages overflow_pages entries);
-    is($stat->{psize}, 4096, 'Default psize');
+    # psize differs on various platforms
+    #is($stat->{psize}, 4096, 'Default psize');
     is($stat->{$_}, 0, "$_ = 0, empty")
 	for qw(depth branch_pages leaf_pages overflow_pages entries);
 
diff --git a/t/03-fastmode.t b/t/03-fastmode.t
index 0c16687..688e365 100644
--- a/t/03-fastmode.t
+++ b/t/03-fastmode.t
@@ -19,7 +19,9 @@ ok(-d $dir, "Created test dir $dir");
 my $large1 = '0123456789' x 100_000;
 my $val;
 {
-    my $env = LMDB::Env->new($dir);
+    my $env = LMDB::Env->new($dir, {
+        mapsize => 100 * 1024 * 1024
+    });
     ok(my $DB = $env->BeginTxn->OpenDB, 'Open unamed');
     is($DB->dbi, 1, 'Opened');
     is($DB->put('A' => $large1), $large1, 'Put large value');
-- 
2.14.3