t/01-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2 * 3;
   7
   8 require Sub::Prototype::Util;
   9
  10 my %syms = (
  11  flatten => undef,
  12  recall  => undef,
  13  wrap    => undef,
  14 );
  15
  16 for (keys %syms) {
  17  eval { Scope::Upper->import($_) };
  18  is $@,            '',        "import $_";
  19  is prototype($_), $syms{$_}, "prototype $_";
  20 }