-
Notifications
You must be signed in to change notification settings - Fork 9
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
New v63003/gtm8889 subtest (tests GTM-8889 in V63003)
Tests the following release note: The ZHELP command does not report errors after the user presses a <CTRL-C>. Previously, when exiting after a <CTRLC>, the utility reported an UNDEF error and left a GT.M help dump file for analysis. (GTM-8889)
- Loading branch information
1 parent
fe205ca
commit 0071364
Showing
5 changed files
with
114 additions
and
1 deletion.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,36 @@ | ||
# Pressing Control C while in zhelp, would get an error in previous versions | ||
|
||
# Terminal Display: | ||
|
||
spawn /usr/local/bin/tcsh -f | ||
> # Expect the shell prompt | ||
stty cols 132 | ||
> YDB | ||
$ydb_dist/mumps -dir | ||
|
||
YDB>zhelp | ||
|
||
|
||
|
||
Additional information available: | ||
|
||
About_YottaDB Commands Err_Processing Functions | ||
Integrate_External Internationalization IO_Processing | ||
ISV Language_Extensions M_Lang_Features Opr_Dbg_Dir_Mode | ||
Program_Cycle Triggers Utility_Routines | ||
|
||
Topic? #<Ctrl-C> | ||
|
||
|
||
|
||
|
||
Additional information available: | ||
|
||
About_YottaDB Commands Err_Processing Functions | ||
Integrate_External Internationalization IO_Processing | ||
ISV Language_Extensions M_Lang_Features Opr_Dbg_Dir_Mode | ||
Program_Cycle Triggers Utility_Routines | ||
|
||
Topic? | ||
|
||
YDB>halt |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,29 @@ | ||
#!/usr/local/bin/tcsh -f | ||
################################################################# | ||
# # | ||
# Copyright (c) 2018 YottaDB LLC. and/or its subsidiaries. # | ||
# All rights reserved. # | ||
# # | ||
# This source code contains the intellectual property # | ||
# of its copyright holder(s), and is made available # | ||
# under a license. If you do not know the terms of # | ||
# the license, please stop and do not read further. # | ||
# # | ||
################################################################# | ||
# | ||
# | ||
# | ||
|
||
echo "# Pressing Control C while in zhelp, would get an error in previous versions" | ||
echo "" | ||
echo "# Terminal Display:" | ||
echo "" | ||
# Setting prompt explicitly so we can run on previous GTM versions too (which default to "GTM>") | ||
setenv gtm_prompt "YDB>" | ||
(expect -d $gtm_tst/$tst/u_inref/gtm8889.exp > expect.outx) >& expect.dbg | ||
if ($status) then | ||
echo "EXPECT Failed" | ||
endif | ||
perl $gtm_tst/com/expectsanitize.pl expect.outx > expect_sanitized.outx | ||
|
||
cat expect_sanitized.outx |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,46 @@ | ||
################################################################# | ||
# # | ||
# Copyright (c) 2018 YottaDB LLC. and/or its subsidiaries. # | ||
# All rights reserved. # | ||
# # | ||
# This source code contains the intellectual property # | ||
# of its copyright holder(s), and is made available # | ||
# under a license. If you do not know the terms of # | ||
# the license, please stop and do not read further. # | ||
# # | ||
################################################################# | ||
# | ||
set timeout 60 | ||
|
||
spawn /usr/local/bin/tcsh -f | ||
|
||
expect_after { | ||
timeout { timeout_procedure } | ||
} | ||
|
||
proc timeout_procedure { } { | ||
puts "timeout occurred" | ||
exit -1 | ||
} | ||
|
||
expect -exact ">" | ||
puts "# Expect the shell prompt" | ||
|
||
# Have columns higher than 80 as that can cause test failures on lines that are just above 80 columns in length | ||
send -- "stty cols 132\r" | ||
expect "stty cols 132\r" | ||
|
||
expect -exact ">" | ||
puts "YDB" | ||
send -- "\$ydb_dist/mumps -dir\r" | ||
expect -exact "YDB>" | ||
send "zhelp\r" | ||
expect "Topic?" | ||
puts "#<Ctrl-C>" | ||
send "\x03\r" | ||
send "\r" | ||
expect -exact "YDB>" | ||
send "halt\r" | ||
expect ">" | ||
send "exit\r" | ||
|