From e9af4c9d73f671367685d49c6ca4187d6741fc6d Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 9 Mar 2019 12:53:29 -0800
Subject: [PATCH] merged -bom update

---
 t/snippets/packing_list.txt | 10 +++++-----
 t/snippets15.t              | 38 +++++++++++++++++++++++++++++++++----
 2 files changed, 39 insertions(+), 9 deletions(-)

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index ab635097..2fd2c11c 100644
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -119,8 +119,9 @@
 ../snippets14.t	gnu5.def
 ../snippets15.t	gnu5.gnu
 ../snippets15.t	wngnu1.def
-../snippets15.t	break_old_methods.break_old_methods
-../snippets15.t	break_old_methods.def
+../snippets15.t	olbs.def
+../snippets15.t	olbs.olbs0
+../snippets15.t	olbs.olbs2
 ../snippets2.t	angle.def
 ../snippets2.t	arrows1.def
 ../snippets2.t	arrows2.def
@@ -281,6 +282,5 @@
 ../snippets9.t	rt98902.def
 ../snippets9.t	rt98902.rt98902
 ../snippets9.t	rt99961.def
-../snippets15.t	olbs.def
-../snippets15.t	olbs.olbs0
-../snippets15.t	olbs.olbs2
+../snippets15.t	break_old_methods.break_old_methods
+../snippets15.t	break_old_methods.def
diff --git a/t/snippets15.t b/t/snippets15.t
index 97acfe6e..8455c325 100644
--- a/t/snippets15.t
+++ b/t/snippets15.t
@@ -6,6 +6,8 @@
 #3 olbs.def
 #4 olbs.olbs0
 #5 olbs.olbs2
+#6 break_old_methods.break_old_methods
+#7 break_old_methods.def
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -23,10 +25,11 @@ BEGIN {
     # BEGIN SECTION 1: Parameter combinations #
     ###########################################
     $rparams = {
-        'def'   => "",
-        'gnu'   => "-gnu",
-        'olbs0' => "-olbs=0",
-        'olbs2' => "-olbs=2",
+        'break_old_methods' => "--break-at-old-method-breakpoints",
+        'def'               => "",
+        'gnu'               => "-gnu",
+        'olbs0'             => "-olbs=0",
+        'olbs2'             => "-olbs=2",
     };
 
     ############################
@@ -165,6 +168,33 @@ for $x ( 1, 2 ) { s/(.*)/+$1/; }    # side comment
 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked"; }
 #5...........
         },
+
+        'break_old_methods.break_old_methods' => {
+            source => "break_old_methods",
+            params => "break_old_methods",
+            expect => <<'#6...........',
+my $q = $rs
+  ->related_resultset('CDs')
+  ->related_resultset('Tracks')
+  ->search(
+    {
+        'track.id' => { -ident => 'none_search.id' },
+    }
+)->as_query;
+#6...........
+        },
+
+        'break_old_methods.def' => {
+            source => "break_old_methods",
+            params => "def",
+            expect => <<'#7...........',
+my $q = $rs->related_resultset('CDs')->related_resultset('Tracks')->search(
+    {
+        'track.id' => { -ident => 'none_search.id' },
+    }
+)->as_query;
+#7...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};
-- 
2.39.5