1*f2a19305Safresh1use strict; use warnings; 2b39c5158Smillertuse Fcntl; 3b39c5158Smillert 4*f2a19305Safresh1use lib 't/lib'; 5*f2a19305Safresh1use DBMTest 'GDBM_File', is_scalar_only => 1; 6b39c5158Smillert 7*f2a19305Safresh1test_dbm $file, &GDBM_File::GDBM_WRCREAT, 0666; 8*f2a19305Safresh1cleanup; 9