1#!./perl 2use strict; 3use Test::More tests => 4; 4 5use SDBM_File; 6 7# has always been .pag 8is(SDBM_File::PAGFEXT, ".pag", "PAGFEXT"); 9 10# depends on the platform 11like(SDBM_File::DIRFEXT, qr/^\.(?:sdbm_)?dir$/, "DIRFEXT"); 12 13is(SDBM_File::PAIRMAX, 1008, "PAIRMAX"); 14 15ok(eval { SDBM_File->import(qw(PAIRMAX PAGFEXT DIRFEXT)); 1 }, "exportable"); 16 17