git.maemo.org Git - pkg-perl/blob - deb-src/libspiffy-perl/libspiffy-perl-0.30/t/export4.t

   1 use lib 't';
   2 use strict;
   3 use warnings;
   4
   5 package A;
   6 # Exporter before 5.8.4 needs the tag as the first thing imported
   7 use Spiffy -base, qw(:XXX const);
   8
   9 package B;
  10 use base 'A';
  11
  12 package C;
  13 use Spiffy -XXX, -base;
  14
  15 package D;
  16 use Spiffy -base;
  17
  18 package E;
  19 use Spiffy -base, 'XXX';
  20
  21 package F;
  22 use Spiffy -base;
  23 use Spiffy 'XXX';
  24
  25 package main;
  26 use Test::More tests => 24;
  27
  28 ok(not defined &A::field);
  29 ok(defined &A::const);
  30 ok(defined &A::XXX);
  31 ok(defined &A::YYY);
  32
  33 ok(defined &B::field);
  34 ok(defined &B::const);
  35 ok(not defined &B::XXX);
  36 ok(not defined &B::YYY);
  37
  38 ok(defined &C::field);
  39 ok(defined &C::const);
  40 ok(defined &C::XXX);
  41 ok(defined &C::YYY);
  42
  43 ok(defined &D::field);
  44 ok(defined &D::const);
  45 ok(not defined &D::XXX);
  46 ok(not defined &D::YYY);
  47
  48 ok(not defined &E::field);
  49 ok(not defined &E::const);
  50 ok(defined &E::XXX);
  51 ok(not defined &E::YYY);
  52
  53 ok(defined &F::field);
  54 ok(defined &F::const);
  55 ok(defined &F::XXX);
  56 ok(not defined &F::YYY);