Attachment 309615 Details for Bug 451791 – test script

test script

t07busy8-lock (text/plain), 1017 bytes, created by Stepan Kasal on 2008-06-17 13:28:33 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Stepan Kasal

Created: 2008-06-17 13:28:33 UTC

Size: 1017 bytes

patch

obsolete

>#!/usr/bin/perl
>
>use DBI;
>
>unlink('foo', 'foo-journal');
>
>my $db = DBI->connect('dbi:SQLite:foo', '', '', 
>{
>    RaiseError => 1,
>    PrintError => 0,
>    AutoCommit => 0,
>});
>
>$db->do("CREATE TABLE Blah ( id INTEGER, val VARCHAR )");
>$db->commit;
>
>pipe(READER, WRITER);
>my $pid = fork;
>if (!defined($pid)) {
>    # fork failed
>    skip("No fork here", 1);
>    skip("No fork here", 1);
>} elsif (!$pid) {
>    # child
>    close READER;
>    my $db2 = DBI->connect('dbi:SQLite:foo', '', '', 
>    {
>        RaiseError => 1,
>        PrintError => 0,
>        AutoCommit => 0,
>    });
>    $db2->do("INSERT INTO Blah VALUES ( 3, 'Test3' )");
>    select WRITER; $| = 1; select STDOUT;
>    print WRITER "Ready\n";
>    # sleep(5);
>    $db2->commit;
>    $db2->disconnect;
>} else {
>    # parent
>    close WRITER;
>
>    my $line = <READER>;
>    print $line;
>    $db->func(10000, 'busy_timeout');
>    $db->do("INSERT INTO Blah VALUES (4, 'Test4' )");
>    $db->commit;
>    wait;
>    $db->disconnect;
>    unlink('foo', 'foo-journal');
>}

Actions: View

Attachments on bug 451791: 309615