Re: Supporting TAP tests with MSVC and Windows

On Fri, Jul 24, 2015 at 08:27:42PM +0300, Heikki Linnakangas wrote:
> On 06/25/2015 07:40 AM, Michael Paquier wrote:
> >Attached is v7, rebased on 0b157a0.
>
> Thanks! I fiddled with this a bit more, to centralize more of the
> platform-dependent stuff to RewindTest.pm. Also, Windows doesn't have "cat"
> and "touch" if you haven't installed MinGW, so I replaced those calls with
> built-in perl code.

My main priority for this patch is to not reintroduce CVE-2014-0067. The
patch is operating in a security minefield:

> --- a/src/bin/pg_ctl/t/001_start_stop.pl
> +++ b/src/bin/pg_ctl/t/001_start_stop.pl
> @@ -15,13 +15,9 @@ command_exit_is([ 'pg_ctl', 'start', '-D', "$tempdir/nonexistent" ],
>
> command_ok([ 'pg_ctl', 'initdb', '-D', "$tempdir/data" ], 'pg_ctl initdb');
> command_ok(
> - [ "$ENV{top_builddir}/src/test/regress/pg_regress", '--config-auth',
> + [ $ENV{PG_REGRESS}, '--config-auth',
> "$tempdir/data" ],
> 'configure authentication');
> -open CONF, ">>$tempdir/data/postgresql.conf";
> -print CONF "listen_addresses = ''\n";
> -print CONF "unix_socket_directories = '$tempdir_short'\n";
> -close CONF;
> command_ok([ 'pg_ctl', 'start', '-D', "$tempdir/data", '-w' ],
> 'pg_ctl start -w');

Since this series of tests doesn't use standard_initdb, the deleted lines
remain necessary.

> @@ -303,7 +297,6 @@ sub run_pg_rewind
> }
> else
> {
> -
> # Cannot come here normally

Unrelated change.

> sub standard_initdb
> {
> my $pgdata = shift;
> system_or_bail('initdb', '-D', "$pgdata", '-A' , 'trust', '-N');
> - system_or_bail("$ENV{top_builddir}/src/test/regress/pg_regress",
> - '--config-auth', $pgdata);
> + system_or_bail($ENV{PG_REGRESS}, '--config-auth', $pgdata);
> +
> + my $tempdir_short = tempdir_short;
> +
> + open CONF, ">>$pgdata/postgresql.conf";
> + print CONF "\n# Added by TestLib.pm)\n";
> + if ($Config{osname} eq "MSWin32")
> + {
> + print CONF "listen_addresses = '127.0.0.1'\n";
> + }
> + else
> + {
> + print CONF "unix_socket_directories = '$tempdir_short'\n";

This second branch needs listen_addresses=''; it doesn't help to secure the
socket directory if the server still listens on localhost.

> +sub configure_hba_for_replication
> +{
> + my $pgdata = shift;
> +
> + open HBA, ">>$pgdata/pg_hba.conf";
> + print HBA "\n# Allow replication (set up by TestLib.pm)\n";
> + if ($Config{osname} ne "MSWin32")
> + {
> + print HBA "local replication all trust\n";
> + }
> + else
> + {
> + print HBA "host replication all 127.0.0.1/32 sspi include_realm=1 map=regress\n";
> + print HBA "host replication all ::1/128 sspi include_realm=1 map=regress\n";

The second line will make the server fail to start on non-IPv6 systems. You
shouldn't need it if the clients always connect to 127.0.0.1, not "localhost".

> + configure_for_replication("$tempdir/pgdata");

That function name appears nowhere else.

> +sub tapcheck
> +{
> + InstallTemp();
> +
> + my @args = ( "prove", "--verbose", "t/*.pl");
> +
> + $ENV{PATH} = "$tmp_installdir/bin;$ENV{PATH}";
> + $ENV{PERL5LIB} = "$topdir/src/test/perl;$ENV{PERL5LIB}";
> + $ENV{PG_REGRESS} = "$topdir/$Config/pg_regress/pg_regress";
> +
> + # Find out all the existing TAP tests by simply looking for t/
> + # in the tree.

This target shall not run the SSL suite, for the same reason check-world shall
not run it. We could offer a distinct vcregress.pl target for TAP suites
excluded from check-world.

nm