db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-04-11 11:22:01 +02:00
Code Issues Releases Activity

Working on unit tests.

Browse Source
This commit is contained in:
David Steele 2013-11-23 20:05:04 -05:00
parent 5d0251be2f
commit 2be8c5d9e7
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
test/test.pl
View File

@ -78,8 +78,12 @@ sub pg_execute
{
local($dbh, $strSql) = @_;
print($strSql);
$sth = $dbh->prepare($strSql);
$sth->execute();
$sth->finish();
print(" ... complete\n\n");
}
my $strUser = execute('whoami');
@ -89,6 +93,7 @@ my $strDbDir = "db";
my $strArchiveDir = "archive";
my $strPgBinPath = "/Library/PostgreSQL/9.3/bin";
my $strPort = "6000";
my $strBackRestBinPath = "/Users/dsteele/pg_backrest";
my $strArchiveCommand = "$strBackRestBinPath/pg_backrest.pl archive-local %p $strTestPath/$strArchiveDir/%f";
@ -105,13 +110,15 @@ if ($@)
pg_drop($strTestPath);
pg_create($strPgBinPath, $strTestPath, $strDbDir, $strArchiveDir);
pg_start($strPgBinPath, "$strTestPath/$strDbDir", "6000", $strArchiveCommand);
pg_start($strPgBinPath, "$strTestPath/$strDbDir", $strPort, $strArchiveCommand);
pg_password_set($strPgBinPath, "$strTestPath/$strDbDir", $strUser);
################################################################################
# Connect and start
# Connect and start tests
################################################################################
$dbh = DBI->connect("dbi:Pg:dbname=postgres;port=6000;host=127.0.0.1", 'dsteele', 'password', {AutoCommit => 1});
$dbh = DBI->connect("dbi:Pg:dbname=postgres;port=6000;host=127.0.0.1", $strUser,
'password', {AutoCommit => 1});
pg_execute($dbh, "create table test (id int)");
pg_execute($dbh, "insert into test values (1)");
@ -123,4 +130,9 @@ pg_execute($dbh, "select pg_switch_xlog()");
pg_execute($dbh, "insert into test values (3)");
pg_execute($dbh, "select pg_switch_xlog()");
#pg_stop($strTestPath);
$dbh->disconnect();
################################################################################
# Stop the server
################################################################################
pg_stop($strPgBinPath, "$strTestPath/$strDbDir");