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/; 8use File::Spec; 9 10BEGIN { 11 my $coretests = File::Spec->rel2abs( 12 File::Spec->catpath( 13 (File::Spec->splitpath($0))[0,1], 'coretests.pm' 14 ) 15 ); 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"); 22is $version::VERSION, '0.9930', "Make sure we have the correct class"; 23ok(!"main"->can("qv"), "We don't have the imported qv()"); 24ok(!"main"->can("declare"), "We don't have the imported declare()"); 25 26BaseTests("version","new",undef); 27BaseTests("version","parse",undef); 28