%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/share/postgresql-common/t/
Upload File :
Create Path :
Current File : //usr/share/postgresql-common/t/135_pg_virtualenv.t

# check if pg_virtualenv runs ok, even under fakeroot

use strict;
use warnings;

use lib 't';
use TestLib;

use Test::More tests => 12 * @MAJORS + 8;

foreach my $v (@MAJORS) {
    my $args = 'sh -c \'echo "id|$(id -un)"; psql -AtXxc "SELECT current_user"\'';
    my $virtualenv = "pg_virtualenv -v $v $args";

    $ENV{USER} = 'root';
    like_program_out 'root',     $virtualenv, 0, qr!id.root\ncurrent_user.postgres!,     "running pg_virtualenv as root";
    $ENV{USER} = 'postgres';
    like_program_out 'postgres', $virtualenv, 0, qr!id.postgres\ncurrent_user.postgres!, "running pg_virtualenv as postgres";
    $ENV{USER} = 'nobody';
    like_program_out 'nobody',   $virtualenv, 0, qr!id.nobody\ncurrent_user.nobody!,     "running pg_virtualenv as nobody";

    SKIP: {
        skip "/usr/bin/fakeroot not available", 6 unless (-x "/usr/bin/fakeroot"); # CentOS doesn't have fakeroot
        $ENV{USER} = 'root';
        like_program_out 'root',     "fakeroot $virtualenv", 0, qr!id.root\ncurrent_user.postgres!, "running fakeroot pg_virtualenv as root";
        $ENV{USER} = 'postgres';
        like_program_out 'postgres', "fakeroot $virtualenv", 0, qr!id.root\ncurrent_user.postgres!, "running fakeroot pg_virtualenv as postgres";
        $ENV{USER} = 'nobody';
        like_program_out 'nobody',   "fakeroot $virtualenv", 0, qr!id.root\ncurrent_user.nobody!,   "running fakeroot pg_virtualenv as nobody";
    }
}

check_clean;

# vim: filetype=perl

Zerion Mini Shell 1.0