diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-02-18 05:52:21 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-18 16:49:51 +0000 |
| commit | 6ffa69ae0873f45a06f60e385932605e05e60bfa (patch) | |
| tree | f05940a6dea08998a188fc5ce637320fb3dcc624 /t/op/alarm.t | |
| parent | 84f1fa11d9d0266bfb2eadbb2f0933aa911b76d4 (diff) | |
| download | perl-6ffa69ae0873f45a06f60e385932605e05e60bfa.tar.gz | |
VMS test fix-ups (alarm.t and glob.t)
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020218114540.01b2b458@exchi01>
p4raw-id: //depot/perl@14749
Diffstat (limited to 't/op/alarm.t')
| -rw-r--r-- | t/op/alarm.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/alarm.t b/t/op/alarm.t index 907c385264..c008737dff 100644 --- a/t/op/alarm.t +++ b/t/op/alarm.t @@ -44,4 +44,7 @@ $diff = time - $start_time; # alarm time might be one second less than you said. is( $@, "ALARM!\n", 'alarm w/$SIG{ALRM} vs system()' ); -ok( abs($diff - 3) <= 1, ' right time' ); +{ + local $TODO = 'Why does system() block alarm() on VMS?' if $^O eq 'VMS'; + ok( abs($diff - 3) <= 1, " right time (waited $diff secs for 3-sec alarm)" ); +} |