Added { -desc => 'foo' } order by support

[scpubgit/Q-Branch.git] / t / 04from.t

diff --git a/t/04from.t b/t/04from.t
index 5e702b5..2803389 100644 (file)
--- a/t/04from.t
+++ b/t/04from.t
@@ -9,12 +9,6 @@ plan tests => 4;
 
 use SQL::Abstract;
 
-sub is {
-    my ($got, $expect, $msg) = @_;
-    ok($got eq $expect) or
-        warn "got [${got}]\ninstead of [${expect}]\nfor test ${msg}\n\n";
-}
-
 my $sa = new SQL::Abstract;
 
 my @j = (