This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Relax fatal circumstances of unescaped '{'
[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 {
14f3031b
JP
11 my $coretests = File::Spec->catpath(
12 (File::Spec->splitpath($0))[0,1], 'coretests.pm'
13 );
543eec9e
JP
14 require $coretests;
15}
16
17# Don't want to use, because we need to make sure that the import doesn't
18# fire just yet (some code does this to avoid importing qv() and delare()).
19require_ok("version");
38660758 20is $version::VERSION, 0.9917, "Make sure we have the correct class";
543eec9e
JP
21ok(!"main"->can("qv"), "We don't have the imported qv()");
22ok(!"main"->can("declare"), "We don't have the imported declare()");
23
543eec9e
JP
24BaseTests("version","new",undef);
25BaseTests("version","parse",undef);