]> git.vpit.fr Git - perl/modules/Scope-Context.git/blob - t/02-can.t
Clarify the descriptions of ->localize{,_elem,_delete}()
[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
13  package file line
14  sub_name sub_has_args
15  gimme
16  eval_text is_require
17  hints_bits warnings_bits
18
19  want
20  up sub eval
21
22  reap localize localize_elem localize_delete
23  unwind yield
24  uplevel
25 >;
26
27 push @methods, 'hints_hash' if "$]" >= 5.010;
28
29 plan tests => scalar(@methods);
30
31 require Scope::Context;
32
33 for (@methods) {
34  ok(Scope::Context->can($_), 'Scope::Context objects can ' . $_);
35 }
36