order by somewhat working

[dbsrgits/Data-Query.git] / t / example.t

diff --git a/t/example.t b/t/example.t
index 25d6466..35a1a92 100644 (file)
--- a/t/example.t
+++ b/t/example.t
@@ -38,3 +38,18 @@ DwarnL render_expr(
     ON { $_->cd->artistid eq $_->artist->id }
   WHERE { $_->artist->age > 25 }
 );
+DwarnL render_expr(ORDER BY { $_->foo, $_->bar, $_->baz } DESC);
+
+my $basic = SELECT { $_->cd->name } FROM { $_->cds, AS 'cd' };
+
+DwarnL render_expr(
+  FROM { $basic } WHERE { $_->year > 2000 }
+);
+
+DwarnL render_expr(
+  FROM { $basic } ORDER BY { $_->year }
+);
+
+DwarnL render_expr(
+  SELECT { $_->cd->name } FROM { $_->cds, AS 'cd' } ORDER BY { $_->year }
+);