Bug 70605 - Add split_order_term to test script (for old version)

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@1315 6955db30-a419-402b-8a0d-67ecbb4d7f56

t/queries-unit.pl

@@ -239,6 +239,17 @@ sub finish
     exit;
 }
 
+# Splits out "asc|desc" from a sort order item.
+sub split_order_term
+{
+    my $fragment = shift;
+    my ($col, $dir) = split /\s+/, $fragment, 2;
+    $col = lc $col;
+    $dir = uc $dir;
+    $dir = '' if $dir ne 'DESC' && $dir ne 'ASC';
+    return wantarray ? ($col, $dir) : $col;
+}
+
 sub make_order
 {
     my ($order) = @_;