X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04from.t;h=28033894c8f86d9a374068e7f0f057417cf1e9bd;hb=8a68b5be44b4394787aa83b8b452403b3214e16e;hp=5e702b55ecc092db0abcc2d5a4b949f26de9a600;hpb=41751122477eb5028a8849fe38ed59bf33fd522f;p=scpubgit%2FQ-Branch.git

diff --git a/t/04from.t b/t/04from.t
index 5e702b5..2803389 100644
--- 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 = (