Collect loading DejaGnu libraries into a single loop, Revise the mock board_info array.

1 files changed, 1279 insertions, 33 deletions

diff --git a/testsuite/runtest.libs/target.test b/testsuite/runtest.libs/target.test
index dd3a156..629637f 100644
--- a/testsuite/runtest.libs/target.test
+++ b/testsuite/runtest.libs/target.test
@@ -6,54 +6,42 @@ if [ file exists $srcdir/$subdir/default_procs.tcl ] {
     puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist"
 }
 
+if [ file exists $srcdir/$subdir/mockutil.tcl ] {
+    source $srcdir/$subdir/mockutil.tcl
+} else {
+    puts "ERROR: $srcdir/$subdir/mockutil.tcl doesn't exist"
+}
+
 proc load_lib { lib } {
      global srcdir
      source $srcdir/../lib/$lib
 }
 
-set file $srcdir/../lib/target.exp
-if [ file exists $file] {
-    source $file
-} else {
-    puts "ERROR: $file doesn't exist"
-}
-# we load framework so we can use stuff like is3way
-set file $srcdir/../lib/framework.exp
-if [ file exists $file] {
-    source $file
-} else {
-    puts "ERROR: $file doesn't exist"
-}
-# we load the remote stuff so we can test execute_anywhere
-set file $srcdir/../lib/remote.exp
-if [ file exists $file] {
-    source $file
-} else {
-    puts "ERROR: $file doesn't exist"
+foreach lib { targetdb target } {
+    set file $srcdir/../lib/${lib}.exp
+    if [ file exists $file] {
+	source $file
+    } else {
+	puts "ERROR: $file doesn't exist"
+    }
 }
 
 #
 # Create a false board config array
 #
 set board_info(idp,name)       "idp"
-set board_info(idp,ldflags)    "-Tidp.ld"
+set board_info(idp,ldscript)   "-Tidp.ld"
 set board_info(idp,config)     m68k-unknown-aout
-set board_info(idp,cflags)     ""
-set board_info(idp,connect)    "telnet"
-set board_info(idp,target)     "s12"
-set board_info(idp,serial)     "tstty12"
-set board_info(idp,netport)    "localhost:23"
-set board_info(idp,baud)       "9600"
 # MVME target
 set board_info(mvme,name)      "mvme"
-set board_info(mvme,ldflags)   "-Tmvme.ld"
+set board_info(mvme,ldscript)  "-Tmvme.ld"
 set board_info(mvme,config)    m68k-unknown-aout
-set board_info(mvme,cflags)    ""
-set board_info(mvme,connect)   "telnet"
-set board_info(mvme,target)    "s12"
-set board_info(mvme,serial)    "tstty8"
-set board_info(mvme,netport)   "localhost:23"
-set board_info(mvme,baud)      "9600"
+# testing default host
+set board_info(unix,cflags_for_target) "-DUNIX_CROSS_BUILD"
+
+#
+# Test push_config/pop_config
+#
 
 # test push_config target
 push_config target idp
@@ -86,4 +74,1262 @@ if { ![info exists target_info(host,name)] } {
     puts "FAILED: pop_config host"
 }
 
+#
+# Test default_target_compile
+#
+
+# init call trace list
+reset_mock_trace
+# build test environment
+create_test_interpreter compile_test {
+    copy_procs { default_target_compile }
+    link_procs { verbose }
+    shim_procs { board_info host_info target_info }
+    vars {
+	build_triplet	"bogus-build-host"
+	host_triplet	"bogus-test-host"
+	target_triplet	"bogus-test-target"
+    }
+    mocks {
+	# major test shims
+	which			{ what }	{ $what }
+	remote_exec		{ args }	{ [list 0 "<exec_output>"] }
+	# minor test shims
+	prune_warnings		{ text }	{ $text }
+	# avoid the losing search for a libstdc++
+	isnative		{ args }	{ 0 }
+	# provide the special cases for C++
+	g++_include_flags	{ }		{ " -I/usr/include/g++" }
+	g++_link_flags		{ }		{ " -L/usr/lib/g++" }
+	# force local mode for initial testing
+	isremote		{ args }	{ 0 }
+    }
+}
+# mock find_* procedures from libgloss.exp
+foreach { prog } { gcc gcj g++ gdc g77 gfortran gnatmake nm gas ld } {
+    establish_mock compile_test find_$prog {} [list found-$prog]
+}
+
+# testing...
+# each item in testlist: { name code checks... }
+proc eval_tests { sicmd testlist } {
+    set testlist [strip_comment_lines $testlist]
+    foreach { test } $testlist {
+	if { [llength $test] > 2 } {
+	    eval [list test_proc_with_mocks [lindex $test 0] $sicmd \
+		      [lindex $test 1]] [lrange $test 2 end]
+	} else {
+	    $sicmd eval [lindex $test 1]
+	}
+    }
+}
+
+# set target
+push_config target idp
+
+eval_tests compile_test {
+    { "host defaults to 'unix' if not set"
+	{ default_target_compile "foo.c" "foo.o" object {} }
+	check_calls {
+	    "board_info unix" * { 2 exists 3 cflags_for_target }
+	    "board_info unix" * { 2 cflags_for_target }
+	    "remote_exec host" U
+	    { 2 {found-gcc -DUNIX_CROSS_BUILD -c -o foo.o foo.c} }
+	}
+    }
+}
+
+# set host
+push_config host mvme
+
+eval_tests compile_test {
+    { "query compiler configuration"
+	# This is an example adapted from the GCC testsuite.
+	{ default_target_compile "-dumpspecs" "" none {} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-gcc -dumpspecs\s*} }
+	}
+    }
+}
+
+eval_tests compile_test {
+    { "minimal simple preprocess"
+	{ default_target_compile "foo.c" "" preprocess {} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-gcc foo.c -E} }
+	}
+    }
+    { "minimal simple preprocess with output redirection"
+	{ default_target_compile "foo.c" "" preprocess {
+	    "redirect=bar_out"
+	} }
+	check_calls {
+	    "remote_exec host" U {
+		2 {found-gcc foo.c -E}
+		5 {bar_out}
+	    }
+	}
+    }
+    { "minimal simple preprocess with timeout"
+	{ default_target_compile "foo.c" "" preprocess {
+	    "timeout=1742"
+	} }
+	check_calls {
+	    "remote_exec host" U {
+		2 {found-gcc foo.c -E}
+		6 {1742}
+	    }
+	}
+    }
+    { "minimal simple compile to assembly"
+	{ default_target_compile "foo.c" "foo.s" assembly {} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-gcc foo.c -S -o foo.s} }
+	}
+    }
+    { "minimal simple compile to object"
+	{ default_target_compile "foo.c" "foo.o" object {} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-gcc -c -o foo.o foo.c} }
+	}
+    }
+    { "minimal simple compile and link"
+	{ default_target_compile "foo.c" "foo" executable {} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-gcc foo.c -lm -Tidp.ld -o foo} }
+	}
+    }
+    { "minimal simple compile and link with debug option"
+	{ default_target_compile "foo.c" "foo" executable {debug} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-gcc foo.c -g -lm -Tidp.ld -o foo} }
+	}
+    }
+}
+
+# add more keys to the board_info array for a more complex target description
+set board_info(idp,cflags)		"-I/usr/gnemul/idp/include"
+set board_info(idp,compiler)		"$board_info(idp,config)-gcc"
+set board_info(idp,debug_flags)		"-ggdb"
+set board_info(idp,ldflags)		"-L/usr/gnemul/idp/lib"
+set board_info(idp,libs)		"-lidpsup"
+set board_info(idp,mathlib)		"-lm_idp"
+set board_info(idp,multilib_flags)	"-midp"
+
+eval_tests compile_test {
+    { "preprocess with target compiler"
+	{ default_target_compile "foo.c" "" preprocess {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2
+	      {m68k-unknown-aout-gcc foo.c -midp -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile to assembly with target compiler"
+	{ default_target_compile "foo.c" "foo.s" assembly {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -S -I/usr/gnemul/idp/include
+		 -o foo.s} }
+	}
+    }
+    { "compile to object with target compiler"
+	{ default_target_compile "foo.c" "foo.o" object {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc -midp -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.c} }
+	}
+    }
+    { "compile and link with target compiler"
+	{ default_target_compile "foo.c" "foo" executable {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "compile and link with target compiler and target debug"
+	{ default_target_compile "foo.c" "foo" executable {debug} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -ggdb -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+}
+
+# add a few more keys for the remaining cases...
+set board_info(idp,remote_link)		idp_remote_link
+set board_info(idp,output_format)	coff
+
+eval_tests compile_test {
+    { "compile and link for remote linking"
+	{ default_target_compile "foo.c" "foo" executable {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -lidpsup -lm_idp -Tidp.ld
+		 -Wl,-r -Wl,-oformat,coff -o foo} }
+	}
+    }
+    { "compile and link for remote linking with debug"
+	{ default_target_compile "foo.c" "foo" executable {debug} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -ggdb -lidpsup -lm_idp -Tidp.ld
+		 -Wl,-r -Wl,-oformat,coff -o foo} }
+	}
+    }
+}
+
+# simplify by removing the most unusual options
+unset board_info(idp,remote_link) board_info(idp,output_format)
+
+eval_tests compile_test {
+    { "setup CFLAGS_FOR_TARGET"
+	{ set CFLAGS_FOR_TARGET "-DTARGET_FLAG" }
+    }
+    { "preprocess with target compiler and CFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "" preprocess {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2
+	      {m68k-unknown-aout-gcc foo.c -midp -DTARGET_FLAG -E
+	       -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile to assembly with target compiler and CFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo.s" assembly {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -DTARGET_FLAG -S
+		 -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile to object with target compiler and CFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo.o" object {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc -midp -DTARGET_FLAG -c
+		 -I/usr/gnemul/idp/include -o foo.o foo.c} }
+	}
+    }
+    { "compile and link with target compiler and CFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo" executable {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -DTARGET_FLAG
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "clean up CFLAGS_FOR_TARGET"
+	{ unset CFLAGS_FOR_TARGET }
+    }
+    { "setup LDFLAGS_FOR_TARGET"
+	{ set LDFLAGS_FOR_TARGET "-ltarget" }
+    }
+    { "preprocess with target compiler and LDFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "" preprocess {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2
+	      {m68k-unknown-aout-gcc foo.c -midp -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile to assembly with target compiler and LDFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo.s" assembly {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -S -I/usr/gnemul/idp/include
+		 -o foo.s} }
+	}
+    }
+    { "compile to object with target compiler and LDFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo.o" object {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc -midp -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.c} }
+	}
+    }
+    { "compile and link with target compiler and LDFLAGS_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo" executable {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -ltarget -lidpsup -lm_idp -Tidp.ld
+		 -o foo} }
+	}
+    }
+    { "clean up LDFLAGS_FOR_TARGET"
+	{ unset LDFLAGS_FOR_TARGET }
+    }
+    { "setup CC_FOR_TARGET"
+	{ set CC_FOR_TARGET "target-gcc" }
+    }
+    { "preprocess with CC_FOR_TARGET"
+	{ default_target_compile "foo.c" "" preprocess {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U { 2
+	      {target-gcc foo.c -midp -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile to assembly with CC_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo.s" assembly {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gcc foo.c -midp -S -I/usr/gnemul/idp/include
+		 -o foo.s} }
+	}
+    }
+    { "compile to object with CC_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo.o" object {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gcc -midp -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.c} }
+	}
+    }
+    { "compile and link with CC_FOR_TARGET"
+	{ default_target_compile "foo.c" "foo" executable {} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gcc foo.c -midp -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "clean up CC_FOR_TARGET"
+	{ unset CC_FOR_TARGET }
+    }
+}
+
+eval_tests compile_test {
+    { "override destination to host and compile and link"
+	{ default_target_compile "foo.c" "foo" executable {"dest=host"} }
+	check_calls {
+	    "board_info host" * { 2 exists 3 name }
+	    "board_info host" * { 2 name }
+	    "remote_exec host" U
+	    { 2 {found-gcc foo.c -lm -Tmvme.ld -o foo} }
+	}
+    }
+    { "override destination to host and compile and link with host-gcc"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "dest=host" "compiler=host-gcc"
+	} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "board_info host" * { 2 exists 3 name }
+	    "board_info host" * { 2 name }
+	    "remote_exec host" U
+	    { 2 {host-gcc foo.c -lm -Tmvme.ld -o foo} }
+	}
+    }
+    { "override ldscript"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "ldscript=-Tspecial.ld"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tspecial.ld -o foo} }
+	}
+    }
+}
+
+eval_tests compile_test {
+    { "insert additional flags"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "additional_flags=-fextra-flag-for-test"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -fextra-flag-for-test
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "insert additional flags and ldflags"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "additional_flags=-fextra-flag-for-test"
+	    "ldflags=-Wl,--extra-linker-flag"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -fextra-flag-for-test
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "insert additional flags, ldflags, and incdir"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "additional_flags=-fextra-flag-for-test"
+	    "ldflags=-Wl,--extra-linker-flag"
+	    "incdir=/usr/test/include"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -fextra-flag-for-test
+		 -I/usr/test/include
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "insert additional flags, ldflags, and incdirs"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "additional_flags=-fextra-flag-for-test"
+	    "ldflags=-Wl,--extra-linker-flag"
+	    "incdir=/usr/test/include" "incdir=/usr/test/include2"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -fextra-flag-for-test
+		 -I/usr/test/include -I/usr/test/include2
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "insert additional flags, ldflags, incdirs, and libdir"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "additional_flags=-fextra-flag-for-test"
+	    "ldflags=-Wl,--extra-linker-flag"
+	    "incdir=/usr/test/include" "incdir=/usr/test/include2"
+	    "libdir=/usr/test/lib"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -fextra-flag-for-test
+		 -I/usr/test/include -I/usr/test/include2
+		 -L/usr/test/lib
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "insert additional flags, ldflags, incdirs, and libdirs"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "additional_flags=-fextra-flag-for-test"
+	    "ldflags=-Wl,--extra-linker-flag"
+	    "incdir=/usr/test/include" "incdir=/usr/test/include2"
+	    "libdir=/usr/test/lib" "libdir=/usr/test/lib2"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -fextra-flag-for-test
+		 -I/usr/test/include -I/usr/test/include2
+		 -L/usr/test/lib -L/usr/test/lib2
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "insert additional flags, ldflags, incdirs, and libdirs shuffled"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "incdir=/usr/test/include"
+	    "additional_flags=-fextra-flag-for-test"  "libdir=/usr/test/lib"
+	    "ldflags=-Wl,--extra-linker-flag"
+	    "additional_flags=-fanother-extra-flag"
+	    "incdir=/usr/test/include2" "libdir=/usr/test/lib2"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/test/include
+		 -fextra-flag-for-test -L/usr/test/lib -fanother-extra-flag
+		 -I/usr/test/include2 -L/usr/test/lib2
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "previous test with optimization flag added"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "incdir=/usr/test/include" "optimize=-O2 -foptimize"
+	    "additional_flags=-fextra-flag-for-test"  "libdir=/usr/test/lib"
+	    "ldflags=-Wl,--extra-linker-flag"
+	    "additional_flags=-fanother-extra-flag"
+	    "incdir=/usr/test/include2" "libdir=/usr/test/lib2"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/test/include
+		 -fextra-flag-for-test -L/usr/test/lib -fanother-extra-flag
+		 -I/usr/test/include2 -L/usr/test/lib2
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -O2 -foptimize
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "previous test with optimization flag added and debugging selected"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "incdir=/usr/test/include" "debug"
+	    "additional_flags=-fextra-flag-for-test"  "libdir=/usr/test/lib"
+	    "ldflags=-Wl,--extra-linker-flag" "optimize=-O2 -foptimize-debug"
+	    "additional_flags=-fanother-extra-flag"
+	    "incdir=/usr/test/include2" "libdir=/usr/test/lib2"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp -I/usr/test/include
+		 -fextra-flag-for-test -L/usr/test/lib -fanother-extra-flag
+		 -I/usr/test/include2 -L/usr/test/lib2
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -ggdb -O2 -foptimize-debug
+		 -Wl,--extra-linker-flag -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+}
+
+# add more keys to the board_info array for testing other language support
+set board_info(idp,adaflags)		"-fada"
+set board_info(idp,cxxflags)		"-fgnu-c++"
+set board_info(idp,dflags)		"-fdflag"
+set board_info(idp,f77flags)		"-flong-f77-flag"
+set board_info(idp,f90flags)		"-flonger-f90-flag"
+foreach {k v} {
+    gnatmake gnatmake		c++compiler g++		dcompiler gdc
+    f77compiler g77		f90compiler gfortran
+} { set board_info(idp,$k)		"$board_info(idp,config)-$v" }
+
+eval_tests compile_test {
+
+    # Ada
+    # TODO FIXME:  These tests verify the currently-known-broken Ada support.
+    { "preprocess Ada with target compiler"
+	{ default_target_compile "foo.adb" "" preprocess {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gnatmake foo.adb -midp -fada
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile Ada to assembly with target compiler"
+	{ default_target_compile "foo.adb" "foo.s" assembly {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gnatmake foo.adb -midp -fada
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile Ada to object with target compiler"
+	{ default_target_compile "foo.adb" "foo.o" object {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gnatmake -midp -fada
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.adb} }
+	}
+    }
+    { "compile and link Ada with target compiler"
+	{ default_target_compile "foo.adb" "foo" executable {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gnatmake foo.adb -midp -fada
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+
+    { "setup GNATMAKE_FOR_TARGET"
+	{ set GNATMAKE_FOR_TARGET "target-gnatmake" }
+    }
+    { "preprocess Ada with GNATMAKE_FOR_TARGET"
+	{ default_target_compile "foo.adb" "" preprocess {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gnatmake foo.adb -midp -fada
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile Ada to assembly with GNATMAKE_FOR_TARGET"
+	{ default_target_compile "foo.adb" "foo.s" assembly {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gnatmake foo.adb -midp -fada
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile Ada to object with GNATMAKE_FOR_TARGET"
+	{ default_target_compile "foo.adb" "foo.o" object {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gnatmake -midp -fada
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.adb} }
+	}
+    }
+    { "compile and link Ada with GNATMAKE_FOR_TARGET"
+	{ default_target_compile "foo.adb" "foo" executable {ada} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gnatmake" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gnatmake foo.adb -midp -fada
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "clean up GNATMAKE_FOR_TARGET"
+	{ unset GNATMAKE_FOR_TARGET }
+    }
+
+    { "override destination to host and compile and link Ada"
+	{ default_target_compile "foo.adb" "foo" executable {
+	    "dest=host" ada
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {found-gnatmake foo.adb -lm -Tmvme.ld -o foo} }
+	}
+    }
+    { "override destination to host and compile and link Ada with host-gnatmake"
+	{ default_target_compile "foo.adb" "foo" executable {
+	    "dest=host" ada "compiler=host-gnatmake"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {host-gnatmake foo.adb -lm -Tmvme.ld -o foo} }
+	}
+    }
+
+    # C++
+    { "preprocess C++ with target compiler"
+	{ default_target_compile "foo.cxx" "" preprocess {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g\+\+ foo.cxx -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile C++ to assembly with target compiler"
+	{ default_target_compile "foo.cxx" "foo.s" assembly {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g\+\+ foo.cxx -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile C++ to object with target compiler"
+	{ default_target_compile "foo.cxx" "foo.o" object {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g\+\+ -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.cxx} }
+	}
+    }
+    { "compile and link C++ with target compiler"
+	{ default_target_compile "foo.cxx" "foo" executable {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g\+\+ foo.cxx -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -L/usr/lib/g\+\+
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+
+    { "setup CXX_FOR_TARGET"
+	{ set CXX_FOR_TARGET "target-g++" }
+    }
+    { "preprocess C++ with CXX_FOR_TARGET"
+	{ default_target_compile "foo.cxx" "" preprocess {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g\+\+ foo.cxx -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile C++ to assembly with CXX_FOR_TARGET"
+	{ default_target_compile "foo.cxx" "foo.s" assembly {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g\+\+ foo.cxx -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile C++ to object with CXX_FOR_TARGET"
+	{ default_target_compile "foo.cxx" "foo.o" object {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g\+\+ -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.cxx} }
+	}
+    }
+    { "compile and link C++ with CXX_FOR_TARGET"
+	{ default_target_compile "foo.cxx" "foo" executable {c++} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g++" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g\+\+ foo.cxx -midp -fgnu-c\+\+
+		 -I/usr/include/g\+\+ -I/usr/gnemul/idp/include
+		 -L/usr/gnemul/idp/lib -L/usr/lib/g\+\+
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "clean up CXX_FOR_TARGET"
+	{ unset CXX_FOR_TARGET }
+    }
+
+    { "override destination to host and compile and link C++"
+	{ default_target_compile "foo.cxx" "foo" executable {
+	    "dest=host" c++
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {found-g\+\+ foo.cxx -I/usr/include/g\+\+ -L/usr/lib/g\+\+
+		 -lm -Tmvme.ld -o foo} }
+	}
+    }
+    { "override destination to host and compile and link C++ with host-g++"
+	{ default_target_compile "foo.cxx" "foo" executable {
+	    "dest=host" c++ "compiler=host-g++"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {host-g\+\+ foo.cxx -I/usr/include/g\+\+ -L/usr/lib/g\+\+
+		 -lm -Tmvme.ld -o foo} }
+	}
+    }
+
+    # D
+    { "preprocess D with target compiler"
+	{ default_target_compile "foo.d" "" preprocess {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gdc foo.d -midp -fdflag
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile D to assembly with target compiler"
+	{ default_target_compile "foo.d" "foo.s" assembly {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gdc foo.d -midp -fdflag
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile D to object with target compiler"
+	{ default_target_compile "foo.d" "foo.o" object {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gdc -midp -fdflag
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.d} }
+	}
+    }
+    { "compile and link D with target compiler"
+	{ default_target_compile "foo.d" "foo" executable {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gdc foo.d -midp -fdflag
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+
+    { "setup D_FOR_TARGET"
+	{ set D_FOR_TARGET "target-gdc" }
+    }
+    { "preprocess D with D_FOR_TARGET"
+	{ default_target_compile "foo.d" "" preprocess {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gdc foo.d -midp -fdflag
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile D to assembly with D_FOR_TARGET"
+	{ default_target_compile "foo.d" "foo.s" assembly {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gdc foo.d -midp -fdflag
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile D to object with D_FOR_TARGET"
+	{ default_target_compile "foo.d" "foo.o" object {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gdc -midp -fdflag
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.d} }
+	}
+    }
+    { "compile and link D with D_FOR_TARGET"
+	{ default_target_compile "foo.d" "foo" executable {d} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gdc" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gdc foo.d -midp -fdflag
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "clean up D_FOR_TARGET"
+	{ unset D_FOR_TARGET }
+    }
+
+    { "override destination to host and compile and link D"
+	{ default_target_compile "foo.d" "foo" executable {
+	    "dest=host" d
+	} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-gdc foo.d -lm -Tmvme.ld -o foo} }
+	}
+    }
+    { "override destination to host and compile and link D with host-gdc"
+	{ default_target_compile "foo.d" "foo" executable {
+	    "dest=host" d "compiler=host-gdc"
+	} }
+	check_calls {
+	    "remote_exec host" U { 2 {host-gdc foo.d -lm -Tmvme.ld -o foo} }
+	}
+    }
+
+    # Fortran 77
+    { "preprocess Fortran 77 with target compiler"
+	{ default_target_compile "foo.f" "" preprocess {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g77 foo.f -midp -flong-f77-flag
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile Fortran 77 to assembly with target compiler"
+	{ default_target_compile "foo.f" "foo.s" assembly {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g77 foo.f -midp -flong-f77-flag
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile Fortran 77 to object with target compiler"
+	{ default_target_compile "foo.f" "foo.o" object {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g77 -midp -flong-f77-flag
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.f} }
+	}
+    }
+    { "compile and link Fortran 77 with target compiler"
+	{ default_target_compile "foo.f" "foo" executable {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-g77 foo.f -midp -flong-f77-flag
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+
+    { "setup F77_FOR_TARGET"
+	{ set F77_FOR_TARGET "target-g77" }
+    }
+    { "preprocess Fortran 77 with F77_FOR_TARGET"
+	{ default_target_compile "foo.f" "" preprocess {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g77 foo.f -midp -flong-f77-flag
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile Fortran 77 to assembly with F77_FOR_TARGET"
+	{ default_target_compile "foo.f" "foo.s" assembly {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g77 foo.f -midp -flong-f77-flag
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile Fortran 77 to object with F77_FOR_TARGET"
+	{ default_target_compile "foo.f" "foo.o" object {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g77 -midp -flong-f77-flag
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.f} }
+	}
+    }
+    { "compile and link Fortran 77 with F77_FOR_TARGET"
+	{ default_target_compile "foo.f" "foo" executable {f77} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_g77" ! {}
+	    "remote_exec host" U
+	    { 2 {target-g77 foo.f -midp -flong-f77-flag
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "clean up F77_FOR_TARGET"
+	{ unset F77_FOR_TARGET }
+    }
+
+    { "override destination to host and compile and link Fortran 77"
+	{ default_target_compile "foo.f" "foo" executable {
+	    "dest=host" f77
+	} }
+	check_calls {
+	    "remote_exec host" U { 2 {found-g77 foo.f -lm -Tmvme.ld -o foo} }
+	}
+    }
+    { "override destination to host and compile and link Fortran 77 with host-g77"
+	{ default_target_compile "foo.f" "foo" executable {
+	    "dest=host" f77 "compiler=host-g77"
+	} }
+	check_calls {
+	    "remote_exec host" U { 2 {host-g77 foo.f -lm -Tmvme.ld -o foo} }
+	}
+    }
+
+    # Fortran 90
+    { "preprocess Fortran 90 with target compiler"
+	{ default_target_compile "foo.f90" "" preprocess {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gfortran foo.f90 -midp -flonger-f90-flag
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile Fortran 90 to assembly with target compiler"
+	{ default_target_compile "foo.f90" "foo.s" assembly {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gfortran foo.f90 -midp -flonger-f90-flag
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile Fortran 90 to object with target compiler"
+	{ default_target_compile "foo.f90" "foo.o" object {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gfortran -midp -flonger-f90-flag
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.f90} }
+	}
+    }
+    { "compile and link Fortran 90 with target compiler"
+	{ default_target_compile "foo.f90" "foo" executable {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gfortran foo.f90 -midp -flonger-f90-flag
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+
+    { "setup F90_FOR_TARGET"
+	{ set F90_FOR_TARGET "target-gfortran" }
+    }
+    { "preprocess Fortran 90 with F90_FOR_TARGET"
+	{ default_target_compile "foo.f90" "" preprocess {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gfortran foo.f90 -midp -flonger-f90-flag
+		 -E -I/usr/gnemul/idp/include} }
+	}
+    }
+    { "compile Fortran 90 to assembly with F90_FOR_TARGET"
+	{ default_target_compile "foo.f90" "foo.s" assembly {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gfortran foo.f90 -midp -flonger-f90-flag
+		 -S -I/usr/gnemul/idp/include -o foo.s} }
+	}
+    }
+    { "compile Fortran 90 to object with F90_FOR_TARGET"
+	{ default_target_compile "foo.f90" "foo.o" object {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gfortran -midp -flonger-f90-flag
+		 -c -I/usr/gnemul/idp/include
+		 -o foo.o foo.f90} }
+	}
+    }
+    { "compile and link Fortran 90 with F90_FOR_TARGET"
+	{ default_target_compile "foo.f90" "foo" executable {f90} }
+	check_calls {
+	    "find_gcc" ! {}
+	    "find_gfortran" ! {}
+	    "remote_exec host" U
+	    { 2 {target-gfortran foo.f90 -midp -flonger-f90-flag
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "clean up F90_FOR_TARGET"
+	{ unset F90_FOR_TARGET }
+    }
+
+    { "override destination to host and compile and link Fortran 77"
+	{ default_target_compile "foo.f90" "foo" executable {
+	    "dest=host" f90
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {found-gfortran foo.f90 -lm -Tmvme.ld -o foo} }
+	}
+    }
+    { "override destination to host and compile and link Fortran 90 with host-gfortran"
+	{ default_target_compile "foo.f90" "foo" executable {
+	    "dest=host" f90 "compiler=host-gfortran"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {host-gfortran foo.f90 -lm -Tmvme.ld -o foo} }
+	}
+    }
+
+}
+
+# mock [file exists ...] in slave interpreter for testing libs= option
+establish_mock_log_alias compile_test file
+compile_test eval {
+    proc file { op name } {
+	logcall_file $op $name
+	if { $op eq "exists" } {
+	    if { $name eq "bar_src" } {
+		return 1
+	    } else {
+		return 0
+	    }
+	} else {
+	    error "unimplemented"
+	}
+    }
+}
+
+eval_tests compile_test {
+    { "test libs= as linker option"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "libs=-lbar"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c -midp
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lbar -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+    { "test libs= as extra source"
+	{ default_target_compile "foo.c" "foo" executable {
+	    "libs=bar_src"
+	} }
+	check_calls {
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc foo.c bar_src -midp
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o foo} }
+	}
+    }
+}
+
+delete_test_interpreter compile_test
+
+create_test_interpreter compile_remote_test {
+    copy_procs { default_target_compile }
+    link_procs { verbose }
+    shim_procs { board_info host_info target_info }
+    vars {
+	build_triplet	"bogus-build-host"
+	host_triplet	"bogus-test-host"
+	target_triplet	"bogus-test-target"
+    }
+    mocks {
+	# major test shims
+	which			{ what }	  { $what }
+	remote_download		{ where what }	  { "remote-$what" }
+	remote_exec		{ args }	  { [list 0 "<exec_output>"] }
+	remote_file		{ where op what } { [list $op $what] }
+	remote_upload		{ where what to } { [list $what $to] }
+	# minor test shims
+	prune_warnings		{ text }	  { $text }
+	# avoid the losing search for a libstdc++
+	isnative		{ args }	  { 0 }
+	# provide the special cases for C++
+	g++_include_flags	{ }		  { " -I/usr/include/g++" }
+	g++_link_flags		{ }		  { " -L/usr/lib/g++" }
+	# force remote mode for remote testing
+	isremote		{ args }	  { 1 }
+	# catch writing "atfile"
+	open			{ what how }	  { "iofile0" }
+	close			{ what }	  { "" }
+	puts			{ args }	  { "" }
+    }
+}
+# mock find_* procedures from libgloss.exp
+foreach { prog } { gcc gcj g++ gdc g77 gfortran gnatmake nm gas ld } {
+    establish_mock compile_remote_test find_$prog {} [list found-$prog]
+}
+
+eval_tests compile_remote_test {
+    { "simple remote preprocess"
+	{ default_target_compile "foo.c" "foo.i" preprocess {} }
+	check_calls {
+	    "which" ! {}
+	    "remote_download host" U { 2 foo.c }
+	    "remote_file host" 0 { 2 delete 3 a.out }
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc remote-foo.c -midp -E
+		 -I/usr/gnemul/idp/include -o a.out} }
+	    "remote_upload host" U { 2 a.out 3 foo.i }
+	    "remote_file host" 1 { 2 delete 3 a.out }
+	}
+    }
+    { "simple remote compile and link"
+	{ default_target_compile "foo.c bar.c" "foobar" executable {} }
+	check_calls {
+	    "which" ! {}
+	    "remote_download host" 0 { 2 foo.c }
+	    "remote_download host" 1 { 2 bar.c }
+	    "remote_file host" 0 { 2 delete 3 a.out }
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc remote-foo.c remote-bar.c -midp
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o a.out} }
+	    "remote_upload host" U { 2 a.out 3 foobar }
+	    "remote_file host" 1 { 2 delete 3 a.out }
+	}
+    }
+}
+
+set board_info(mvme,use_at)	1
+
+eval_tests compile_remote_test {
+    { "simple remote preprocess with atfile"
+	{ default_target_compile "foo.c" "foo.i" preprocess {} }
+	check_calls {
+	    "which" ! {}
+	    "remote_download host" 0 { 2 foo.c }
+	    "remote_file host" 0 { 2 delete 3 a.out }
+	    "open atfile w" U { 1 atfile }
+	    "puts iofile0" U
+	    { 2 {\s*remote-foo.c -midp -E -I/usr/gnemul/idp/include -o a.out} }
+	    "close iofile0" U { 1 iofile0 }
+	    "remote_download host" 1 { 2 atfile }
+	    "remote_file build delete" U { 3 atfile }
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc @remote-atfile} }
+	    "remote_upload host" U { 2 a.out 3 foo.i }
+	    "remote_file host" 1 { 2 delete 3 a.out }
+	}
+    }
+    { "simple remote compile and link with atfile"
+	{ default_target_compile "foo.c bar.c" "foobar" executable {} }
+	check_calls {
+	    "which" ! {}
+	    "remote_download host" 0 { 2 foo.c }
+	    "remote_download host" 1 { 2 bar.c }
+	    "remote_file host" 0 { 2 delete 3 a.out }
+	    "open atfile w" U { 1 atfile }
+	    "puts iofile0" U
+	    { 2 {\s*remote-foo.c remote-bar.c -midp
+		 -I/usr/gnemul/idp/include -L/usr/gnemul/idp/lib
+		 -lidpsup -lm_idp -Tidp.ld -o a.out} }
+	    "close iofile0" U { 1 iofile0 }
+	    "remote_download host" 2 { 2 atfile }
+	    "remote_file build delete" U { 3 atfile }
+	    "remote_exec host" U
+	    { 2 {m68k-unknown-aout-gcc @remote-atfile} }
+	    "remote_upload host" U { 2 a.out 3 foobar }
+	    "remote_file host" 1 { 2 delete 3 a.out }
+	}
+    }
+}
+
+delete_test_interpreter compile_remote_test
+
 puts "END target.test"