Renumber test files

[perl/modules/Lexical-Types.git] / t / 21-scalar-padsv.t

diff --git a/t/21-scalar-padsv.t b/t/21-scalar-padsv.t
new file mode 100644 (file)
index 0000000..139b72d
--- /dev/null
+++ b/t/21-scalar-padsv.t
@@ -0,0 +1,49 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Config qw<%Config>;
+
+use Test::More tests => 4;
+
+sub Str::TYPEDSCALAR {
+ my $buf = (caller(0))[2];
+ open $_[1], '<', \$buf;
+ ()
+}
+
+{
+ use Lexical::Types;
+
+ my Str $x;
+ our $r = <$x>;
+ is $r, __LINE__-2, 'trick for our - readline';
+
+ my Str $y;
+ my $s = <$y>;
+ is $s, __LINE__-2, 'trick for my - readline';
+
+ my $z = 7;
+ is $z, 7, 'trick for others';
+}
+
+my @lines;
+
+sub Int::TYPEDSCALAR { push @lines, (caller(0))[2]; () }
+
+SKIP: {
+ skip 'Broken with threaded perls before 5.8.4' => 1
+                                   if $Config{useithreads} and "$]" < 5.008_004;
+
+ use Lexical::Types as => sub {
+  # In 5.10, this closure is compiled before hints are enabled, so no hintseval
+  # op is added at compile time to propagate the hints inside the eval.
+  # That's why we need to re-use Lexical::Types explicitely.
+  eval 'use Lexical::Types; my Int $x';
+  @_;
+ };
+
+ my Int $x;
+ is_deeply \@lines, [ 1, __LINE__-1 ], 'hooking inside the \'as\' callback';
+}