Skip to content

Commit 36c9c00

Browse files
committed
Add additional tests for identified failure cases
Handling tabs and spaces is tricky, especially around in the complex logic that surrounds use base qw{ stuff };
1 parent e889f70 commit 36c9c00

2 files changed

Lines changed: 8 additions & 0 deletions

File tree

t/02_list.t

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -40,6 +40,9 @@ my @expectedrequires = (
4040
"$perl_ns(TARGET_CLASS)\n",
4141
"$perl_ns(XML::XQL::Element)\n",
4242
"$perl_ns(Class::Accessor::Fast)\n",
43+
"$perl_ns(AfterTab)\n",
44+
"$perl_ns(AfterSpace)\n",
45+
"$perl_ns(AfterNLAndTab)\n",
4346
);
4447

4548
is_deeply([ sort @requires ], [ sort @expectedrequires ], "Only expected requires were found.");

t/data/list

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -42,3 +42,8 @@ use base TARGET_CLASS;
4242

4343
# Do not ignore line which contains '->' in a coment
4444
use base 'XML::XQL::Element'; # L -> L
45+
46+
use base qw {
47+
AfterTab AfterSpace
48+
AfterNLAndTab
49+
};

0 commit comments

Comments
 (0)