Ticket #401: update_test_09-outline-t.patch

PPIx-EditorTools/t/09-outline.t

@@ -123 +123 @@
                 ],
                 'methods' => [
                     {   'name' => 'pub_sub',
-                        'line' => 12,
+                        'line' => 14,
                     },
                     {   'name' => '_pri_sub',
-                        'line' => 16,
+                        'line' => 18,
                     },
                     {   'name' => 'mm_before',
-                        'line' => 20
+                        'line' => 22
                     },
                     {   'name' => 'mm_after',
-                        'line' => 24
+                        'line' => 26
                     },
                     {   'name' => 'mm_around',
-                        'line' => 28
+                        'line' => 30
                     },
                     {   'name' => 'mm_override',
-                        'line' => 32
+                        'line' => 34
                     },
                     {   'name' => 'mm_augment',
-                        'line' => 36
+                        'line' => 38
                     },
                 ],
                 'line'       => 3,
@@ -168 +168 @@
                     {   'name' => 'account',
                         'line' => 10
                     },
+                    {
+                        'name' => 'non_quoted_attr',
+                            'line' => 12
+                    },
                 ],
             }
         ],
     },
+    # can we do the same thing with vanilla Moose class definitions?
+    {   file     => 't/outline/MooclassVanilla.pm',
+        expected => [
+            {   'modules' => [
+                    {   'name' => 'Moose',
+                        'line' => 3,
+                    },
+                ],
+                'methods' => [
+                    {   'name' => 'pub_sub',
+                        'line' => 14,
+                    },
+                    {   'name' => '_pri_sub',
+                        'line' => 18,
+                    },
+                    {   'name' => 'mm_before',
+                        'line' => 22
+                    },
+                    {   'name' => 'mm_after',
+                        'line' => 26
+                    },
+                    {   'name' => 'mm_around',
+                        'line' => 30
+                    },
+                    {   'name' => 'mm_override',
+                        'line' => 34
+                    },
+                    {   'name' => 'mm_augment',
+                        'line' => 38
+                    },
+                ],
+                'line'       => 1,
+                'name'       => 'Moose::Declarations::MethodModifiers::Vanilla',
+                'attributes' => [
+                    {   'name' => 'moo_att',
+                        'line' => 5
+                    },
+                    {   'name' => 'label',
+                        'line' => 7
+                    },
+                    {   'name' => 'progress',
+                        'line' => 7
+                    },
+                    {   'name' => 'butWarn',
+                        'line' => 7
+                    },
+                    {   'name' => 'butTime',
+                        'line' => 7
+                    },
+                    {   'name' => 'start_stop',
+                        'line' => 7
+                    },
+                    {   'name' => 'account',
+                        'line' => 10
+                    },
+                    {
+                        'name' => 'non_quoted_attr',
+                            'line' => 12
+                    },
+                ],
+            }
+        ],
+    },
     {   file     => 't/outline/Moorole.pm',
         expected => [
             {   'modules' => [
@@ -241 +308 @@
 foreach my $c (@cases) {
     my $code = $c->{code};
     if ( $c->{file} ) {
-        open my $fh, '<', $c->{file} or die;
+        open my $fh, '<', $c->{file} or die ("couldn't read file: ",$c->{file}, ": $!");
         local $/ = undef;
         $code = <$fh>;
     }
     my $outline = PPIx::EditorTools::Outline->new->find( code => $code );
-
+    
     #diag explain $outline;
     is_deeply $outline, $c->{expected} or diag explain $outline;
 }