diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-25 14:27:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-25 14:27:01 +0000 |
| commit | 69026470e9d2e2c7bf7b03f351d6e98a6d6f29f3 (patch) | |
| tree | c194809a1212142d6e379732826ee7e74db2bded /t/op/chdir.t | |
| parent | 81ba8d9690fde862b2e9f40e3edd1700854de746 (diff) | |
| download | perl-69026470e9d2e2c7bf7b03f351d6e98a6d6f29f3.tar.gz | |
Replace the use Test::More in t/{op,io,run} with t/test.pl.
Note: io/binmode is failing, have to figure out why.
p4raw-id: //depot/perl@12198
Diffstat (limited to 't/op/chdir.t')
| -rw-r--r-- | t/op/chdir.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/chdir.t b/t/op/chdir.t index af13e80518..b44cd6f665 100644 --- a/t/op/chdir.t +++ b/t/op/chdir.t @@ -2,9 +2,11 @@ BEGIN { # We're not going to chdir() into 't' because we don't know if # chdir() works! Instead, we'll hedge our bets and put both # possibilities into @INC. - @INC = ('lib', '../lib'); + @INC = qw(t . lib ../lib); } +require "test.pl"; +plan(tests => 25); # Might be a little early in the testing process to start using these, # but I can't think of a way to write this test without them. @@ -16,8 +18,6 @@ sub abs_path { rel2abs(curdir); } -use Test::More tests => 25; - my $cwd = abs_path; # Let's get to a known position |