From 01bb8ae21712d3bab740fdbaf509499bec801594 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Thu, 25 Aug 2011 14:29:47 +0000 Subject: [PATCH] simple.cc: New file. * testsuite/libstdc++-prettyprinters/simple.cc: New file. * testsuite/lib/gdb-test.exp: New file. * testsuite/libstdc++-prettyprinters/prettyprinters.exp: New file. From-SVN: r178066 --- libstdc++-v3/ChangeLog | 7 + libstdc++-v3/testsuite/lib/gdb-test.exp | 198 ++++++++++++++++++ .../prettyprinters.exp | 51 +++++ .../libstdc++-prettyprinters/simple.cc | 87 ++++++++ 4 files changed, 343 insertions(+) create mode 100644 libstdc++-v3/testsuite/lib/gdb-test.exp create mode 100644 libstdc++-v3/testsuite/libstdc++-prettyprinters/prettyprinters.exp create mode 100644 libstdc++-v3/testsuite/libstdc++-prettyprinters/simple.cc diff --git a/libstdc++-v3/ChangeLog b/libstdc++-v3/ChangeLog index cd89789538ea..d0bd7d993d3f 100644 --- a/libstdc++-v3/ChangeLog +++ b/libstdc++-v3/ChangeLog @@ -1,3 +1,10 @@ +2011-08-25 Tom Tromey + + * testsuite/libstdc++-prettyprinters/simple.cc: New file. + * testsuite/lib/gdb-test.exp: New file. + * testsuite/libstdc++-prettyprinters/prettyprinters.exp: New + file. + 2011-08-18 Marc Glisse * include/tr1/cmath: Extend/update comment. diff --git a/libstdc++-v3/testsuite/lib/gdb-test.exp b/libstdc++-v3/testsuite/lib/gdb-test.exp new file mode 100644 index 000000000000..032b66c7d2a9 --- /dev/null +++ b/libstdc++-v3/testsuite/lib/gdb-test.exp @@ -0,0 +1,198 @@ +# Copyright (C) 2009, 2011 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with GCC; see the file COPYING3. If not see +# . + +global gdb_tests +set gdb_tests {} + +# Scan a file for markers and fill in the gdb_marker array for that +# file. Any error in this script is simply thrown; errors here are +# programming errors in the test suite itself and should not be +# caught. +proc scan_gdb_markers {filename} { + global gdb_markers + + if {[info exists gdb_markers($filename,-)]} { + return + } + + set fd [open $filename] + set lineno 1 + while {! [eof $fd]} { + set line [gets $fd] + if {[regexp -- "Mark (\[a-zA-Z0-9\]+)" $line ignore marker]} { + set gdb_markers($filename,$marker) $lineno + } + incr lineno + } + close $fd + + set gdb_markers($filename,-) {} +} + +# Find a marker in a source file, and return the marker's line number. +proc get_line_number {filename marker} { + global gdb_markers + + scan_gdb_markers $filename + return $gdb_markers($filename,$marker) +} + +# Make note of a gdb test. A test consists of a variable name and an +# expected result. +proc note-test {var result} { + global gdb_tests + + lappend gdb_tests $var $result +} + +# Utility for testing variable values using gdb, invoked via dg-final. +# Tests all tests indicated by note-test. +# +# Argument 0 is the marker on which to put a breakpoint +# Argument 2 handles expected failures and the like +proc gdb-test { marker {selector {}} } { + if { ![isnative] || [is_remote target] } { return } + + if {[string length $selector] > 0} { + switch [dg-process-target $selector] { + "S" { } + "N" { return } + "F" { setup_xfail "*-*-*" } + "P" { } + } + } + + # This assumes that we are three frames down from dg-test, and that + # it still stores the filename of the testcase in a local variable "name". + # A cleaner solution would require a new DejaGnu release. + upvar 2 name testcase + upvar 2 prog prog + + set line [get_line_number $prog $marker] + + set gdb_name $::env(GUALITY_GDB_NAME) + set testname "$testcase" + set output_file "[file rootname [file tail $prog]].exe" + set cmd_file "[file rootname [file tail $prog]].gdb" + + global srcdir + set pycode [file join $srcdir .. python libstdcxx v6 printers.py] + + global gdb_tests + + set fd [open $cmd_file "w"] + puts $fd "source $pycode" + puts $fd "python register_libstdcxx_printers(None)" + puts $fd "break $line" + puts $fd "run" + + set count 0 + foreach {var result} $gdb_tests { + puts $fd "print $var" + incr count + set gdb_var($count) $var + set gdb_expected($count) $result + } + set gdb_tests {} + + puts $fd "quit" + close $fd + + send_log "Spawning: $gdb_name -nx -nw -quiet -batch -x $cmd_file ./$output_file\n" + set res [remote_spawn target "$gdb_name -nx -nw -quiet -batch -x $cmd_file ./$output_file"] + if { $res < 0 || $res == "" } { + unsupported "$testname" + return + } + + remote_expect target [timeout_value] { + -re {^\$([0-9]+) = ([^\n\r]*)[\n\r]+} { + set num $expect_out(1,string) + set first $expect_out(2,string) + if { ![string compare $first $gdb_expected($num)] } { + pass "$testname print $gdb_var($num)" + } else { + fail "$testname print $gdb_var($num)" + verbose " got =>$first<=" + verbose "expected =>$gdb_expected($num)<=" + } + + if {$num == $count} { + remote_close target + return + } else { + exp_continue + } + } + + -re {Python scripting is not supported in this copy of GDB.[\n\r]+} { + unsupported "$testname" + remote_close target + return + } + + -re {^[^$][^\n\r]*[\n\r]+} { + verbose "skipping: $expect_out(buffer)" + exp_continue + } + + timeout { + unsupported "$testname" + remote_close target + return + } + } + + remote_close target + unsupported "$testname" + return +} + +# Check for a new-enough version of gdb. The pretty-printer tests +# require gdb 7.3, but we don't want to test versions, so instead we +# check for the python "lookup_global_symbol" method, which is in 7.3 +# but not earlier versions. +# Return 1 if the version is ok, 0 otherwise. +proc gdb_version_check {} { + global gdb_version + + set gdb_name $::env(GUALITY_GDB_NAME) + set cmd "$gdb_name -nw -nx -quiet -batch -ex \"python print gdb.lookup_global_symbol\"" + send_log "Spawning: $cmd\n" + set res [remote_spawn target "$cmd"] + if { $res < 0 || $res == "" } { + return 0 + } + + remote_expect target [timeout_value] { + -re "" { + return 1 + } + + -re {^[^\n\r]*[\n\r]+} { + verbose "skipping: $expect_out(buffer)" + exp_continue + } + + timeout { + remote_close target + return 0 + } + } + + remote_close target + return 0 +} diff --git a/libstdc++-v3/testsuite/libstdc++-prettyprinters/prettyprinters.exp b/libstdc++-v3/testsuite/libstdc++-prettyprinters/prettyprinters.exp new file mode 100644 index 000000000000..4098dab70f76 --- /dev/null +++ b/libstdc++-v3/testsuite/libstdc++-prettyprinters/prettyprinters.exp @@ -0,0 +1,51 @@ +# Copyright (C) 2011 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; see the file COPYING3. If not see +# . + +load_lib gdb-test.exp + +dg-init +v3-build_support + +global GDB +if ![info exists ::env(GUALITY_GDB_NAME)] { + if [info exists GDB] { + set guality_gdb_name "$GDB" + } else { + set guality_gdb_name "[transform gdb]" + } + setenv GUALITY_GDB_NAME "$guality_gdb_name" +} + +if {! [gdb_version_check]} { + unsupported "prettyprinters.exp" + return +} + +# This can be used to keep the .exe around. dg-test has an option for +# this but there is no way to pass it through dg-runtest. +global dg-interpreter-batch-mode +set dg-interpreter-batch-mode 1 + +global DEFAULT_CXXFLAGS +global PCH_CXXFLAGS +dg-runtest [lsort [glob $srcdir/$subdir/*.cc]] \ + "" "$DEFAULT_CXXFLAGS $PCH_CXXFLAGS" + +if [info exists guality_gdb_name] { + unsetenv GUALITY_GDB_NAME +} + +dg-finish diff --git a/libstdc++-v3/testsuite/libstdc++-prettyprinters/simple.cc b/libstdc++-v3/testsuite/libstdc++-prettyprinters/simple.cc new file mode 100644 index 000000000000..2cccb622355a --- /dev/null +++ b/libstdc++-v3/testsuite/libstdc++-prettyprinters/simple.cc @@ -0,0 +1,87 @@ +// { dg-do run } +// { dg-options "-g" } + +// Copyright (C) 2011 Free Software Foundation, Inc. +// +// This file is part of the GNU ISO C++ Library. This library is free +// software; you can redistribute it and/or modify it under the +// terms of the GNU General Public License as published by the +// Free Software Foundation; either version 3, or (at your option) +// any later version. + +// This library is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. + +// You should have received a copy of the GNU General Public License along +// with this library; see the file COPYING3. If not see +// . + +#include +#include +#include +#include +#include +#include + +template +void +placeholder(const T &s) +{ + std::cout << s; +} + +template +void +placeholder(const std::pair &s) +{ + std::cout << s.first; +} + +template +void +use(const T &container) +{ + for (typename T::const_iterator i = container.begin(); + i != container.end(); + ++i) + placeholder(*i); +} + +int +main() +{ + std::string str = "zardoz"; +// { dg-final { note-test str "\"zardoz\"" } } + + std::bitset<10> bs; + bs[0] = 1; + bs[5] = 1; + bs[7] = 1; +// { dg-final { note-test bs {std::bitset = {[0] = 1, [5] = 1, [7] = 1}} } } + + std::deque deq; + deq.push_back("one"); + deq.push_back("two"); +// { dg-final { note-test deq {std::deque with 2 elements = {"one", "two"}} } } + + std::list lst; + lst.push_back("one"); + lst.push_back("two"); +// { dg-final { note-test lst {std::list = {[0] = "one", [1] = "two"}} } } + + std::map mp; + mp["zardoz"] = 23; +// { dg-final { note-test mp {std::map with 1 elements = {["zardoz"] = 23}} } } + + placeholder(str); // Mark SPOT + std::cout << bs; + use(deq); + use(lst); + use(mp); + + return 0; +} + +// { dg-final { gdb-test SPOT } } -- 2.39.2