t/02-can.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 my @methods = qw<
   9  new here
  10  cxt
  11  uid is_valid assert_valid
  12  want
  13  up sub eval
  14  reap localize localize_elem localize_delete unwind uplevel
  15 >;
  16
  17 plan tests => scalar(@methods);
  18
  19 require Scope::Context;
  20
  21 for (@methods) {
  22  ok(Scope::Context->can($_), 'Scope::Context objects can ' . $_);
  23 }
  24