[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / t / 08_CPANPLUS-Backend.t

### make sure we can find our conf.pl file
BEGIN { 
    use FindBin; 
    require "$FindBin::Bin/inc/conf.pl";
}

use strict;
use Test::More      'no_plan';
use File::Basename  'dirname';

use Data::Dumper;
use CPANPLUS::Error;
use CPANPLUS::Internals::Constants;

my $conf = gimme_conf();

my $Class = 'CPANPLUS::Backend';
### D::C has troubles with the 'use_ok' -- it finds the wrong paths.
### for now, do a 'use' instead
#use_ok( $Class ) or diag "$Class not found";
use CPANPLUS::Backend;

my $cb = $Class->new( $conf );
isa_ok( $cb, $Class );

my $mt = $cb->module_tree;
my $at = $cb->author_tree;
ok( scalar keys %$mt,       "Module tree has entries" ); 
ok( scalar keys %$at,       "Author tree has entries" ); 

### module_tree tests ###
my $Name = TEST_CONF_MODULE;
my $mod  = $cb->module_tree($Name);

### XXX SOURCEFILES FIX
{   my @mods = $cb->module_tree($Name,$Name);
    my $none = $cb->module_tree( TEST_CONF_INVALID_MODULE );
    
    ok( IS_MODOBJ->(mod => $mod),           "Module object found" );
    is( scalar(@mods), 2,                   "   Module list found" );
    ok( IS_MODOBJ->(mod => $mods[0]),       "   ISA module object" );
    ok( !IS_MODOBJ->(mod => $none),         "   Bogus module detected");
}

### author_tree tests ###
{   my @auths = $cb->author_tree( $mod->author->cpanid,
                                  $mod->author->cpanid );
    my $none  = $cb->author_tree( 'fnurk' );
    
    ok( IS_AUTHOBJ->(auth => $mod->author), "Author object found" );
    is( scalar(@auths), 2,                  "   Author list found" );
    ok( IS_AUTHOBJ->( author => $auths[0] ),"   ISA author object" );
    is( $mod->author, $auths[0],            "   Objects are identical" );
    ok( !IS_AUTHOBJ->( author => $none ),   "   Bogus author detected" );
}

my $conf_obj = $cb->configure_object;
ok( IS_CONFOBJ->(conf => $conf_obj),    "Configure object found" );


### parse_module tests ###
{   my @map = (                                  
        $Name => [ 
            $mod->author->cpanid,   # author
            $mod->package_name,     # package name
            $mod->version,          # version
        ],
        $mod => [ 
            $mod->author->cpanid,  
            $mod->package_name, 
            $mod->version, 
        ],
        'Foo-Bar-EU-NOXS' => [ 
            $mod->author->cpanid,  
            $mod->package_name, 
            $mod->version,
        ],
        'Foo-Bar-EU-NOXS-0.01' => [ 
            $mod->author->cpanid,  
            $mod->package_name, 
            '0.01',
        ],
        'EUNOXS/Foo-Bar-EU-NOXS' => [ 
            'EUNOXS',
            $mod->package_name, 
            $mod->version,
        ],
        'EUNOXS/Foo-Bar-EU-NOXS-0.01' => [ 
            'EUNOXS',              
            $mod->package_name, 
            '0.01',
        ],
        ### existing module, no extension given
        ### this used to create a modobj with no package extension
        'EUNOXS/Foo-Bar-0.02' => [ 
            'EUNOXS',              
            'Foo-Bar',
            '0.02',
        ],
        'Foo-Bar-EU-NOXS-0.09' => [ 
            $mod->author->cpanid,  
            $mod->package_name, 
            '0.09',
        ],
        'MBXS/Foo-Bar-EU-NOXS-0.01' => [ 
            'MBXS',                
            $mod->package_name, 
            '0.01',
        ],
        'EUNOXS/Foo-Bar-EU-NOXS-0.09' => [ 
            'EUNOXS',
            $mod->package_name, 
            '0.09',
        ],
        'EUNOXS/Foo-Bar-EU-NOXS-0.09.zip' => [ 
            'EUNOXS',
            $mod->package_name, 
            '0.09',
        ],
        'FROO/Flub-Flob-1.1.zip' => [ 
            'FROO',    
            'Flub-Flob',    
            '1.1',  
        ],
        'G/GO/GOYALI/SMS_API_3_01.tar.gz' => [ 
            'GOYALI',  
            'SMS_API',      
            '3_01', 
        ],
        'E/EY/EYCK/Net/Lite/Net-Lite-FTP-0.091' => [ 
            'EYCK',    
            'Net-Lite-FTP', 
            '0.091',
        ],
        'EYCK/Net/Lite/Net-Lite-FTP-0.091' => [ 
            'EYCK',
            'Net-Lite-FTP', 
            '0.091',
        ],
        'M/MA/MAXDB/DBD-MaxDB-7.5.0.24a' => [ 
            'MAXDB',
            'DBD-MaxDB',
            '7.5.0.24a', 
        ],
        'EUNOXS/perl5.005_03.tar.gz' => [ 
            'EUNOXS',  
            'perl',
            '5.005_03',
        ],
        'FROO/Flub-Flub-v1.1.0.tbz' => [ 
            'FROO',    
            'Flub-Flub',       
            'v1.1.0', 
        ],
        'FROO/Flub-Flub-1.1_2.tbz' => [ 
            'FROO',    
            'Flub-Flub',       
            '1.1_2',
        ],   
        'LDS/CGI.pm-3.27.tar.gz' => [ 
            'LDS',
            'CGI',
            '3.27', 
        ],
        'FROO/Text-Tabs+Wrap-2006.1117.tar.gz' => [ 
            'FROO',    
            'Text-Tabs+Wrap',
            '2006.1117',                                                      
        ],   
        'JETTERO/Crypt-PBC-0.7.20.0-0.4.9' => [ 
            'JETTERO',
            'Crypt-PBC',
            '0.7.20.0-0.4.9' ,
        ],
        'GRICHTER/HTML-Embperl-1.2.1.tar.gz' => [ 
            'GRICHTER',            
            'HTML-Embperl', 
            '1.2.1',
        ],
        'KANE/File-Fetch-0.15_03' => [
            'KANE',
            'File-Fetch',
            '0.15_03',
        ],
        'AUSCHUTZ/IO-Stty-.02.tar.gz' => [
            'AUSCHUTZ',
            'IO-Stty',
            '.02',
        ],            
        '.' => [
            'CPANPLUS',
            't',
            '',
        ],            
    );       

    while ( my($guess, $attr) = splice @map, 0, 2 ) {
        my( $author, $pkg_name, $version ) = @$attr;

        ok( $guess,             "Attempting to parse $guess" );

        my $obj = $cb->parse_module( module => $guess );
        
        ok( $obj,               "   Result returned" );
        ok( IS_MODOBJ->( mod => $obj ), 
                                "   parse_module success by '$guess'" );     
        
        is( $obj->version, $version,
                                "   Proper version found: $version" );
        is( $obj->package_version, $version,
                                "       Found in package_version as well" );
        is( $obj->package_name, $pkg_name,
                                "   Proper package_name found: $pkg_name" );
        unlike( $obj->package_name, qr/\d/,
                                "       No digits in package name" );
        {   my $ext = $obj->package_extension;
            ok( $ext,           "       Has extension as well: $ext" );
        }
        
        like( $obj->author->cpanid, "/$author/i", 
                                "   Proper author found: $author");
        like( $obj->path,           "/$author/i", 
                                "   Proper path found: " . $obj->path );
    }


    ### test for things that look like real modules, but aren't ###
    {   my @map = (
            [  $Name . $$ => [
                [qr/does not contain an author/,"Missing author part detected"],
                [qr/Cannot find .+? in the module tree/,"Unable to find module"]
            ] ],
            [ {}, => [
                [ qr/module string from reference/,"Unable to parse ref"] 
            ] ],
        );

        for my $entry ( @map ) {
            my($mod,$aref) = @$entry;
            
            my $none = $cb->parse_module( module => $mod );
            ok( !IS_MODOBJ->(mod => $none),     
                                "Non-existant module detected" );
            ok( !IS_FAKE_MODOBJ->(mod => $none),
                                "Non-existant fake module detected" );
        
            my $str = CPANPLUS::Error->stack_as_string;
            for my $pair (@$aref) {
                my($re,$diag) = @$pair;
                like( $str, $re,"   $diag" );
            }
        }    
    }
    
    ### test parsing of arbitrary URI
    for my $guess ( qw[ http://foo/bar.gz
                        http://a/b/c/d/e/f/g/h/i/j
                        flub://floo ]
    ) {
        my $obj = $cb->parse_module( module => $guess );
        ok( IS_FAKE_MODOBJ->(mod => $obj), 
                                "parse_module success by '$guess'" );
        is( $obj->status->_fetch_from, $guess,
                                "   Fetch from set ok" );
    }                                       
}         

### RV tests ###
{   my $method = 'readme';
    my %args   = ( modules => [$Name] );  
    
    my $rv = $cb->$method( %args );
    ok( IS_RVOBJ->( $rv ),              "Got an RV object" );
    ok( $rv->ok,                        "   Overall OK" );
    cmp_ok( $rv, '==', 1,               "   Overload OK" );
    is( $rv->function, $method,         "   Function stored OK" );     
    is_deeply( $rv->args, \%args,       "   Arguments stored OK" );
    is( $rv->rv->{$Name}, $mod->readme, "   RV as expected" );
}

### reload_indices tests ###
{
    my $file = File::Spec->catfile( $conf->get_conf('base'),
                                    $conf->_get_source('mod'),
                                );
  
    ok( $cb->reload_indices( update_source => 0 ),  "Rebuilding trees" );                              
    my $age = -M $file;
    
    ### make sure we are 'newer' on faster machines with a sleep..
    ### apparently Win32's FAT isn't granual enough on intervals
    ### < 2 seconds, so it may give the same answer before and after
    ### the sleep, causing the test to fail. so sleep atleast 2 seconds.
    sleep 2;
    ok( $cb->reload_indices( update_source => 1 ),  
                                    "Rebuilding and refetching trees" );
    cmp_ok( $age, '>', -M $file,    "    Source file '$file' updated" );                                      
}

### flush tests ###
{
    for my $cache( qw[methods hosts modules lib all] ) {
        ok( $cb->flush($cache), "Cache $cache flushed ok" );
    }
}

### installed tests ###
{   ok( scalar($cb->installed), "Found list of installed modules" );
}    
                
### autobudle tests ###
{
    my $where = $cb->autobundle;
    ok( $where,     "Autobundle written" );
    ok( -s $where,  "   File has size" );
}

### local_mirror tests ###
{   ### turn off md5 checks for the 'fake' packages we have 
    my $old_md5 = $conf->get_conf('md5');
    $conf->set_conf( md5 => 0 );

    ### otherwise 'status->fetch' might be undef! ###
    my $rv = $cb->local_mirror( path => 'dummy-localmirror' );
    ok( $rv,                        "Local mirror created" );
    
    for my $mod ( values %{ $cb->module_tree } ) {
        my $name    = $mod->module;
        
        my $cksum   = File::Spec->catfile(
                        dirname($mod->status->fetch),
                        CHECKSUMS );
        ok( -e $mod->status->fetch, "   Module '$name' fetched" );
        ok( -s _,                   "       Module '$name' has size" );
        ok( -e $cksum,              "   Checksum fetched for '$name'" );
        ok( -s _,                   "       Checksum for '$name' has size" );
    }      

    $conf->set_conf( md5 => $old_md5 );
}    

### check ENV variable
{   ### process id
    {   my $name = 'PERL5_CPANPLUS_IS_RUNNING';
        ok( $ENV{$name},            "Env var '$name' set" );
        is( $ENV{$name}, $$,        "   Set to current process id" );
    }

    ### Version    
    {   my $name = 'PERL5_CPANPLUS_IS_VERSION';
        ok( $ENV{$name},            "Env var '$name' set" );

        ### version.pm formats ->VERSION output... *sigh*
        is( $ENV{$name}, $Class->VERSION,        
                                    "   Set to current process version" );
    }
    
}

__END__    
                                          
# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4:
Commit	Line	Data
6aaee015	1	### make sure we can find our conf.pl file
	2	BEGIN {
	3	use FindBin;
	4	require "$FindBin::Bin/inc/conf.pl";
	5	}
	6
	7	use strict;
	8	use Test::More 'no_plan';
	9	use File::Basename 'dirname';
	10
	11	use Data::Dumper;
	12	use CPANPLUS::Error;
	13	use CPANPLUS::Internals::Constants;
	14
	15	my $conf = gimme_conf();
	16
6aaee015	17	my $Class = 'CPANPLUS::Backend';
	18	### D::C has troubles with the 'use_ok' -- it finds the wrong paths.
	19	### for now, do a 'use' instead
	20	#use_ok( $Class ) or diag "$Class not found";
	21	use CPANPLUS::Backend;
	22
	23	my $cb = $Class->new( $conf );
	24	isa_ok( $cb, $Class );
	25
	26	my $mt = $cb->module_tree;
	27	my $at = $cb->author_tree;
	28	ok( scalar keys %$mt, "Module tree has entries" );
	29	ok( scalar keys %$at, "Author tree has entries" );
	30
	31	### module_tree tests ###
	32	my $Name = TEST_CONF_MODULE;
	33	my $mod = $cb->module_tree($Name);
	34
	35	### XXX SOURCEFILES FIX
	36	{ my @mods = $cb->module_tree($Name,$Name);
	37	my $none = $cb->module_tree( TEST_CONF_INVALID_MODULE );
	38
	39	ok( IS_MODOBJ->(mod => $mod), "Module object found" );
	40	is( scalar(@mods), 2, " Module list found" );
	41	ok( IS_MODOBJ->(mod => $mods[0]), " ISA module object" );
	42	ok( !IS_MODOBJ->(mod => $none), " Bogus module detected");
	43	}
	44
	45	### author_tree tests ###
	46	{ my @auths = $cb->author_tree( $mod->author->cpanid,
	47	$mod->author->cpanid );
	48	my $none = $cb->author_tree( 'fnurk' );
	49
	50	ok( IS_AUTHOBJ->(auth => $mod->author), "Author object found" );
	51	is( scalar(@auths), 2, " Author list found" );
	52	ok( IS_AUTHOBJ->( author => $auths[0] )," ISA author object" );
	53	is( $mod->author, $auths[0], " Objects are identical" );
	54	ok( !IS_AUTHOBJ->( author => $none ), " Bogus author detected" );
	55	}
	56
	57	my $conf_obj = $cb->configure_object;
	58	ok( IS_CONFOBJ->(conf => $conf_obj), "Configure object found" );
	59
	60
	61	### parse_module tests ###
4443dd53	62	{ my @map = (
	63	$Name => [
	64	$mod->author->cpanid, # author
	65	$mod->package_name, # package name
	66	$mod->version, # version
	67	],
	68	$mod => [
	69	$mod->author->cpanid,
	70	$mod->package_name,
	71	$mod->version,
	72	],
	73	'Foo-Bar-EU-NOXS' => [
	74	$mod->author->cpanid,
	75	$mod->package_name,
	76	$mod->version,
	77	],
	78	'Foo-Bar-EU-NOXS-0.01' => [
	79	$mod->author->cpanid,
	80	$mod->package_name,
	81	'0.01',
	82	],
	83	'EUNOXS/Foo-Bar-EU-NOXS' => [
	84	'EUNOXS',
	85	$mod->package_name,
	86	$mod->version,
	87	],
	88	'EUNOXS/Foo-Bar-EU-NOXS-0.01' => [
	89	'EUNOXS',
	90	$mod->package_name,
	91	'0.01',
	92	],
	93	### existing module, no extension given
	94	### this used to create a modobj with no package extension
	95	'EUNOXS/Foo-Bar-0.02' => [
	96	'EUNOXS',
	97	'Foo-Bar',
	98	'0.02',
	99	],
	100	'Foo-Bar-EU-NOXS-0.09' => [
	101	$mod->author->cpanid,
	102	$mod->package_name,
	103	'0.09',
	104	],
	105	'MBXS/Foo-Bar-EU-NOXS-0.01' => [
	106	'MBXS',
	107	$mod->package_name,
	108	'0.01',
	109	],
	110	'EUNOXS/Foo-Bar-EU-NOXS-0.09' => [
	111	'EUNOXS',
	112	$mod->package_name,
	113	'0.09',
	114	],
	115	'EUNOXS/Foo-Bar-EU-NOXS-0.09.zip' => [
	116	'EUNOXS',
	117	$mod->package_name,
	118	'0.09',
	119	],
	120	'FROO/Flub-Flob-1.1.zip' => [
	121	'FROO',
	122	'Flub-Flob',
	123	'1.1',
	124	],
	125	'G/GO/GOYALI/SMS_API_3_01.tar.gz' => [
126	'GOYALI',
127	'SMS_API',
128	'3_01',
129	],
130	'E/EY/EYCK/Net/Lite/Net-Lite-FTP-0.091' => [
131	'EYCK',
132	'Net-Lite-FTP',
133	'0.091',
134	],
135	'EYCK/Net/Lite/Net-Lite-FTP-0.091' => [
136	'EYCK',
137	'Net-Lite-FTP',
138	'0.091',
139	],
140	'M/MA/MAXDB/DBD-MaxDB-7.5.0.24a' => [
141	'MAXDB',
142	'DBD-MaxDB',
143	'7.5.0.24a',
144	],
145	'EUNOXS/perl5.005_03.tar.gz' => [
146	'EUNOXS',
147	'perl',
148	'5.005_03',
149	],
150	'FROO/Flub-Flub-v1.1.0.tbz' => [
151	'FROO',
152	'Flub-Flub',
153	'v1.1.0',
154	],
155	'FROO/Flub-Flub-1.1_2.tbz' => [
156	'FROO',
157	'Flub-Flub',
158	'1.1_2',
159	],
160	'LDS/CGI.pm-3.27.tar.gz' => [
161	'LDS',
162	'CGI',
163	'3.27',
164	],
165	'FROO/Text-Tabs+Wrap-2006.1117.tar.gz' => [
166	'FROO',
167	'Text-Tabs+Wrap',
168	'2006.1117',
169	],
170	'JETTERO/Crypt-PBC-0.7.20.0-0.4.9' => [
171	'JETTERO',
172	'Crypt-PBC',
173	'0.7.20.0-0.4.9' ,
174	],
175	'GRICHTER/HTML-Embperl-1.2.1.tar.gz' => [
176	'GRICHTER',
177	'HTML-Embperl',
178	'1.2.1',
179	],
180	'KANE/File-Fetch-0.15_03' => [
181	'KANE',
182	'File-Fetch',
183	'0.15_03',
184	],
185	'AUSCHUTZ/IO-Stty-.02.tar.gz' => [
186	'AUSCHUTZ',
187	'IO-Stty',
188	'.02',
189	],
a0995fd4	190	'.' => [
	191	'CPANPLUS',
	192	't',
	193	'',
	194	],
6aaee015	195	);
	196
	197	while ( my($guess, $attr) = splice @map, 0, 2 ) {
4443dd53	198	my( $author, $pkg_name, $version ) = @$attr;
6aaee015	199
	200	ok( $guess, "Attempting to parse $guess" );
	201
	202	my $obj = $cb->parse_module( module => $guess );
	203
	204	ok( $obj, " Result returned" );
	205	ok( IS_MODOBJ->( mod => $obj ),
	206	" parse_module success by '$guess'" );
	207
	208	is( $obj->version, $version,
	209	" Proper version found: $version" );
	210	is( $obj->package_version, $version,
	211	" Found in package_version as well" );
4443dd53	212	is( $obj->package_name, $pkg_name,
4443dd53	213	" Proper package_name found: $pkg_name" );
6aaee015	214	unlike( $obj->package_name, qr/\d/,
6aaee015	215	" No digits in package name" );
4443dd53	216	{ my $ext = $obj->package_extension;
	217	ok( $ext, " Has extension as well: $ext" );
	218	}
	219
6aaee015	220	like( $obj->author->cpanid, "/$author/i",
	221	" Proper author found: $author");
	222	like( $obj->path, "/$author/i",
	223	" Proper path found: " . $obj->path );
	224	}
	225
	226
	227	### test for things that look like real modules, but aren't ###
983ffab6	228	{ my @map = (
6aaee015	229	[ $Name . $$ => [
	230	[qr/does not contain an author/,"Missing author part detected"],
	231	[qr/Cannot find .+? in the module tree/,"Unable to find module"]
	232	] ],
	233	[ {}, => [
	234	[ qr/module string from reference/,"Unable to parse ref"]
	235	] ],
	236	);
	237
	238	for my $entry ( @map ) {
	239	my($mod,$aref) = @$entry;
	240
	241	my $none = $cb->parse_module( module => $mod );
	242	ok( !IS_MODOBJ->(mod => $none),
	243	"Non-existant module detected" );
	244	ok( !IS_FAKE_MODOBJ->(mod => $none),
	245	"Non-existant fake module detected" );
	246
	247	my $str = CPANPLUS::Error->stack_as_string;
	248	for my $pair (@$aref) {
	249	my($re,$diag) = @$pair;
	250	like( $str, $re," $diag" );
	251	}
	252	}
	253	}
	254
	255	### test parsing of arbitrary URI
	256	for my $guess ( qw[ http://foo/bar.gz
	257	http://a/b/c/d/e/f/g/h/i/j
	258	flub://floo ]
	259	) {
	260	my $obj = $cb->parse_module( module => $guess );
5bc5f6dc	261	ok( IS_FAKE_MODOBJ->(mod => $obj),
5bc5f6dc	262	"parse_module success by '$guess'" );
6aaee015	263	is( $obj->status->_fetch_from, $guess,
5bc5f6dc	264	" Fetch from set ok" );
6aaee015	265	}
	266	}
	267
	268	### RV tests ###
	269	{ my $method = 'readme';
	270	my %args = ( modules => [$Name] );
	271
	272	my $rv = $cb->$method( %args );
	273	ok( IS_RVOBJ->( $rv ), "Got an RV object" );
	274	ok( $rv->ok, " Overall OK" );
	275	cmp_ok( $rv, '==', 1, " Overload OK" );
	276	is( $rv->function, $method, " Function stored OK" );
	277	is_deeply( $rv->args, \%args, " Arguments stored OK" );
	278	is( $rv->rv->{$Name}, $mod->readme, " RV as expected" );
	279	}
	280
	281	### reload_indices tests ###
	282	{
	283	my $file = File::Spec->catfile( $conf->get_conf('base'),
	284	$conf->_get_source('mod'),
	285	);
	286
	287	ok( $cb->reload_indices( update_source => 0 ), "Rebuilding trees" );
	288	my $age = -M $file;
	289
	290	### make sure we are 'newer' on faster machines with a sleep..
	291	### apparently Win32's FAT isn't granual enough on intervals
	292	### < 2 seconds, so it may give the same answer before and after
	293	### the sleep, causing the test to fail. so sleep atleast 2 seconds.
	294	sleep 2;
	295	ok( $cb->reload_indices( update_source => 1 ),
	296	"Rebuilding and refetching trees" );
	297	cmp_ok( $age, '>', -M $file, " Source file '$file' updated" );
	298	}
	299
	300	### flush tests ###
	301	{
	302	for my $cache( qw[methods hosts modules lib all] ) {
	303	ok( $cb->flush($cache), "Cache $cache flushed ok" );
	304	}
	305	}
	306
	307	### installed tests ###
5bc5f6dc	308	{ ok( scalar($cb->installed), "Found list of installed modules" );
6aaee015	309	}
	310
	311	### autobudle tests ###
	312	{
	313	my $where = $cb->autobundle;
	314	ok( $where, "Autobundle written" );
	315	ok( -s $where, " File has size" );
	316	}
	317
	318	### local_mirror tests ###
	319	{ ### turn off md5 checks for the 'fake' packages we have
	320	my $old_md5 = $conf->get_conf('md5');
	321	$conf->set_conf( md5 => 0 );
	322
	323	### otherwise 'status->fetch' might be undef! ###
	324	my $rv = $cb->local_mirror( path => 'dummy-localmirror' );
	325	ok( $rv, "Local mirror created" );
	326
	327	for my $mod ( values %{ $cb->module_tree } ) {
	328	my $name = $mod->module;
	329
	330	my $cksum = File::Spec->catfile(
	331	dirname($mod->status->fetch),
	332	CHECKSUMS );
	333	ok( -e $mod->status->fetch, " Module '$name' fetched" );
	334	ok( -s _, " Module '$name' has size" );
	335	ok( -e $cksum, " Checksum fetched for '$name'" );
	336	ok( -s _, " Checksum for '$name' has size" );
	337	}
	338
	339	$conf->set_conf( md5 => $old_md5 );
	340	}
	341
	342	### check ENV variable
	343	{ ### process id
	344	{ my $name = 'PERL5_CPANPLUS_IS_RUNNING';
	345	ok( $ENV{$name}, "Env var '$name' set" );
	346	is( $ENV{$name}, $$, " Set to current process id" );
	347	}
	348
	349	### Version
	350	{ my $name = 'PERL5_CPANPLUS_IS_VERSION';
	351	ok( $ENV{$name}, "Env var '$name' set" );
	352
	353	### version.pm formats ->VERSION output... sigh
	354	is( $ENV{$name}, $Class->VERSION,
	355	" Set to current process version" );
	356	}
	357
	358	}
	359
	360	__END__
	361
	362	# Local variables:
	363	# c-indentation-style: bsd
	364	# c-basic-offset: 4
	365	# indent-tabs-mode: nil
	366	# End:
	367	# vim: expandtab shiftwidth=4:
	368