t/01-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2 * 2;
   7
   8 require Variable::Temp;
   9
  10 my %syms = (
  11  temp     => '\[$@%]',
  12  set_temp => '\[$@%];$',
  13 );
  14
  15 for (sort keys %syms) {
  16  eval { Variable::Temp->import($_) };
  17  is $@,            '',        "import $_";
  18  is prototype($_), $syms{$_}, "prototype $_";
  19 }