Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-09 12:23:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

tests: refactor checks on sets

Browse Source 
It will be convenient to check sets elsewhere.

* tests/sets.at (AT_EXTRACT_SETS): Transform into...
* tests/local.at (AT_SETS_CHECK): this.
* tests/sets.at: Adjust.
This commit is contained in:
Akim Demaille
2019-05-02 15:40:14 +02:00
parent 65126716d7
commit 7f017ae1c9
2 changed files with 25 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
tests/local.at
View File

@@ -1353,6 +1353,29 @@ m4_popdef([AT_COND_CASE])])
# AT_SETS_CHECK(INPUT, SETS, EXPECTED)
# ------------------------------------
# Extract the information about the grammar sets from a bison
# trace output (INPUT), and compare to EXPECTED.
#
# And remember, there is no alternation in portable sed.
m4_define([AT_SETS_CHECK],
[AT_DATA([extract.sed],
[[#n
]m4_foreach([m4_Set], [$2], [[
/^]m4_Set[/ {
:]m4_Set[
p
n
/^ *$/ !b ]m4_Set[
}
]])])
AT_CHECK([sed -f extract.sed $1], 0, [$3])
])
## ----------------------- ##
## Launch the test suite. ##

45
tests/sets.at
View File

@@ -17,45 +17,6 @@
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# AT_EXTRACT_SETS(INPUT, OUTPUT)
# ------------------------------
# Extract the information about the grammar sets from a bison
# trace output (INPUT), and save it in OUTPUT.
# And remember, there is no alternation in portable sed.
m4_define([AT_EXTRACT_SETS],
[AT_DATA([extract.sed],
[[#n
/^NULLABLE$/ {
:null
p
n
/^ *$/ !b null
}
/^FIRSTS$/ {
:firsts
p
n
/^ *$/ !b firsts
}
/^FDERIVES$/ {
:fderiv
p
n
/^ *$/ !b fderiv
}
/^DERIVES$/ {
:deriv
p
n
/^ *$/ !b deriv
}
]])
AT_CHECK([sed -f extract.sed $1], 0, [stdout])
AT_CHECK([mv stdout $2])
])
AT_BANNER([[Grammar Sets (Firsts etc.).]])
@@ -79,8 +40,7 @@ e: 'e' | /* Nothing */;
]])
AT_BISON_CHECK([[--trace=sets input.y]], [], [], [stderr])
AT_EXTRACT_SETS([stderr], [sets])
AT_CHECK([[cat sets]], [],
AT_SETS_CHECK([stderr], [[DERIVES], [NULLABLE], [FIRSTS], [FDERIVES]],
[[DERIVES
$accept derives
0 e $end
@@ -209,8 +169,7 @@ exp:
]])
AT_BISON_CHECK([[--trace=sets input.y]], [], [], [stderr])
AT_EXTRACT_SETS([stderr], [sets])
AT_CHECK([[cat sets]], [],
AT_SETS_CHECK([stderr], [[DERIVES], [NULLABLE], [FIRSTS], [FDERIVES]],
[[DERIVES
$accept derives
0 exp $end