This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perldelta.pod: tweak -Dusedefaultstrict text
[perl5.git] / cpan / version / t / 03require.t
CommitLineData
543eec9e
JP
1#! /usr/local/perl -w
2# Before `make install' is performed this script should be runnable with
3# `make test'. After `make install' it should work as `perl test.pl'
4
5#########################
6
7use Test::More qw/no_plan/;
14f3031b 8use File::Spec;
543eec9e
JP
9
10BEGIN {
dddb2275
JP
11 my $coretests = File::Spec->rel2abs(
12 File::Spec->catpath(
13 (File::Spec->splitpath($0))[0,1], 'coretests.pm'
14 )
14f3031b 15 );
543eec9e
JP
16 require $coretests;
17}
18
19# Don't want to use, because we need to make sure that the import doesn't
20# fire just yet (some code does this to avoid importing qv() and delare()).
21require_ok("version");
966a3447 22is $version::VERSION, 0.9928, "Make sure we have the correct class";
543eec9e
JP
23ok(!"main"->can("qv"), "We don't have the imported qv()");
24ok(!"main"->can("declare"), "We don't have the imported declare()");
25
543eec9e
JP
26BaseTests("version","new",undef);
27BaseTests("version","parse",undef);