diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-08 15:29:18 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-08 15:29:18 +0000 |
| commit | b6345914e6a5bcc0fcf2c030fb88a31b5c80a120 (patch) | |
| tree | a5b43e5862ff20553674c0a26426bb0df5ad5a2b /lib | |
| parent | e9a057b35f1944aacb024aac49328f7d8e424652 (diff) | |
| download | perl-b6345914e6a5bcc0fcf2c030fb88a31b5c80a120.tar.gz | |
[PATCH lib/vmsish.t] Small test name abuse.
From: Michael G Schwern <schwern@pobox.com>
Date: Fri, 7 Dec 2001 20:03:45 -0500
Message-ID: <20011208010345.GD642@blackrider>
Subject: [PATCH vms/test.com] Goodbye frightening echo kludge!
From: Michael G Schwern <schwern@pobox.com>
Date: Fri, 7 Dec 2001 20:13:54 -0500
Message-ID: <20011208011354.GE642@blackrider>
Subject: [PATCH t/io/pipe.t t/test.pl] Cleanup & $NO_ENDING
From: Michael G Schwern <schwern@pobox.com>
Date: Fri, 7 Dec 2001 21:47:36 -0500
Message-ID: <20011208024736.GH642@blackrider>
Subject: [PATCH t/op/exec.t] Piping and newline on pipe tests
From: Michael G Schwern <schwern@pobox.com>
Date: Fri, 7 Dec 2001 23:09:43 -0500
Message-ID: <20011208040943.GK642@blackrider>
Subject: [PATCH] vms/test.com -- skip tty tests when not interactive
Message-Id: <a05101004b83754903506@[172.16.52.1]>
Date: Fri, 7 Dec 2001 23:28:15 -0600
From: "Craig A. Berry" <craigberry@mac.com>
p4raw-id: //depot/perl@13535
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/vmsish.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/vmsish.t b/lib/vmsish.t index 2d83be64ae..03fdd6006d 100644 --- a/lib/vmsish.t +++ b/lib/vmsish.t @@ -134,13 +134,15 @@ is($?,0,"outer lex scope of vmsish [POSIX status]"); $utclocal[2] * 3600 + $utclocal[1] * 60 + $utclocal[0]; $vmsval = $vmslocal[5] * 31536000 + $vmslocal[7] * 86400 + $vmslocal[2] * 3600 + $vmslocal[1] * 60 + $vmslocal[0]; - ok($vmsval - $utcval + $offset <= 10, "(localtime)\n# UTC: @utclocal\n# VMS: @vmslocal"); + ok($vmsval - $utcval + $offset <= 10, "(localtime)"); + print "# UTC: @utclocal\n# VMS: @vmslocal\n"; $utcval = $utcgmtime[5] * 31536000 + $utcgmtime[7] * 86400 + $utcgmtime[2] * 3600 + $utcgmtime[1] * 60 + $utcgmtime[0]; $vmsval = $vmsgmtime[5] * 31536000 + $vmsgmtime[7] * 86400 + $vmsgmtime[2] * 3600 + $vmsgmtime[1] * 60 + $vmsgmtime[0]; - ok($vmsval - $utcval + $offset <= 10, "(gmtime)\n# UTC: @utcgmtime\n# VMS: @vmsgmtime"); + ok($vmsval - $utcval + $offset <= 10, "(gmtime)"); + print "# UTC: @utcgmtime\n# VMS: @vmsgmtime\n"; ok($vmsmtime - $utcmtime + $offset <= 10,"(stat) UTC: $utcmtime VMS: $vmsmtime"); } |