X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F51-dd-newlines.t;fp=t%2F51-dd-newlines.t;h=47622e690da548d66e9d76c9b8c411f07f28eb32;hb=5a1dc0d262394646b37dc5a1e4f5ee0a1e59fc1b;hp=0000000000000000000000000000000000000000;hpb=87becaf886eef8f6bc23f318b0a94715fdcb7854;p=perl%2Fmodules%2Findirect.git

diff --git a/t/51-dd-newlines.t b/t/51-dd-newlines.t
new file mode 100644
index 0000000..47622e6
--- /dev/null
+++ b/t/51-dd-newlines.t
@@ -0,0 +1,33 @@
+#!perl
+
+use lib 't/lib';
+use VPIT::TestHelpers;
+
+BEGIN {
+ load_or_skip_all("Devel::Declare", 0.006007, undef);
+}
+
+use Test::More tests => 1;
+
+sub foo { }
+
+sub foo_magic {
+ my($declarator, $offset) = @_;
+ $offset += Devel::Declare::toke_move_past_token($offset);
+ my $linestr = Devel::Declare::get_linestr();
+ substr $linestr, $offset, 0, "\n\n";
+ Devel::Declare::set_linestr($linestr);
+}
+
+BEGIN {
+ Devel::Declare->setup_for("main", { foo => { const => \&foo_magic } });
+}
+
+no indirect ":fatal";
+
+sub bar {
+ my $x;
+ foo; $x->m;
+}
+
+ok 1;