96 lines
3.7 KiB
Text
96 lines
3.7 KiB
Text
#
|
|
# This is sort of a prototype test case, which parses the listing output
|
|
# from the assembler. Later, more prototypes should be added for cases
|
|
# where objdump gets run over the .o file, and anything else like that...
|
|
#
|
|
# When you write a test case that uses the listing output, just copy this
|
|
# file (trimming down the overly-verbose comments a little), and
|
|
# adjust it to do what you need.
|
|
#
|
|
# Remember that any ".exp" file found in the tree will be processed by
|
|
# dejagnu.
|
|
|
|
#
|
|
# FIRST SAMPLE TEST CASE
|
|
#
|
|
|
|
proc do_foo {} {
|
|
# This string is used below when printing out a success or failure message.
|
|
# If more than one test is run by a given .exp file, it'd be nice to include
|
|
# the name of the input file.
|
|
set testname "foo.s: multi-register tweaking and frobnication"
|
|
|
|
# I use this as a flag to record whether the test case passed. If this
|
|
# flag is still clear when EOF is reached, this test fails. If there are
|
|
# two or more patterns, and I need to see all of them, I'll create N variables
|
|
# and check if the sum is N.
|
|
set x 0
|
|
|
|
# Call gas_start with two arguments: The input file name (which it'll search
|
|
# for in $srcdir/$subdir, that is, the source directory where the .exp file
|
|
# is), and a (possibly empty) string of options to pass to the assembler.
|
|
gas_start "foo.s" "-al"
|
|
|
|
# Now I just iterate over all the output lines, looking for what I want
|
|
# to see. Since each pattern explicitly will not span line breaks, there's
|
|
# also a pattern for lines that don't match anything else. (Is it safe to
|
|
# use ".*" for patterns not crossing line breaks? I don't think "$" does the
|
|
# right thing for that, in any case. I should check into whether the extra
|
|
# pattern is even needed.
|
|
|
|
# Apparently CRLF is received when using ptys for subprocesses; hence the
|
|
# \r\n for matching line number 3.
|
|
|
|
# Note that if you use "{ ... }" for the expect clause, you can't have
|
|
# comments inside it.
|
|
|
|
# This test case is kinda bogus in that seeing either a word of all zeros
|
|
# at address zero or a C-style comment on line three that says "Looking for
|
|
# C comments" (with very specific punctuation and whitespace) will cause
|
|
# it to pass this test. Usually
|
|
while 1 {
|
|
expect {
|
|
-re "^ +\[0-9\]+ 0000 00000000\[^\n\]*\n" { set x 1 }
|
|
-re "^ +3\[ \t\]+/. Looking for C comments. ./\r\n" { set x 1 }
|
|
-re "\[^\n\]*\n" { }
|
|
timeout { error "timeout\n"; break }
|
|
eof { break }
|
|
}
|
|
}
|
|
# This was intended to do any cleanup necessary. It kinda looks like it isn't
|
|
# needed, but just in case, please keep it in for now.
|
|
gas_finish
|
|
|
|
# Did we find what we were looking for? If not, flunk it.
|
|
if $x then { pass $testname } else { fail $testname }
|
|
}
|
|
|
|
# Now actually run the test. It can be conditionalized if the test is
|
|
# not appropriate for all targets. The proc "istarget" checks a generalized
|
|
# form of the target name, so that (e.g.) "m68332-unknown-aout" would match
|
|
# here. So far, I think only the CPU name is actually ever altered.
|
|
if [istarget m68k-*] then {
|
|
do_foo
|
|
}
|
|
|
|
|
|
|
|
|
|
#
|
|
# SECOND SAMPLE TEST CASE
|
|
#
|
|
|
|
# This is a tiny bit like the C compiler torture tests, in that it'll run
|
|
# the assembler with the power set of the list of options supplied.
|
|
#
|
|
# The first argument is the test file name; the second is arguments that
|
|
# are always to be provided; the third is a space-separated list of options
|
|
# which are optional (ending in ">" if output should be ignored, like "-a>");
|
|
# the fourth is the name of the test. So far, only binary options are handled
|
|
# this way; N-way options (like CPU type for m68k) aren't handled yet.
|
|
#
|
|
# The variable $stdoptlist usually has a reasonable set of optional options
|
|
# for this target.
|
|
|
|
# No, PIC isn't supported yet. This is only an example.
|
|
gas_test "quux.s" "-K" $stdoptlist "use of quuxes in PIC mode"
|