rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor portability fixes for new TAP script. 

Satisfy perlcritic, mostly.  Per buildfarm.
This commit is contained in:
Tom Lane 2020-01-02 19:44:43 -05:00
parent 44e44bd258
commit 90d7f6604b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/bin/psql/t/010_tab_completion.pl
View File

@ -6,7 +6,7 @@ use TestLib;
use Test::More; use Test::More;
use IPC::Run qw(pump finish timer); use IPC::Run qw(pump finish timer);
if ($ENV{with_readline} ne 'yes') if (!defined($ENV{with_readline}) || $ENV{with_readline} ne 'yes')
{ {
plan skip_all => 'readline is not supported by this build'; plan skip_all => 'readline is not supported by this build';
} }
@ -64,6 +64,7 @@ sub check_completion
ok($okay, $annotation); ok($okay, $annotation);
# for debugging, log actual output if it didn't match # for debugging, log actual output if it didn't match
note 'Actual output was "' . $out . "\"\n" if !$okay; note 'Actual output was "' . $out . "\"\n" if !$okay;
return;
} }
# Clear query buffer to start over # Clear query buffer to start over
@ -71,6 +72,7 @@ sub check_completion
sub clear_query sub clear_query
{ {
check_completion("\\r\n", "postgres=# ", "\\r works"); check_completion("\\r\n", "postgres=# ", "\\r works");
return;
} }
# check basic command completion: SEL<tab> produces SELECT<space> # check basic command completion: SEL<tab> produces SELECT<space>