Add test of --break-on-old-method-breakpoints

diff --git a/t/snippets/break_old_methods.in b/t/snippets/break_old_methods.in
new file mode 100644 (file)
index 0000000..1bc2ab5
--- /dev/null
+++ b/t/snippets/break_old_methods.in
@@ -0,0 +1,7 @@
+my $q = $rs
+   ->related_resultset('CDs')
+   ->related_resultset('Tracks')
+   ->search({
+      'track.id' => { -ident => 'none_search.id' },
+   })
+   ->as_query;

diff --git a/t/snippets/break_old_methods.par b/t/snippets/break_old_methods.par
new file mode 100644 (file)
index 0000000..eb4040f
--- /dev/null
+++ b/t/snippets/break_old_methods.par
@@ -0,0 +1 @@
+--break-at-old-method-breakpoints

diff --git a/t/snippets/expect/break_old_methods.break_old_methods b/t/snippets/expect/break_old_methods.break_old_methods
new file mode 100644 (file)
index 0000000..943f5a6
--- /dev/null
+++ b/t/snippets/expect/break_old_methods.break_old_methods
@@ -0,0 +1,8 @@
+my $q = $rs
+  ->related_resultset('CDs')
+  ->related_resultset('Tracks')
+  ->search(
+    {
+        'track.id' => { -ident => 'none_search.id' },
+    }
+)->as_query;

diff --git a/t/snippets/expect/break_old_methods.def b/t/snippets/expect/break_old_methods.def
new file mode 100644 (file)
index 0000000..73f30a3
--- /dev/null
+++ b/t/snippets/expect/break_old_methods.def
@@ -0,0 +1,5 @@
+my $q = $rs->related_resultset('CDs')->related_resultset('Tracks')->search(
+    {
+        'track.id' => { -ident => 'none_search.id' },
+    }
+)->as_query;

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 4a4fc6e81b21b420b8f9f901982042baecfaa2de..53aff695d71685e509b941723bbb352958c3db35 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -119,6 +119,8 @@
 ../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
 ../snippets2.t angle.def
 ../snippets2.t arrows1.def
 ../snippets2.t arrows2.def

diff --git a/t/snippets15.t b/t/snippets15.t
index 21c705e8a714bdbb65210048c11157527783ded4..c53061f0ed59785c93eda811149e6f686c392c2e 100644 (file)
--- a/t/snippets15.t
+++ b/t/snippets15.t
@@ -3,6 +3,8 @@
 # Contents:
 #1 gnu5.gnu
 #2 wngnu1.def
+#3 break_old_methods.break_old_methods
+#4 break_old_methods.def
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -20,8 +22,9 @@ BEGIN {
     # BEGIN SECTION 1: Parameter combinations #
     ###########################################
     $rparams = {
-        'def' => "",
-        'gnu' => "-gnu",
+        'break_old_methods' => "--break-at-old-method-breakpoints",
+        'def'               => "",
+        'gnu'               => "-gnu",
     };
 
     ############################
@@ -29,6 +32,16 @@ BEGIN {
     ############################
     $rsources = {
 
+        'break_old_methods' => <<'----------',
+my $q = $rs
+   ->related_resultset('CDs')
+   ->related_resultset('Tracks')
+   ->search({
+      'track.id' => { -ident => 'none_search.id' },
+   })
+   ->as_query;
+----------
+
         'gnu5' => <<'----------',
         # side comments limit gnu type formatting with l=80; note extra comma
         push @tests, [
@@ -102,6 +115,33 @@ BEGIN {
     }
 #2...........
         },
+
+        'break_old_methods.break_old_methods' => {
+            source => "break_old_methods",
+            params => "break_old_methods",
+            expect => <<'#3...........',
+my $q = $rs
+  ->related_resultset('CDs')
+  ->related_resultset('Tracks')
+  ->search(
+    {
+        'track.id' => { -ident => 'none_search.id' },
+    }
+)->as_query;
+#3...........
+        },
+
+        'break_old_methods.def' => {
+            source => "break_old_methods",
+            params => "def",
+            expect => <<'#4...........',
+my $q = $rs->related_resultset('CDs')->related_resultset('Tracks')->search(
+    {
+        'track.id' => { -ident => 'none_search.id' },
+    }
+)->as_query;
+#4...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};