Convert cross lateral join test to cross lateral join with fragment

test.

Author: William Wilkinson

test/ecto/adapters/postgres_test.exs

@@ -1162,16 +1162,22 @@ defmodule Ecto.Adapters.PostgresTest do
            ~s{WHERE ((s0."id" > 0) AND (s0."id" < $2))}
   end
 
-  test "cross join" do
-    query = from(p in Schema, cross_join: c in Schema2, select: {p.id, c.id}) |> plan()
+  test "cross lateral join with fragment" do
+    query = Schema
+            |> join(:cross_lateral, [p], q in fragment("SELECT * FROM schema2 AS s2 WHERE s2.id = ? AND s2.field = ?", p.x, ^10))
+            |> select([p, q], {p.id, q.z})
+            |> where([p], p.id > 0 and p.id < ^100)
+            |> plan()
     assert all(query) ==
-           "SELECT s0.\"id\", s1.\"id\" FROM \"schema\" AS s0 CROSS JOIN \"schema2\" AS s1"
+           ~s{SELECT s0."id", f1."z" FROM "schema" AS s0 CROSS JOIN LATERAL } <>
+           ~s{(SELECT * FROM schema2 AS s2 WHERE s2.id = s0."x" AND s2.field = $1) AS f1 ON TRUE } <>
+           ~s{WHERE ((s0."id" > 0) AND (s0."id" < $2))}
   end
 
-  test "cross lateral join" do
-    query = from(p in Schema, cross_lateral_join: c in Schema2, select: {p.id, c.id}) |> plan()
+  test "cross join" do
+    query = from(p in Schema, cross_join: c in Schema2, select: {p.id, c.id}) |> plan()
     assert all(query) ==
-           "SELECT s0.\"id\", s1.\"id\" FROM \"schema\" AS s0 CROSS JOIN LATERAL \"schema2\" AS s1"
+           "SELECT s0.\"id\", s1.\"id\" FROM \"schema\" AS s0 CROSS JOIN \"schema2\" AS s1"
   end
 
   test "cross join with fragment" do