mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
5cbeb50890
Speaking more specifically, for the tests that don't require reconnection. It seems this makes it easier to find memory leaks by DBD::SQLite itself.
64 lines
1.5 KiB
Perl
64 lines
1.5 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
use t::lib::Test;
|
|
use DBI;
|
|
|
|
BEGIN {
|
|
plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608;
|
|
}
|
|
|
|
plan tests => 6;
|
|
|
|
# Connect to the test db and add some stuff:
|
|
my $foo = connect_ok( dbfile => 'foo', RaiseError => 1 );
|
|
$foo->do(
|
|
'CREATE TABLE online_backup_test( id INTEGER PRIMARY KEY, foo INTEGER )'
|
|
);
|
|
$foo->do("INSERT INTO online_backup_test (foo) VALUES ($$)");
|
|
|
|
# That should be in the "foo" database on disk now, so disconnect and try to
|
|
# back it up:
|
|
|
|
$foo->disconnect;
|
|
|
|
my $dbh = DBI->connect(
|
|
'dbi:SQLite:dbname=:memory:',
|
|
undef, undef,
|
|
{ RaiseError => 1 }
|
|
);
|
|
|
|
ok($dbh->sqlite_backup_from_file('foo'));
|
|
|
|
{
|
|
my ($count) = $dbh->selectrow_array(
|
|
"SELECT count(foo) FROM online_backup_test WHERE foo=$$"
|
|
);
|
|
is($count, 1, "Found our process ID in backed-up table");
|
|
}
|
|
|
|
# Add more data then attempt to copy it back to file:
|
|
$dbh->do(
|
|
'CREATE TABLE online_backup_test2 ( id INTEGER PRIMARY KEY, foo INTEGER )'
|
|
);
|
|
$dbh->do("INSERT INTO online_backup_test2 (foo) VALUES ($$)");
|
|
|
|
# backup to file (foo):
|
|
ok($dbh->sqlite_backup_to_file('foo'));
|
|
|
|
$dbh->disconnect;
|
|
|
|
# Reconnect to foo db and check data made it over:
|
|
{
|
|
my $foo = connect_ok( dbfile => 'foo', RaiseError => 1 );
|
|
|
|
my ($count) = $foo->selectrow_array(
|
|
"SELECT count(foo) FROM online_backup_test2 WHERE foo=$$"
|
|
);
|
|
is($count, 1, "Found our process ID in table back on disk");
|
|
|
|
$foo->disconnect;
|
|
}
|