use strict;
use warnings;

use Test::More tests => 1;

my $want = q{su - admin -c "psql -p 5555 mcdb -c \\"update ev_cus_prof set active='f' where epid='INIT_EV_HIGH_PRIORITY';\\""};

my $PSQL = q{psql -p 5555 mcdb -c \"update ev_cus_prof set active='f' where epid='INIT_EV_HIGH_PRIORITY';\"};
my $cmd = qq{su - admin -c "$PSQL"};
is $cmd, $want, "have $want";