handle completely bizarre edge case

[scpubgit/Q-Branch.git] / t / 02where.t

diff --git a/t/02where.t b/t/02where.t
index 1b0ac92..d1e2ee6 100644 (file)
--- a/t/02where.t
+++ b/t/02where.t
@@ -408,6 +408,11 @@ my @handle_tests = (
         stmt => '',
         bind => [ ],
     },
+    {
+        where => { '=' => \'bozz' },
+        stmt => 'WHERE = bozz',
+        bind => [ ],
+    },
 );
 
 for my $case (@handle_tests) {