Things were simpler in the old days

[Nicholas Clark <nick@ccl4.org>]

I had cause to wonder why t/harness sets $ENV{PERL5LIB} = '../lib';

It turns out that it's just a small part of the infamous change 18:

Change 18 by mbeattie@localhost on 1997/05/25 10:31:21

        First stab at 5.003 -> 5.004 integration.

Affected files ...


Which is rather big:

$ p4 describe  18 | wc
  125267  623202 3983974


Anyway, what surprised me was what t/harness looked like at change 1:

//depot/perl/t/harness#1 - add change 1 (text)
#!./perl

# We suppose that perl _mostly_ works at this moment, so may use
# sophisticated testing.

# Note that _before install_ you may need to run it with -I ../lib flag

use lib '../lib';
use Test::Harness;

$Test::Harness::switches = "";  # Too much noise otherwise

@tests = @ARGV;
@tests = <*/*.t> unless @tests;
Test::Harness::runtests @tests;



It's a bit bigger now

$ wc ~/p4perl/perl/t/harness 
     225     860    5702 /home/nick/p4perl/perl/t/harness


Nicholas Clark

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---