[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.base / utf8-identifiers.exp

# -*- coding: utf-8 -*- */

# This testcase is part of GDB, the GNU debugger.

# Copyright 2017-2018 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.  If not, see <http://www.gnu.org/licenses/>.

# Test GDB's support for UTF-8 C/C++ identifiers.

load_lib completion-support.exp

standard_testfile

# Enable basic use of UTF-8.  LC_ALL gets reset for each testfile.
setenv LC_ALL C.UTF-8

if { [prepare_for_testing "failed to prepare" ${testfile} [list $srcfile]] } {
    return -1
}

if ![runto done] {
    fail "couldn't run to done"
    return
}

# Test expressions.
gdb_test "print g_s.num_€" " = 1000"
gdb_test "print num_€" " = 2000"

# Test linespecs/breakpoints.
gdb_test "break função2" "Breakpoint $decimal at .*$srcfile.*"

set test "info breakpoints"
gdb_test_multiple $test $test {
    -re "in função2 at .*$srcfile.*$gdb_prompt $" {
	pass $test
    }
}

gdb_test "continue" \
    "Breakpoint $decimal, função2 \\(\\) at .*$srcfile.*"

# Unload symbols from shared libraries to avoid random symbol and file
# names getting in the way of completion.
gdb_test_no_output "nosharedlibrary"

# Tests below are about tab-completion, which doesn't work if readline
# library isn't used.  Check it first.

if { ![readline_is_used] } {
    untested "no tab completion support without readline"
    return -1
}

# Test linespec completion.

# A unique completion.
test_gdb_complete_unique "break my_fun" "break my_função"

# A multiple-matches completion:

# kfailed because gdb/readline display the completion match list like
# this, with no separating space:
#
#  (gdb) break função[TAB]
#  função1função2
#
# ... which is bogus.
setup_kfail "gdb/23211" "*-*-*"
test_gdb_complete_multiple "break " "fun" "ção" {"função1" "função2"}

# Test expression completion.
test_gdb_complete_unique "print g_s.num" "print g_s.num_€"
Commit	Line	Data
b1b60145 PA	1	# -- coding: utf-8 -- */
	2
	3	# This testcase is part of GDB, the GNU debugger.
	4
	5	# Copyright 2017-2018 Free Software Foundation, Inc.
	6
	7	# This program is free software; you can redistribute it and/or modify
	8	# it under the terms of the GNU General Public License as published by
	9	# the Free Software Foundation; either version 3 of the License, or
	10	# (at your option) any later version.
	11	#
	12	# This program is distributed in the hope that it will be useful,
	13	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with this program. If not, see <http://www.gnu.org/licenses/>.
	19
	20	# Test GDB's support for UTF-8 C/C++ identifiers.
	21
	22	load_lib completion-support.exp
	23
	24	standard_testfile
	25
	26	# Enable basic use of UTF-8. LC_ALL gets reset for each testfile.
	27	setenv LC_ALL C.UTF-8
	28
	29	if { [prepare_for_testing "failed to prepare" ${testfile} [list $srcfile]] } {
	30	return -1
	31	}
	32
	33	if ![runto done] {
	34	fail "couldn't run to done"
	35	return
	36	}
	37
	38	# Test expressions.
	39	gdb_test "print g_s.num_€" " = 1000"
	40	gdb_test "print num_€" " = 2000"
	41
	42	# Test linespecs/breakpoints.
	43	gdb_test "break função2" "Breakpoint $decimal at .$srcfile."
	44
	45	set test "info breakpoints"
	46	gdb_test_multiple $test $test {
	47	-re "in função2 at .$srcfile.$gdb_prompt $" {
	48	pass $test
	49	}
	50	}
	51
	52	gdb_test "continue" \
	53	"Breakpoint $decimal, função2 \\(\\) at .$srcfile."
	54
	55	# Unload symbols from shared libraries to avoid random symbol and file
	56	# names getting in the way of completion.
	57	gdb_test_no_output "nosharedlibrary"
	58
4ee9b0c5 SL	59	# Tests below are about tab-completion, which doesn't work if readline
	60	# library isn't used. Check it first.
	61
	62	if { ![readline_is_used] } {
	63	untested "no tab completion support without readline"
	64	return -1
	65	}
	66
b1b60145 PA	67	# Test linespec completion.
	68
	69	# A unique completion.
	70	test_gdb_complete_unique "break my_fun" "break my_função"
	71
	72	# A multiple-matches completion:
	73
	74	# kfailed because gdb/readline display the completion match list like
	75	# this, with no separating space:
	76	#
	77	# (gdb) break função[TAB]
	78	# função1função2
	79	#
	80	# ... which is bogus.
	81	setup_kfail "gdb/23211" "--*"
	82	test_gdb_complete_multiple "break " "fun" "ção" {"função1" "função2"}
	83
	84	# Test expression completion.
	85	test_gdb_complete_unique "print g_s.num" "print g_s.num_€"