[Jifty-commit] r2383 - Jifty-DBI/trunk/t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Wed Dec 13 02:57:22 EST 2006
Author: agentz
Date: Wed Dec 13 02:57:21 2006
New Revision: 2383
Added:
Jifty-DBI/trunk/t/13collection.t (contents, props changed)
Log:
- added t/13collection.t to test methods in Jifty::DBI::Collection.
Added: Jifty-DBI/trunk/t/13collection.t
==============================================================================
--- (empty file)
+++ Jifty-DBI/trunk/t/13collection.t Wed Dec 13 02:57:21 2006
@@ -0,0 +1,87 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+my $package;
+BEGIN {
+ $package = 'Jifty::DBI::Collection';
+ use_ok($package);
+}
+
+#
+# Test the _order_clause method
+#
+
+my $obj = bless {
+ order_by => [
+ {
+ alias => 'main',
+ column => 'name',
+ order => 'desc',
+ },
+ {
+ alias => 'foo',
+ column => 'id',
+ order => 'des',
+ },
+ {
+ alias => 'bar',
+ column => 'msg_session',
+ order => 'DesC',
+ }
+ ],
+}, $package;
+
+is $obj->_order_clause,
+ ' ORDER BY main.name DESC, foo.id DESC, bar.msg_session DESC ',
+ 'desc works';
+
+##
+
+$obj = bless {
+ order_by => [
+ {
+ alias => 'messages',
+ column => 'name',
+ order => 'asc',
+ },
+ {
+ alias => 'QQUsers',
+ column => 'sent',
+ order => 'ASC',
+ },
+ {
+ alias => 'stu_dents',
+ column => 'msg_session',
+ order => 'AsC',
+ }
+ ],
+}, $package;
+
+is $obj->_order_clause,
+ ' ORDER BY messages.name ASC, QQUsers.sent ASC, stu_dents.msg_session ASC ',
+ 'asc works';
+
+##
+
+$obj = bless {
+ order_by => [
+ {
+ alias => '',
+ column => 'name',
+ },
+ {
+ alias => 0,
+ column => 'sent',
+ },
+ {
+ alias => 'ab',
+ column => 'msg_session',
+ }
+ ],
+}, $package;
+
+#is $obj->_order_clause,
+# ' ORDER BY name ASC, sent ASC, ab.msg_session ASC ',
+# 'asc works';
More information about the Jifty-commit
mailing list