[perl5.git] / lib / base / t / version.t

#!/usr/bin/perl -w

BEGIN {
   if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = qw(../lib ../lib/base/t/lib);
    }
}

use strict;

use Test::More tests => 1;

# Here we emulate a bug with base.pm not finding the Exporter version
# for some reason.
use lib qw(t/lib);
use base qw(Dummy);

is( $Dummy::VERSION, 5.562,       "base.pm doesn't confuse the version" );
Commit	Line	Data
9e998a43 RGS	1	#!/usr/bin/perl -w
	2
	3	BEGIN {
	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't' if -d 't';
5633ac3d	6	@INC = qw(../lib ../lib/base/t/lib);
9e998a43 RGS	7	}
	8	}
	9
	10	use strict;
	11
	12	use Test::More tests => 1;
	13
	14	# Here we emulate a bug with base.pm not finding the Exporter version
	15	# for some reason.
	16	use lib qw(t/lib);
	17	use base qw(Dummy);
	18
	19	is( $Dummy::VERSION, 5.562, "base.pm doesn't confuse the version" );