Don't fill password policy structure for any domain other than our own.
[ira/wip.git] / testsuite / lib / compile.exp
index 6e79d431ea946c3d3397c4d56203c0daf1d66451..7dae87d213d0566cca145ae0d6979906064aa5fb 100644 (file)
@@ -8,7 +8,7 @@
 #   
 # 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
 #   
 # 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 2 of the License, or
+# 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,
 # (at your option) any later version.
 #   
 # This program is distributed in the hope that it will be useful,
 # GNU General Public License for more details.
 #   
 # You should have received a copy of the GNU General Public License
 # 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, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# along with this program; if not, see <http://www.gnu.org/licenses/>.
 #
 
 # Compile a program consisting of one .c file.  For example 
 # simple_compile "foo" will compile foo.c to the executable foo.exe
 #
 
 # Compile a program consisting of one .c file.  For example 
 # simple_compile "foo" will compile foo.c to the executable foo.exe
+# Use a second argument to specify link libraries.
 
 proc simple_compile { args } {
     global srcdir
 
 proc simple_compile { args } {
     global srcdir
@@ -31,8 +31,19 @@ proc simple_compile { args } {
     # Compile up program
 
     set program [lindex $args 0]
     # Compile up program
 
     set program [lindex $args 0]
-    set output [target_compile "$srcdir/$subdir/$program.c" \
-           "$srcdir/$subdir/$program" executable {additional_flags="-g"}]
+    set libs [lindex $args 1]
+
+    if { $libs == "" } {
+    
+       set output [target_compile "$srcdir/$subdir/$program.c" \
+               "$srcdir/$subdir/$program" executable \
+               {additional_flags="-g"}]
+    } else {
+
+       set output [target_compile "$srcdir/$subdir/$program.c" \
+               "$srcdir/$subdir/$program" executable \
+               [list libs=$libs additional_flags="-g"]]
+    }
 
     # Check for errors
 
 
     # Check for errors
 
@@ -54,13 +65,14 @@ proc simple_make { args } {
     set suffix [lindex $args 0]
     set program [lindex $args 1]
 
     set suffix [lindex $args 0]
     set program [lindex $args 1]
 
-    set output [system "make -C $srcdir/$subdir -f Makefile.$suffix $program"]
+    set output [util_start "make" \
+           "-C $srcdir/$subdir -f Makefile.$suffix $program"]
 
     # Check for errors
 
     if { [regexp "Error" $output] } {
 
     # Check for errors
 
     if { [regexp "Error" $output] } {
-       perror "make $program"
-       puts $output
-       return -1
+        perror "make $program"
+        puts $output
+        return -1
     }
 }
     }
 }