lib/version/t/03require.t

   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/;
   8
   9 BEGIN {
  10     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
  11     require $coretests;
  12 }
  13
  14 # Don't want to use, because we need to make sure that the import doesn't
  15 # fire just yet (some code does this to avoid importing qv() and delare()).
  16 require_ok("version");
  17 is $version::VERSION, 0.99, "Make sure we have the correct class";
  18 ok(!"main"->can("qv"), "We don't have the imported qv()");
  19 ok(!"main"->can("declare"), "We don't have the imported declare()");
  20
  21
  22 diag "Tests with base class" unless $ENV{PERL_CORE};
  23
  24 BaseTests("version","new",undef);
  25 BaseTests("version","parse",undef);