* gas/all/gas.exp: Run dg-runtest for all err-*.s and warn-*.s.

	* gas/all/err-1.s, gas/all/warn-1.s: New tests.

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 841d6fe57bd64b535fdc9d5230a29912e69f8c71..24d0b3c37968593bf2327687e810598cfc3a14c6 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-22  Hans-Peter Nilsson  <hp@axis.com>
+
+       * gas/all/gas.exp: Run dg-runtest for all err-*.s and warn-*.s.
+       * gas/all/err-1.s, gas/all/warn-1.s: New tests.
+
 2004-11-18  Inderpreet Singh   <inderpreetb@nioda.hcltech.com>
 
        * gas/maxq10/call.d: Fix expected results now that bfd assembler

diff --git a/gas/testsuite/gas/all/err-1.s b/gas/testsuite/gas/all/err-1.s
new file mode 100644 (file)
index 0000000..68fbad5
--- /dev/null
+++ b/gas/testsuite/gas/all/err-1.s
@@ -0,0 +1,7 @@
+;# Test .error directive.
+;# { dg-do assemble }
+ .error "an error message"     ;# { dg-error "Error: an error message" }
+ .error an error message       ;# { dg-error "Error: .error argument must be a string" }
+ .error                                ;# { dg-error "Error: .error directive invoked in source file" }
+ .error ".error directive invoked in source file" ;# { dg-error "Error: .error directive invoked in source file" }
+ .error ""                     ;# { dg-error "Error: " }

diff --git a/gas/testsuite/gas/all/gas.exp b/gas/testsuite/gas/all/gas.exp
index 6b06a2be878e7d6750ea007c08bd41b2ef4f3efa..966c112035664225893a00c8d63895b44f40d745 100644 (file)
--- a/gas/testsuite/gas/all/gas.exp
+++ b/gas/testsuite/gas/all/gas.exp
@@ -194,3 +194,8 @@ if {   [istarget "i*86-*-*pe*"] \
     || [istarget "i*86-*-mingw32*"] } {
   gas_test "fastcall.s" ""   "" "fastcall labels"
 }
+
+load_lib gas-dg.exp
+dg-init
+dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/err-*.s $srcdir/$subdir/warn-*.s]] "" ""
+dg-finish

diff --git a/gas/testsuite/gas/all/warn-1.s b/gas/testsuite/gas/all/warn-1.s
new file mode 100644 (file)
index 0000000..873f230
--- /dev/null
+++ b/gas/testsuite/gas/all/warn-1.s
@@ -0,0 +1,7 @@
+;# Test .warning directive.
+;# { dg-do assemble }
+ .warning "a warning message"  ;# { dg-warning "Warning: a warning message" }
+ .warning a warning message    ;# { dg-error "Error: .warning argument must be a string" }
+ .warning                      ;# { dg-warning "Warning: .warning directive invoked in source file" }
+ .warning ".warning directive invoked in source file"  ;# { dg-warning "Warning: .warning directive invoked in source file" }
+ .warning ""                   ;# { dg-warning "Warning: " }