From 6576d5cf7a144d061d75430cbbc2ed0cd41bde7b Mon Sep 17 00:00:00 2001
From: Meredith Howard <mhoward@roomag.org>
Date: Tue, 5 Mar 2019 19:45:04 -0600
Subject: [PATCH] Add test of --break-on-old-method-breakpoints

---
 t/snippets/break_old_methods.in               |  7 +++
 t/snippets/break_old_methods.par              |  1 +
 .../break_old_methods.break_old_methods       |  8 ++++
 t/snippets/expect/break_old_methods.def       |  5 +++
 t/snippets/packing_list.txt                   |  2 +
 t/snippets15.t                                | 44 ++++++++++++++++++-
 6 files changed, 65 insertions(+), 2 deletions(-)
 create mode 100644 t/snippets/break_old_methods.in
 create mode 100644 t/snippets/break_old_methods.par
 create mode 100644 t/snippets/expect/break_old_methods.break_old_methods
 create mode 100644 t/snippets/expect/break_old_methods.def

diff --git a/t/snippets/break_old_methods.in b/t/snippets/break_old_methods.in
new file mode 100644
index 00000000..1bc2ab50
--- /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
index 00000000..eb4040f0
--- /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
index 00000000..943f5a61
--- /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
index 00000000..73f30a3d
--- /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 4a4fc6e8..53aff695 100644
--- 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 21c705e8..c53061f0 100644
--- 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};
-- 
2.39.5