RE: Untested modules update: There's more than we thought

[Brent Dax]

Michael G Schwern:
# lib                         *new*

I don't know what directory this should go into, so I'm not providing a
patch, just pasting the body of lib.t in here.  Good enough?

#!./perl

use Test::More tests => 3;
use lib 'stuff';

#create a directory and a module
mkdir('stuff', 0666);
open(MOD, '>stuff/Yup.pm');
print MOD 'package Yup; 1;';
close MOD;


#did the directory show up?
ok(scalar(grep {/stuff/} @INC), 'added to @INC');


#does it change require's behavior?
ok(
        eval { require Yup; 1; },
        'affects require'
);


#how about use's?
is(
        `perl "-Mlib=stuff -MYup" -e "print 'ok'"`,
        'ok',
        'affects use'
);


#cleanup
unlink 'stuff/Yup.pm';
unlink 'stuff';

__END__

--Brent Dax
[EMAIL PROTECTED]
Configure pumpking for Perl 6

"Nothing important happened today."
    --George III of England's diary entry for 4-Jul-1776