X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F05in_between.t;h=fc3aa1d231e361f722467cdec212d45da4bd03cc;hb=ddd6fbb6f333f2247acd57f93a2307ce4ef0ae97;hp=11119984faa88d2cb607122f1be6828fa396f3f5;hpb=923ce642a39cca2e8163e07564d7d8696ee755f1;p=scpubgit%2FQ-Branch.git

diff --git a/t/05in_between.t b/t/05in_between.t
index 1111998..fc3aa1d 100644
--- a/t/05in_between.t
+++ b/t/05in_between.t
@@ -266,6 +266,17 @@ my @in_between_tests = (
     throws => qr/Argument passed to the 'IN' operator can not be undefined/,
     test => '-in with undef argument',
   },
+
+  {
+    where => { -in => [42] },
+    throws => qr/Illegal use of top-level '-in'/,
+    test => 'Top level -in',
+  },
+  {
+    where => { -between => [42, 69] },
+    throws => qr/Illegal use of top-level '-between'/,
+    test => 'Top level -between',
+  },
 );
 
 for my $case (@in_between_tests) {