diff options
author | Yves Orton <demerphq@gmail.com> | 2023-01-03 13:40:10 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-01-04 10:05:28 +0100 |
commit | da66f78dd1bed16e1553de5fe708bcbe1cd8dd2b (patch) | |
tree | 98df68142f986677cdfd083cdf28ef0711da9863 /t/porting | |
parent | 9bd1ff564c5f983befd5d076b6c0a6da4b63837c (diff) | |
download | perl-da66f78dd1bed16e1553de5fe708bcbe1cd8dd2b.tar.gz |
regen/embed_lib.pl - don't add integer to reference and fixup source data
Dave noticed there was a bug where I was adding a reference to an
integer. That did not make any sense. This patch fixes up the data so
the source of the line is more clear. I will do a further follow up
to improve this more, this is just to get the bug out of the way.
Diffstat (limited to 't/porting')
-rw-r--r-- | t/porting/header_parser.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/porting/header_parser.t b/t/porting/header_parser.t index 6a8975b507..a2a33b8371 100644 --- a/t/porting/header_parser.t +++ b/t/porting/header_parser.t @@ -57,6 +57,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "#if defined(A)\n", "n_lines" => 1, "raw" => "#ifdef A\n", + "source" => "(buffer)", "start_line_num" => 1, "sub_type" => "#if", "type" => "cond" @@ -75,6 +76,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "# if defined(B)\n", "n_lines" => 1, "raw" => "#ifdef B\n", + "source" => "(buffer)", "start_line_num" => 2, "sub_type" => "#if", "type" => "cond" @@ -93,6 +95,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "# define AB\n", "n_lines" => 1, "raw" => "#define AB\n", + "source" => "(buffer)", "start_line_num" => 3, "sub_type" => "#define", "type" => "content" @@ -111,6 +114,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "content 1\n", "n_lines" => 1, "raw" => "content 1\n", + "source" => "(buffer)", "start_line_num" => 4, "sub_type" => "text", "type" => "content" @@ -129,6 +133,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "# endif /* defined(B) */\n", "n_lines" => 1, "raw" => "#endif\n", + "source" => "(buffer)", "start_line_num" => 5, "sub_type" => "#endif", "type" => "cond" @@ -144,6 +149,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "content 2\n", "n_lines" => 1, "raw" => "content 2\n", + "source" => "(buffer)", "start_line_num" => 6, "sub_type" => "text", "type" => "content" @@ -159,6 +165,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "# define A\n", "n_lines" => 1, "raw" => "#define A\n", + "source" => "(buffer)", "start_line_num" => 7, "sub_type" => "#define", "type" => "content" @@ -174,6 +181,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "#endif /* defined(A) */\n", "n_lines" => 1, "raw" => "#endif\n", + "source" => "(buffer)", "start_line_num" => 8, "sub_type" => "#endif", "type" => "cond" @@ -185,6 +193,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "/*comment\n line */\n", "n_lines" => 2, "raw" => "/*comment\n line */\n", + "source" => "(buffer)", "start_line_num" => 9, "sub_type" => "text", "type" => "content" @@ -196,6 +205,7 @@ is($lines_as_str,<<~'DUMP_EOF', "Simple data structure as expected") or show_tex "line" => "#define C /* this is\n a hidden line continuation */ D\n", "n_lines" => 2, "raw" => "#define C /* this is\n a hidden line continuation */ D\n", + "source" => "(buffer)", "start_line_num" => 11, "sub_type" => "#define", "type" => "content" |