1use strict; use warnings; 2use Fcntl; 3 4use lib 't/lib'; 5use DBMTest 'GDBM_File', is_scalar_only => 1; 6 7test_dbm $file, &GDBM_File::GDBM_WRCREAT, 0666; 8cleanup; 9