* lib/gdb.exp (gdb_compile_test): New.
[external/binutils.git] / gdb / testsuite / gdb.java / jmain.exp
1 # Copyright 2000, 2004, 2007 Free Software Foundation, Inc.
2
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.
7
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11 # GNU General Public License for more details.
12
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
16
17 # This file was based on jmisc.exp which in turn was written by
18 # Anthony Green. (green@redhat.com)
19
20 if $tracelevel then {
21         strace $tracelevel
22 }
23
24 load_lib "java.exp"
25
26 if { [skip_java_tests] } { continue }
27
28 set testfile "jmain"
29 set srcfile ${srcdir}/$subdir/${testfile}.java
30 set binfile ${objdir}/${subdir}/${testfile}
31 if {[compile_java_from_source ${srcfile} ${binfile} "-g"] != ""} {
32     continue
33 }
34
35 set prms_id 0
36 set bug_id 0
37
38 # Start with a fresh gdb.
39
40 gdb_exit
41 gdb_start
42 gdb_reinitialize_dir $srcdir/$subdir
43
44 gdb_test "set print sevenbit-strings" ".*"
45
46 # Check that plain old "main" works.  The load should both set the
47 # language to java and (since --main=jmain), some how set the scope to
48 # jmain's main.
49
50 # Where the breakpoint should always land
51
52 set bpmain "Breakpoint .* file .*jmain.java, line 5\."
53
54 gdb_load "${binfile}"
55 setup_kfail *-*-* java/1567
56 gdb_test "break main" "${bpmain}"
57
58 # Check that an unqualified "main" works.
59
60
61 gdb_load "${binfile}"
62 setup_kfail *-*-* java/1565
63 gdb_test "break jmain.main" "${bpmain}"
64
65 # Check that a fully qualified "main" works.
66 gdb_load "${binfile}"
67 setup_xfail *-*-* gcc/16439
68 gdb_test "break \'${testfile}.main(java.lang.String\[\])\'" "${bpmain}"