diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 15:27:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 15:27:26 +0000 |
| commit | 1d662fb62e71ab3e37603febfa8212dd1e7e7f7e (patch) | |
| tree | 677a16a60f67266ed9fdf81cf374b14e9c42b1c8 /t/op/stat.t | |
| parent | 806ca1c22d6bc2cc9ece12ac5288fbb5d07e10bc (diff) | |
| download | perl-1d662fb62e71ab3e37603febfa8212dd1e7e7f7e.tar.gz | |
[PATCH t/op/taint.t] remove possible false positive
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Date: Sat, 2 Feb 2002 13:11:01 +0100
Message-ID: <20020202131101.A722@rafael>
Subject: [PATCH t/op/ver.t] another false positive
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Date: Sat, 2 Feb 2002 13:38:22 +0100
Message-ID: <20020202133822.E722@rafael>
Subject: [PATCH] t/test.pl:ok() doesn't work
From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
Date: Sun, 03 Feb 2002 00:02:38 -0800
Message-ID: <e6OX8gzkgSMO092yn@efn.org>
p4raw-id: //depot/perl@14529
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index ad87c25b0b..6bb331592d 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -336,14 +336,14 @@ SKIP: { ok(! -B FOO, ' !-B'); $_ = <FOO>; - ok(/perl/, 'after readline'); + like($_, qr/perl/, 'after readline'); ok(-T FOO, ' still -T'); ok(! -B FOO, ' still -B'); close(FOO); open(FOO,'op/stat.t'); $_ = <FOO>; - ok(/perl/, 'reopened and after readline'); + like($_, qr/perl/, 'reopened and after readline'); ok(-T FOO, ' still -T'); ok(! -B FOO, ' still !-B'); |