Commit | Line | Data |
---|---|---|
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 | ||
7 | use Test::More qw/no_plan/; | |
14f3031b | 8 | use File::Spec; |
543eec9e JP |
9 | |
10 | BEGIN { | |
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()). | |
21 | require_ok("version"); | |
d3a5b29c | 22 | is $version::VERSION, 0.9921, "Make sure we have the correct class"; |
543eec9e JP |
23 | ok(!"main"->can("qv"), "We don't have the imported qv()"); |
24 | ok(!"main"->can("declare"), "We don't have the imported declare()"); | |
25 | ||
543eec9e JP |
26 | BaseTests("version","new",undef); |
27 | BaseTests("version","parse",undef); |