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
  15  unwind yield
  16  uplevel
  17 >;
  18
  19 plan tests => scalar(@methods);
  20
  21 require Scope::Context;
  22
  23 for (@methods) {
  24  ok(Scope::Context->can($_), 'Scope::Context objects can ' . $_);
  25 }
  26