merged -bom update

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index ab635097ab26590356e7bc339f24d4847497a512..2fd2c11c37ed384e9f1c3b512c8f6a7143f49934 100644 (file)
--- 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 97acfe6ea9b446a61e51cf06421d7332ea93dad9..8455c325b8fd7c0fc31e96aa16b05b4c5c4468e0 100644 (file)
--- 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};