diff options
| author | Stefan Metzmacher <metze@samba.org> | 2007-04-20 17:13:52 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:51:16 -0500 |
| commit | 86d376e484268c264ce5ab25f43670a50c5d2f00 (patch) | |
| tree | 2e348f86e8db5beba51f6d8a259650ff86e158e4 /source4/script/tests | |
| parent | cd63c810c64d3d5e17dd99b1a32d2824aaf1cca8 (diff) | |
| download | samba-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-x | source4/script/tests/selftest.pl | 8 |
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); |