]> git.vpit.fr Git - perl/modules/Scope-Context.git/blob - t/02-can.t
5af4e46100571c6a197dcaf9c969112c3a90439b
[perl/modules/Scope-Context.git] / 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