diff options
Diffstat (limited to 'gdb/testsuite/gdb.gdbtk/c_variable.exp')
-rw-r--r-- | gdb/testsuite/gdb.gdbtk/c_variable.exp | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/c_variable.exp b/gdb/testsuite/gdb.gdbtk/c_variable.exp new file mode 100644 index 00000000000..8452034fe83 --- /dev/null +++ b/gdb/testsuite/gdb.gdbtk/c_variable.exp @@ -0,0 +1,34 @@ +# +# Check if we have a display +# +if {![info exists ::env(DISPLAY)]} { + untested "No DISPLAY -- skipping test" +} else { + + if {$tracelevel} { + strace $tracelevel + } + + # + # test variable API + # + set prms_id 0 + set bug_id 0 + + set testfile "c_variable" + set srcfile ${testfile}.c + set binfile ${objdir}/${subdir}/${testfile} + set r [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] + if { $r != "" } { + gdb_suppress_entire_file \ + "Testcase compile failed, so some tests in this file will automatically fail." + } + + # Start with a fresh gdbtk + gdb_exit + set results [gdbtk_start [file join $srcdir $subdir ${testfile}.test]] + set results [split $results \n] + + # Analyze results + gdbtk_analyze_results $results +} |