Implement context_info() accessors

[perl/modules/Scope-Context.git] / t / 02-can.t

diff --git a/t/02-can.t b/t/02-can.t
index 5af4e46100571c6a197dcaf9c969112c3a90439b..595aaacc6e7b6f5135dd04e58cfa6d33f8b84b0d 100644 (file)
--- a/t/02-can.t
+++ b/t/02-can.t
@@ -9,13 +9,23 @@ my @methods = qw<
  new here
  cxt
  uid is_valid assert_valid
+
+ package file line
+ sub_name sub_has_args
+ gimme
+ eval_text is_require
+ hints_bits warnings_bits
+
  want
  up sub eval
+
  reap localize localize_elem localize_delete
  unwind yield
  uplevel
 >;
 
+push @methods, 'hints_hash' if "$]" >= 5.010;
+
 plan tests => scalar(@methods);
 
 require Scope::Context;