diff options
| author | Tony Cook <tony@develop-help.com> | 2018-11-19 13:58:33 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2018-11-19 13:58:33 +1100 |
| commit | ea9daa76273fee4292f7efde2d112676dbd91e3b (patch) | |
| tree | cab5a25e021167f6b1dd30caa3f1671da9e50848 /ext/SDBM_File | |
| parent | 109d4d79df1dccafbfeec2f12d026af04b0a7ade (diff) | |
| download | perl-ea9daa76273fee4292f7efde2d112676dbd91e3b.tar.gz | |
(perl #132147) only test corrupt dbs on archs that match
The files were generated for little-endian, sizeof(short) == 2 platforms,
only run those tests on such platforms.
Diffstat (limited to 'ext/SDBM_File')
| -rw-r--r-- | ext/SDBM_File/t/corrupt.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ext/SDBM_File/t/corrupt.t b/ext/SDBM_File/t/corrupt.t index 30c7b507a2..f619b78b80 100644 --- a/ext/SDBM_File/t/corrupt.t +++ b/ext/SDBM_File/t/corrupt.t @@ -6,6 +6,12 @@ use File::Temp 'tempfile'; use SDBM_File; use Fcntl qw(O_RDWR); use Errno qw(EINVAL); +use Config; + +$Config{byteorder} =~ /^1234(?:5678)?$/ + or plan skip_all => "test SDBM databases are little-endian"; +$Config{shortsize} == 2 + or plan skip_all => "test SDBM databases have short size 2"; my ($dirfh, $dirname) = tempfile(UNLINK => 1); my ($pagfh, $pagname) = tempfile(UNLINK => 1); |