summaryrefslogtreecommitdiff
path: root/source4/script/tests
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2007-04-20 17:13:52 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:51:16 -0500
commit86d376e484268c264ce5ab25f43670a50c5d2f00 (patch)
tree2e348f86e8db5beba51f6d8a259650ff86e158e4 /source4/script/tests
parentcd63c810c64d3d5e17dd99b1a32d2824aaf1cca8 (diff)
downloadsamba-86d376e484268c264ce5ab25f43670a50c5d2f00.tar.gz
samba-86d376e484268c264ce5ab25f43670a50c5d2f00.tar.bz2
samba-86d376e484268c264ce5ab25f43670a50c5d2f00.zip
r22414: use more portable perl
hopefully fix solaris 8... metze (This used to be commit 103df4465e464f8aef3ec8ff91fa2b11c7771492)
Diffstat (limited to 'source4/script/tests')
-rwxr-xr-xsource4/script/tests/selftest.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/source4/script/tests/selftest.pl b/source4/script/tests/selftest.pl
index 1d9f58a11a..ac3104c380 100755
--- a/source4/script/tests/selftest.pl
+++ b/source4/script/tests/selftest.pl
@@ -343,11 +343,11 @@ sub run_test($$$$$$)
setup_pcap($msg_state);
- $msg_ops->{start_msg}($msg_state);
+ $msg_ops->{start_msg}->($msg_state);
open(RESULT, "$cmd 2>&1|");
while (<RESULT>) {
- $msg_ops->{output_msg}($msg_state, $_);
+ $msg_ops->{output_msg}->($msg_state, $_);
if (/^test: (.+)\n/) {
$open_tests->{$1} = 1;
} elsif (/^(success|failure|skip|error): (.*?)( \[)?\n/) {
@@ -377,14 +377,14 @@ sub run_test($$$$$$)
}
}
foreach (keys %$open_tests) {
- $msg_ops->{output_msg}($msg_state, "$_ was started but never finished!\n");
+ $msg_ops->{output_msg}->($msg_state, "$_ was started but never finished!\n");
$statistics->{TESTS_ERROR}++;
}
my $ret = close(RESULT);
cleanup_pcap($msg_state, $expected_ret, $ret);
- $msg_ops->{end_msg}($msg_state, $expected_ret, $ret);
+ $msg_ops->{end_msg}->($msg_state, $expected_ret, $ret);
if ($ret != $expected_ret) {
push(@$suitesfailed, $name);