You've already forked pgbackrest
mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2026-05-22 10:15:16 +02:00
Migrate integration tests to C.
The Perl integration tests were migrated as faithfully as possible, but there was some cruft and a few unit tests that it did not make sense to migrate. Also remove all Perl code made obsolete by this migration. All unit, performance, and integration tests are now written in C but significant parts of the test harness remain to be migrated.
This commit is contained in:
@@ -26,7 +26,31 @@ use pgBackRestTest::Common::ContainerTest;
|
||||
use pgBackRestTest::Common::DefineTest;
|
||||
use pgBackRestTest::Common::ExecuteTest;
|
||||
use pgBackRestTest::Common::ListTest;
|
||||
use pgBackRestTest::Common::RunTest;
|
||||
|
||||
####################################################################################################################################
|
||||
# testRunName
|
||||
#
|
||||
# Create module/test names by upper-casing the first letter and then inserting capitals after each -.
|
||||
####################################################################################################################################
|
||||
sub testRunName
|
||||
{
|
||||
my $strName = shift;
|
||||
my $bInitCapFirst = shift;
|
||||
|
||||
$bInitCapFirst = defined($bInitCapFirst) ? $bInitCapFirst : true;
|
||||
my $bFirst = true;
|
||||
|
||||
my @stryName = split('\-', $strName);
|
||||
$strName = undef;
|
||||
|
||||
foreach my $strPart (@stryName)
|
||||
{
|
||||
$strName .= ($bFirst && $bInitCapFirst) || !$bFirst ? ucfirst($strPart) : $strPart;
|
||||
$bFirst = false;
|
||||
}
|
||||
|
||||
return $strName;
|
||||
}
|
||||
|
||||
####################################################################################################################################
|
||||
# Generate an lcov configuration file
|
||||
|
||||
Reference in New Issue
Block a user