Attachment 907181 Details for Bug 1104827 – Automated test case for GDBM_File, NDBM_File, ODBM_File, SDBM_File

Automated test case for GDBM_File, NDBM_File, ODBM_File, SDBM_File

testcase (text/plain), 1.12 KB, created by Petr Pisar on 2014-06-10 11:51:20 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Petr Pisar

Created: 2014-06-10 11:51:20 UTC

Size: 1.12 KB

patch

obsolete

>#!/usr/bin/perl
>use strict;
>use warnings;
>use Test::More tests => 4 * 8;
>
>use Config;
>use Fcntl;
>use File::Spec;
>use File::Temp;
>use threads;
>
>for my $DBM_Class (qw(GDBM_File NDBM_File ODBM_File SDBM_File)){
>    SKIP: {
>        skip "$DBM_Class was not built", 8
>            unless $Config{extensions} =~ /\b$DBM_Class\b/;
>
>        my $directory = File::Temp::tempdir(CLEANUP => 1);
>        ok($directory, 'Temporary directory created');
>
>        use_ok($DBM_Class);
>
>        my %h;
>        my $db = tie %h, $DBM_Class, File::Spec->catfile($directory, 'file'),
>            O_RDWR()|O_CREAT(), 0640;
>        isa_ok($db, $DBM_Class);
>
>        for (1 .. 2) {
>            ok(threads->create(
>                sub {
>                    $SIG{'__WARN__'} = sub { fail(shift) };
>                        # debugging perl panics
>                        # report it by spurious TAP line
>                    1;
>                }), "Thread $_ created");
>        }
>        for (threads->list) {
>            is($_->join, 1, "A thread exited successfully");
>        }
>
>        pass("Tied object survived exiting threads");
>
>        undef $db;
>        untie %h;
>    }
>}

Actions: View

Attachments on bug 1104827: 902406 | 902531 | 907058 | 907181 | 907248