Fix recursion warnings while parsing extremely long lists

[dbsrgits/SQL-Abstract.git] / t / 11unparse.t

diff --git a/t/11unparse.t b/t/11unparse.t
deleted file mode 100644 (file)
index f45b5e4..0000000
--- a/t/11unparse.t
+++ /dev/null
@@ -1,702 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-use Test::Deep;
-use SQL::Abstract::Tree;
-
-my $sqlat = SQL::Abstract::Tree->new;
-
-cmp_deeply($sqlat->parse("SELECT a, b.*, * FROM foo WHERE foo.a =1 and foo.b LIKE 'station'"), [
-  [
-    [
-      "SELECT",
-      [
-        [
-          "LIST",
-          [
-            [
-              "LITERAL",
-              [
-                "a"
-              ]
-            ],
-            [
-              "LITERAL",
-              [
-                "b.*"
-              ]
-            ],
-            [
-              "LITERAL",
-              [
-                "*"
-              ]
-            ]
-          ]
-        ]
-      ]
-    ],
-    [
-      "FROM",
-      [
-        [
-          "LITERAL",
-          [
-            "foo"
-          ]
-        ]
-      ]
-    ]
-  ],
-  [
-    "WHERE",
-    [
-      [
-        "AND",
-        [
-          [
-            "=",
-            [
-              [
-                "LITERAL",
-                [
-                  "foo.a"
-                ]
-              ],
-              [
-                "LITERAL",
-                [
-                  1
-                ]
-              ]
-            ]
-          ],
-          [
-            "LIKE",
-            [
-              [
-                "LITERAL",
-                [
-                  "foo.b"
-                ]
-              ],
-              [
-                "LITERAL",
-                [
-                  "'station'"
-                ]
-              ]
-            ]
-          ]
-        ]
-      ]
-    ]
-  ]
-], 'simple statement parsed correctly');
-
-cmp_deeply($sqlat->parse( "SELECT * FROM (SELECT * FROM foobar) WHERE foo.a =1 and foo.b LIKE 'station'"), [
-  [
-    [
-      "SELECT",
-      [
-        [
-          "LITERAL",
-          [
-            "*"
-          ]
-        ]
-      ]
-    ],
-    [
-      "FROM",
-      [
-        [
-          "PAREN",
-          [
-            [
-              [
-                "SELECT",
-                [
-                  [
-                    "LITERAL",
-                    [
-                      "*"
-                    ]
-                  ]
-                ]
-              ],
-              [
-                "FROM",
-                [
-                  [
-                    "LITERAL",
-                    [
-                      "foobar"
-                    ]
-                  ]
-                ]
-              ]
-            ]
-          ]
-        ]
-      ]
-    ]
-  ],
-  [
-    "WHERE",
-    [
-      [
-        "AND",
-        [
-          [
-            "=",
-            [
-              [
-                "LITERAL",
-                [
-                  "foo.a"
-                ]
-              ],
-              [
-                "LITERAL",
-                [
-                  1
-                ]
-              ]
-            ]
-          ],
-          [
-            "LIKE",
-            [
-              [
-                "LITERAL",
-                [
-                  "foo.b"
-                ]
-              ],
-              [
-                "LITERAL",
-                [
-                  "'station'"
-                ]
-              ]
-            ]
-          ]
-        ]
-      ]
-    ]
-  ]
-], 'subquery statement parsed correctly');
-
-cmp_deeply($sqlat->parse("SELECT * FROM lolz WHERE ( foo.a =1 ) and foo.b LIKE 'station'"), [
-  [
-    [
-      "SELECT",
-      [
-        [
-          "LITERAL",
-          [
-            "*"
-          ]
-        ]
-      ]
-    ],
-    [
-      "FROM",
-      [
-        [
-          "LITERAL",
-          [
-            "lolz"
-          ]
-        ]
-      ]
-    ]
-  ],
-  [
-    "WHERE",
-    [
-      [
-        "AND",
-        [
-          [
-            "PAREN",
-            [
-              [
-                "=",
-                [
-                  [
-                    "LITERAL",
-                    [
-                      "foo.a"
-                    ]
-                  ],
-                  [
-                    "LITERAL",
-                    [
-                      1
-                    ]
-                  ]
-                ]
-              ]
-            ]
-          ],
-          [
-            "LIKE",
-            [
-              [
-                "LITERAL",
-                [
-                  "foo.b"
-                ]
-              ],
-              [
-                "LITERAL",
-                [
-                  "'station'"
-                ]
-              ]
-            ]
-          ]
-        ]
-      ]
-    ]
-  ]
-], 'simple statement with parens in where parsed correctly');
-
-cmp_deeply($sqlat->parse( "SELECT [screen].[id], [screen].[name], [screen].[section_id], [screen].[xtype] FROM [users_roles] [me] JOIN [roles] [role] ON [role].[id] = [me].[role_id] JOIN [roles_permissions] [role_permissions] ON [role_permissions].[role_id] = [role].[id] JOIN [permissions] [permission] ON [permission].[id] = [role_permissions].[permission_id] JOIN [permissionscreens] [permission_screens] ON [permission_screens].[permission_id] = [permission].[id] JOIN [screens] [screen] ON [screen].[id] = [permission_screens].[screen_id] WHERE ( [me].[user_id] = ? ) GROUP BY [screen].[id], [screen].[name], [screen].[section_id], [screen].[xtype]"), [
-  [
-    [
-      [
-        [
-          [
-            [
-              [
-                [
-                  [
-                    [
-                      [
-                        [
-                          [
-                            "SELECT",
-                            [
-                              [
-                                "LIST",
-                                [
-                                  [
-                                    "LITERAL",
-                                    [
-                                      "[screen].[id]"
-                                    ]
-                                  ],
-                                  [
-                                    "LITERAL",
-                                    [
-                                      "[screen].[name]"
-                                    ]
-                                  ],
-                                  [
-                                    "LITERAL",
-                                    [
-                                      "[screen].[section_id]"
-                                    ]
-                                  ],
-                                  [
-                                    "LITERAL",
-                                    [
-                                      "[screen].[xtype]"
-                                    ]
-                                  ]
-                                ]
-                              ]
-                            ]
-                          ],
-                          [
-                            "FROM",
-                            [
-                              [
-                                [
-                                  "LITERAL",
-                                  [
-                                    "[users_roles]"
-                                  ]
-                                ],
-                                [
-                                  "LITERAL",
-                                  [
-                                    "[me]"
-                                  ]
-                                ]
-                              ]
-                            ]
-                          ]
-                        ],
-                        [
-                          "JOIN",
-                          [
-                            [
-                              [
-                                "LITERAL",
-                                [
-                                  "[roles]"
-                                ]
-                              ],
-                              [
-                                "LITERAL",
-                                [
-                                  "[role]"
-                                ]
-                              ]
-                            ]
-                          ]
-                        ]
-                      ],
-                      [
-                        "ON",
-                        [
-                          [
-                            "=",
-                            [
-                              [
-                                "LITERAL",
-                                [
-                                  "[role].[id]"
-                                ]
-                              ],
-                              [
-                                "LITERAL",
-                                [
-                                  "[me].[role_id]"
-                                ]
-                              ]
-                            ]
-                          ]
-                        ]
-                      ]
-                    ],
-                    [
-                      "JOIN",
-                      [
-                        [
-                          [
-                            "LITERAL",
-                            [
-                              "[roles_permissions]"
-                            ]
-                          ],
-                          [
-                            "LITERAL",
-                            [
-                              "[role_permissions]"
-                            ]
-                          ]
-                        ]
-                      ]
-                    ]
-                  ],
-                  [
-                    "ON",
-                    [
-                      [
-                        "=",
-                        [
-                          [
-                            "LITERAL",
-                            [
-                              "[role_permissions].[role_id]"
-                            ]
-                          ],
-                          [
-                            "LITERAL",
-                            [
-                              "[role].[id]"
-                            ]
-                          ]
-                        ]
-                      ]
-                    ]
-                  ]
-                ],
-                [
-                  "JOIN",
-                  [
-                    [
-                      [
-                        "LITERAL",
-                        [
-                          "[permissions]"
-                        ]
-                      ],
-                      [
-                        "LITERAL",
-                        [
-                          "[permission]"
-                        ]
-                      ]
-                    ]
-                  ]
-                ]
-              ],
-              [
-                "ON",
-                [
-                  [
-                    "=",
-                    [
-                      [
-                        "LITERAL",
-                        [
-                          "[permission].[id]"
-                        ]
-                      ],
-                      [
-                        "LITERAL",
-                        [
-                          "[role_permissions].[permission_id]"
-                        ]
-                      ]
-                    ]
-                  ]
-                ]
-              ]
-            ],
-            [
-              "JOIN",
-              [
-                [
-                  [
-                    "LITERAL",
-                    [
-                      "[permissionscreens]"
-                    ]
-                  ],
-                  [
-                    "LITERAL",
-                    [
-                      "[permission_screens]"
-                    ]
-                  ]
-                ]
-              ]
-            ]
-          ],
-          [
-            "ON",
-            [
-              [
-                "=",
-                [
-                  [
-                    "LITERAL",
-                    [
-                      "[permission_screens].[permission_id]"
-                    ]
-                  ],
-                  [
-                    "LITERAL",
-                    [
-                      "[permission].[id]"
-                    ]
-                  ]
-                ]
-              ]
-            ]
-          ]
-        ],
-        [
-          "JOIN",
-          [
-            [
-              [
-                "LITERAL",
-                [
-                  "[screens]"
-                ]
-              ],
-              [
-                "LITERAL",
-                [
-                  "[screen]"
-                ]
-              ]
-            ]
-          ]
-        ]
-      ],
-      [
-        "ON",
-        [
-          [
-            "=",
-            [
-              [
-                "LITERAL",
-                [
-                  "[screen].[id]"
-                ]
-              ],
-              [
-                "LITERAL",
-                [
-                  "[permission_screens].[screen_id]"
-                ]
-              ]
-            ]
-          ]
-        ]
-      ]
-    ],
-    [
-      "WHERE",
-      [
-        [
-          "PAREN",
-          [
-            [
-              "=",
-              [
-                [
-                  "LITERAL",
-                  [
-                    "[me].[user_id]"
-                  ]
-                ],
-                [
-                  "PLACEHOLDER",
-                  [
-                    "?"
-                  ]
-                ]
-              ]
-            ]
-          ]
-        ]
-      ]
-    ]
-  ],
-  [
-    "GROUP BY",
-    [
-      [
-        "LIST",
-        [
-          [
-            "LITERAL",
-            [
-              "[screen].[id]"
-            ]
-          ],
-          [
-            "LITERAL",
-            [
-              "[screen].[name]"
-            ]
-          ],
-          [
-            "LITERAL",
-            [
-              "[screen].[section_id]"
-            ]
-          ],
-          [
-            "LITERAL",
-            [
-              "[screen].[xtype]"
-            ]
-          ]
-        ]
-      ]
-    ]
-  ]
-], 'real life statement 1 parsed correctly');
-
-cmp_deeply($sqlat->parse("SELECT x, y FROM foo WHERE x IN (?, ?, ?, ?)"), [
-  [
-    [
-      "SELECT",
-      [
-        [
-          "LIST",
-          [
-            [
-              "LITERAL",
-              [
-                "x"
-              ]
-            ],
-            [
-              "LITERAL",
-              [
-                "y"
-              ]
-            ]
-          ]
-        ]
-      ]
-    ],
-    [
-      "FROM",
-      [
-        [
-          "LITERAL",
-          [
-            "foo"
-          ]
-        ]
-      ]
-    ]
-  ],
-  [
-    "WHERE",
-    [
-      [
-        "IN",
-        [
-          [
-            "LITERAL",
-            [
-              "x"
-            ]
-          ],
-          [
-            "PAREN",
-            [
-              [
-                "LIST",
-                [
-                  [
-                    "PLACEHOLDER",
-                    [
-                      "?"
-                    ]
-                  ],
-                  [
-                    "PLACEHOLDER",
-                    [
-                      "?"
-                    ]
-                  ],
-                  [
-                    "PLACEHOLDER",
-                    [
-                      "?"
-                    ]
-                  ],
-                  [
-                    "PLACEHOLDER",
-                    [
-                      "?"
-                    ]
-                  ]
-                ]
-              ]
-            ]
-          ]
-        ]
-      ]
-    ]
-  ]
-], 'Lists parsed correctly');
-
-done_testing;