Automatic date update in version.in

[binutils.git] / gdb / testsuite / gdb.base / args.exp

diff --git a/gdb/testsuite/gdb.base/args.exp b/gdb/testsuite/gdb.base/args.exp
index 28e70d06a63cd748d3b2021b4da27ea8e2363e7a..bb99ac74ad00d6f808a2b81dc759c3550eac4358 100644 (file)
--- a/gdb/testsuite/gdb.base/args.exp
+++ b/gdb/testsuite/gdb.base/args.exp
@@ -1,4 +1,4 @@
-# Copyright 2003, 2007, 2008 Free Software Foundation, Inc.
+# Copyright 2003-2022 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
@@ -15,42 +15,36 @@
 
 # This is a test for the gdb invocation option --args.
 
-if $tracelevel then {
-    strace $tracelevel
-}
-
-
-global GDBFLAGS
-
 # Skip test if target does not support argument passing.
 if [target_info exists noargs] {
-    return;
+    return
 }
 
-set testfile "args"
-set srcfile ${testfile}.c
-set binfile ${objdir}/${subdir}/${testfile}
+# This test requires starting new inferior processes, skip it if the target
+# board is a stub.
+if [use_gdb_stub] {
+    return
+}
 
-if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
-    untested args.exp
+standard_testfile
+
+if {[build_executable $testfile.exp $testfile \
+        $srcfile {debug nowarnings}] == -1} {
+    untested "failed to compile"
     return -1
 }
 
-proc args_test { name arglist } {
+# If SINGLE_QUOTES_NEWLINE_KFAIL true, arguments made of exactly '' or a
+# newline character will fail, so kfail those tests.
+
+proc args_test { name arglist {single_quotes_newline_kfail false}} {
     global srcdir
     global subdir
-    global binfile
+    global testfile
     global hex
     global decimal
 
-    gdb_exit
-    gdb_start
-    gdb_reinitialize_dir $srcdir/$subdir
-
-    # No loading needs to be done when the target is `exec'.  Some targets
-    # require that the program be loaded, however, and it doesn't hurt
-    # for `exec'.
-    gdb_load $binfile
+    clean_restart $testfile
 
     runto_main
     gdb_breakpoint [gdb_get_line_number "set breakpoint here"]
@@ -61,6 +55,10 @@ proc args_test { name arglist } {
 
     set i 1
     foreach arg $arglist {
+       if { $single_quotes_newline_kfail
+            && ($arg == {''} || $arg == {\\n}) } {
+           setup_kfail "gdb/27989" "*-*-*"
+       }
        gdb_test "print argv\[$i\]" "\\\$$decimal = $hex \"$arg\"" \
            "argv\[$i\] for $name"
        set i [expr $i + 1]
@@ -70,30 +68,46 @@ proc args_test { name arglist } {
 #
 # Test that the --args are processed correctly.
 #
-set old_gdbflags $GDBFLAGS
-set GDBFLAGS "--args $binfile 1 3"
-args_test basic {{1} {3}}
 
-#
-# Test that the --args are processed correctly even if one of them is empty.
-# The syntax needed is a little peculiar; DejaGNU treats the arguments as a
-# list and expands them itself, since no shell redirection is involved.
-#
-set GDBFLAGS "--args $binfile 1 {} 3"
-args_test "one empty" {{1} {} {3}}
+save_vars { GDBFLAGS } {
+    set old_gdbflags $GDBFLAGS
 
-#
-# try with 2 empty args
-#
-set GDBFLAGS "--args $binfile 1 {} {} 3"
-args_test "two empty" {{1} {} {} 3}
+    # Single quotes and newlines are not well handled by the extended-remote
+    # target:  https://sourceware.org/bugzilla/show_bug.cgi?id=27989
+    set single_quotes_newline_kfail \
+       [expr { [target_info exists gdb_protocol] \
+               && [target_info gdb_protocol] == "extended-remote" }]
+
+    set GDBFLAGS "$old_gdbflags --args $binfile 1 3"
+    args_test basic {{1} {3}}
+
+    #
+    # Test that the --args are processed correctly even if one of them is empty.
+    # The syntax needed is a little peculiar; DejaGNU treats the arguments as a
+    # list and expands them itself, since no shell redirection is involved.
+    #
+    set GDBFLAGS "$old_gdbflags --args $binfile 1 {} 3"
+    args_test "one empty" {{1} {} {3}}
 
-# Try with arguments containing literal single quotes.
+    #
+    # try with 2 empty args
+    #
+    set GDBFLAGS "$old_gdbflags --args $binfile 1 {} {} 3"
+    args_test "two empty" {{1} {} {} 3}
 
-set GDBFLAGS "--args $binfile 1 '' 3"
-args_test "one empty (with single quotes)" {{1} {''} {3}}
+    # Try with arguments containing literal single quotes.
 
-set GDBFLAGS "--args $binfile 1 '' '' 3"
-args_test "two empty (with single quotes)" {{1} {''} {''} {3}}
+    set GDBFLAGS "$old_gdbflags --args $binfile 1 '' 3"
+    args_test "one empty with single quotes" {{1} {''} {3}} $single_quotes_newline_kfail
 
-set GDBFLAGS $old_gdbflags
+    set GDBFLAGS "$old_gdbflags --args $binfile 1 '' '' 3"
+    args_test "two empty with single quotes" {{1} {''} {''} {3}} $single_quotes_newline_kfail
+
+    # try with arguments containing literal newlines.
+
+    set GDBFLAGS "$old_gdbflags --args $binfile 1 {\n} 3"
+    args_test "one newline" {{1} {\\n} {3}} $single_quotes_newline_kfail
+
+    set GDBFLAGS "$old_gdbflags --args $binfile 1 {\n} {\n} 3"
+    args_test "two newlines" {{1} {\\n} {\\n} {3}} $single_quotes_newline_kfail
+}