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