Test for X::Caller::NotDynamic

moritz · moritz · commit fe9f77cb367b · 2013-08-12T11:46:29.000+02:00
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -399,4 +399,6 @@ throws_like 'class Foobar is Foobar', X::Inheritance::SelfInherit, name => "Foob
     throws_like q{role Bottle[::T] { method Str { "a bottle of {T}" } }; class Wine { ... }; say Bottle[Wine].new;}, X::Package::Stubbed;
 }
 
+throws_like q[sub f() {CALLER::<$x>}; my $x; f], X::Caller::NotDynamic, symbol => '$x';
+
 done;

Original file line number	Diff line number	Diff line change
`@@ -399,4 +399,6 @@ throws_like 'class Foobar is Foobar', X::Inheritance::SelfInherit, name => "Foob`
`399`	`399`	`throws_like q{role Bottle[::T] { method Str { "a bottle of {T}" } }; class Wine { ... }; say Bottle[Wine].new;}, X::Package::Stubbed;`
`400`	`400`	`}`
`401`	`401`
	`402`	`+throws_like q[sub f() {CALLER::<$x>}; my $x; f], X::Caller::NotDynamic, symbol => '$x';`
	`403`	`+`
`402`	`404`	`done;`