1#!./perl -w 2use strict; 3 4use Test::More; 5use Config; 6use File::Temp 'tempdir'; 7use File::Spec; 8 9BEGIN { 10 plan(skip_all => "GDBM_File was not built") 11 unless $Config{extensions} =~ /\bGDBM_File\b/; 12 13 # https://rt.perl.org/Public/Bug/Display.html?id=117967 14 plan(skip_all => "GDBM_File is flaky in $^O") 15 if $^O =~ /darwin/; 16 17 plan(tests => 3); 18 use_ok('GDBM_File'); 19 } 20 21my $wd = tempdir(CLEANUP => 1); 22 23my %h; 24my $db = tie(%h, 'GDBM_File', File::Spec->catfile($wd, 'Op_dbmx'), 25 GDBM_WRCREAT, 0640); 26 27isa_ok($db, 'GDBM_File'); 28SKIP: { 29 skip 'GDBM_File::count not available', 1 30 unless $db->can('count'); 31 32 $h{one} = '1'; 33 $h{two} = '2'; 34 $h{three} = '3'; 35 is($db->count, 3, 'count'); 36} 37 38