6 use Test::More tests => 11;
10 for my $method (qw<new here>) {
13 my $here = Scope::Context->$method;
14 isa_ok $here, 'Scope::Context', "$method return value isa Scope::Context";
16 is $@, '', "creating a new object with ->$method does not croak";
22 my $here = Scope::Context->new;
23 my $also_here = Scope::Context->new($here->cxt);
24 isa_ok $here, 'Scope::Context', '$here isa Scope::Context';
25 isa_ok $also_here, 'Scope::Context', '$also_here isa Scope::Context';
27 is $@, '', 'creating a new object from a given context does not croak';
30 for my $method (qw<new here>) {
33 my $here = $Scope::Context::{$method}->();
34 isa_ok $here, 'Scope::Context', "$method return value isa Scope::Context";
36 is $@, '', "creating a new object with Scope::Context::$method does not croak";