PR6538: more testsuite tweaks for read-only warnings

diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog
index 9396fe1864563235035497fbfd39fb52b17c8c14..ca0afebd57a2ac82dff1f9e05d8579084b5ccdf4 100644 (file)
--- a/testsuite/ChangeLog
+++ b/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2008-05-21  Frank Ch. Eigler  <fche@elastic.org>
+
+       PR 6538
+       * buildok/ioscheduler.stp, nine.stp, scsi.stp, sixteen.stp,
+       socket.stp, stat_insert.stp: Adapt to new warnings.
+       * systemtap.maps/linear_empty.exp, systemtap.samples/args.exp,
+       systemtap.samples/poll_map.stp, systemtap.string/strtol.stp: Ditto.
+
 2008-05-20  Frank Ch. Eigler  <fche@elastic.org>
 
        PR 6538

diff --git a/testsuite/buildok/ioscheduler.stp b/testsuite/buildok/ioscheduler.stp
index 7a39c455df93486e49d8fe82b6bc18dc59f054a5..2d88d2d5f510b58fbbf008e642f3cb1375cb661d 100755 (executable)
--- a/testsuite/buildok/ioscheduler.stp
+++ b/testsuite/buildok/ioscheduler.stp
@@ -1,4 +1,6 @@
-#! stap -p4
+#! stap -wp4
+
+# PR6538: "-w" is above since disk_major/disk_minor are not defined by all aliases.
 
 probe ioscheduler.*
 {

diff --git a/testsuite/buildok/nine.stp b/testsuite/buildok/nine.stp
index d9a15276607b37962d81b9e73a19a8effd6152e6..a0ca1d40fa16f2a60324a4a95c618a7d9096192f 100755 (executable)
--- a/testsuite/buildok/nine.stp
+++ b/testsuite/buildok/nine.stp
@@ -4,5 +4,5 @@ function f () { }
 function g (arg) { }
 
 probe begin {
-  true ? f() : g(1);
+  (true=1) ? f() : g(1);
 }

diff --git a/testsuite/buildok/scsi.stp b/testsuite/buildok/scsi.stp
index 6f60de2f04f4a49bd3941412610eb696c5afb05f..dfe855de2897a493bf4a9ba5643f5cb751dfa616 100755 (executable)
--- a/testsuite/buildok/scsi.stp
+++ b/testsuite/buildok/scsi.stp
@@ -23,7 +23,7 @@ probe scsi.iodispatching
 {
        printf("ppname: %s, %d, %d, %d, %d, %d, %d, %p, %d\n", probefunc(), 
                host_no, channel, lun, dev_id, device_state, data_direction, 
-               request_buffer, req_bufflen)
+               request_buffer, request_bufflen)
 }
 
 

diff --git a/testsuite/buildok/sixteen.stp b/testsuite/buildok/sixteen.stp
index 0e313fa857838c2b091eaab1f8d525ebea1f49cc..97721a2d3765dff51cb3bb54ab562dd363560f0e 100755 (executable)
--- a/testsuite/buildok/sixteen.stp
+++ b/testsuite/buildok/sixteen.stp
@@ -3,7 +3,7 @@
 global a
 
 function foo () {
-  if (a[k] == "sayonara") { return 2 }
+  if (a[4] == "sayonara") { return 2 }
 }
 
 

diff --git a/testsuite/buildok/socket.stp b/testsuite/buildok/socket.stp
index 4b9142a93c952daf549a094b8d163ce2c596e4dc..5ada4018db16d85862bd1b932e6e5a8e652a4345 100755 (executable)
--- a/testsuite/buildok/socket.stp
+++ b/testsuite/buildok/socket.stp
@@ -1,4 +1,4 @@
-#! stap -p4
+#! stap -wp4
 
 probe socket.send, socket.receive,
       socket.sendmsg, socket.sendmsg.return,
@@ -33,7 +33,7 @@ probe socket.send, socket.receive,
        typ = sock_type_str2num(tstr)
        log(sprintf("%d, %d, %s", type, typ, tstr))
 
-       log(sprintf("%d", success))
+       log(sprintf("%d", success))  # -w since success is not universally defined
 }
 
 

diff --git a/testsuite/buildok/stat_insert.stp b/testsuite/buildok/stat_insert.stp
index 4039a190f45443f0ae443d878d4162e489f47419..7d7eb98e48858e2ce467336f122fa872e9325cd9 100755 (executable)
--- a/testsuite/buildok/stat_insert.stp
+++ b/testsuite/buildok/stat_insert.stp
@@ -15,8 +15,8 @@ function wibble()
        i = 0
        logmap[i++, "stewed"] <<< 1
        logmap[i++, "boiled"] <<< 1 + 2
-       logmap[i++, "baked"] <<< x
-       logmap[i++, "fried"] <<< (x * y) + 3
+       logmap[i++, "baked"] <<< (x = 0)
+       logmap[i++, "fried"] <<< (x * (y=2)) + 3
 }
 
 function wobble()

diff --git a/testsuite/systemtap.maps/linear_empty.exp b/testsuite/systemtap.maps/linear_empty.exp
index 9bcc64eb6f02a5fec2644f098a8ac8066fb4eee6..88a53a310b3c88eadedb0151c7d3454b3561179f 100644 (file)
--- a/testsuite/systemtap.maps/linear_empty.exp
+++ b/testsuite/systemtap.maps/linear_empty.exp
@@ -4,6 +4,5 @@ set test "linear_empty"
 set ::result_string {count=0
 }
 
-stap_run2 $srcdir/$subdir/$test.stp
-
+stap_run2 $srcdir/$subdir/$test.stp -w
 

diff --git a/testsuite/systemtap.samples/args.exp b/testsuite/systemtap.samples/args.exp
index 8bed7c9e3855ae5eed1d7c44ba41186c8c86d390..6b1fd3d0420badd063289db70d05e33f77bd8cc4 100644 (file)
--- a/testsuite/systemtap.samples/args.exp
+++ b/testsuite/systemtap.samples/args.exp
@@ -12,7 +12,7 @@ if [file exists $staprunpath] {
 }
 
 set modname "args_[pid]"
-spawn stap -k -p4 -m $modname $srcdir/$subdir/args.stp
+spawn stap -w -k -p4 -m $modname $srcdir/$subdir/args.stp
 set tmpdir NO_SUCH_FILE
 expect {
     -timeout 120

diff --git a/testsuite/systemtap.samples/poll_map.stp b/testsuite/systemtap.samples/poll_map.stp
index fb6b16e656b51b2c8f35842d71698d7b2a618fd8..cd39b433848a50018dc6d138ef2c05d869240201 100755 (executable)
--- a/testsuite/systemtap.samples/poll_map.stp
+++ b/testsuite/systemtap.samples/poll_map.stp
@@ -6,7 +6,7 @@
 global called, num_polls
 
 probe kernel.function( "sys_*" ).call {
-       called[execname(),name]++
+       called[execname(),probefunc()]++
 }
 
 probe timer.ms(1000)

diff --git a/testsuite/systemtap.string/strtol.stp b/testsuite/systemtap.string/strtol.stp
index dcd1fe71d9471a86cd475a6600c2c072d283346c..4f579e7de84a0a1b32a861fd59620d70ef160113 100644 (file)
--- a/testsuite/systemtap.string/strtol.stp
+++ b/testsuite/systemtap.string/strtol.stp
@@ -23,7 +23,6 @@ probe begin
        printf("%d\n", strtol(teststr9, 16))
        printf("%d\n", strtol(teststr9, 8))
        printf("%d\n", strtol(teststr9, 2))
-       printf("%d\n", strtol(teststr10, 2))
 
        exit()
 }