diff options
author | Jason Molenda <jsm@bugshack.cygnus.com> | 2000-02-07 00:19:45 +0000 |
---|---|---|
committer | Jason Molenda <jsm@bugshack.cygnus.com> | 2000-02-07 00:19:45 +0000 |
commit | 4a0a51e37f1d7dd770d0306310c82c3aaeb8baa7 (patch) | |
tree | 9af57893831870241bb5ce54310653be97a51621 /gdb/testsuite/gdb.gdbtk/cpp_variable.exp | |
parent | b7ebfe07f32e9873605d6ff420e63f1c9b627559 (diff) | |
download | gdb-4a0a51e37f1d7dd770d0306310c82c3aaeb8baa7.tar.gz |
Initial revision
Diffstat (limited to 'gdb/testsuite/gdb.gdbtk/cpp_variable.exp')
-rw-r--r-- | gdb/testsuite/gdb.gdbtk/cpp_variable.exp | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/cpp_variable.exp b/gdb/testsuite/gdb.gdbtk/cpp_variable.exp new file mode 100644 index 00000000000..ed5ca35dc67 --- /dev/null +++ b/gdb/testsuite/gdb.gdbtk/cpp_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 "cpp_variable" + set srcfile ${testfile}.cc + set binfile ${objdir}/${subdir}/${testfile} + set r [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] + 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 +} |