X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F21op_ident.t;fp=t%2F21op_ident.t;h=d73b11cece340844075cda101c11c625d62bc7ac;hb=296a423dc322ecc38cd0400051c26d447a69bc22;hp=7fe09d3423f9881ce15b3cfed83cfef6b37c0d57;hpb=514d92f166301c79a24e705a51ef2dae507fa4a2;p=scpubgit%2FQ-Branch.git

diff --git a/t/21op_ident.t b/t/21op_ident.t
index 7fe09d3..d73b11c 100644
--- a/t/21op_ident.t
+++ b/t/21op_ident.t
@@ -17,6 +17,16 @@ for my $q ('', '"') {
     $sql_maker->where({ foo => { -ident => undef } })
   } qr/-ident requires a single plain scalar argument/;
 
+  throws_ok {
+    local $sql_maker->{disable_old_special_ops} = 1;
+    $sql_maker->where({'-or' => [{'-ident' => 'foo'},'foo']})
+  } qr/Illegal.*top-level/;
+
+  throws_ok {
+    local $sql_maker->{disable_old_special_ops} = 1;
+    $sql_maker->where({'-or' => [{'-ident' => 'foo'},{'=' => \'bozz'}]})
+  } qr/Illegal.*top-level/;
+
   my ($sql, @bind) = $sql_maker->select('artist', '*', { 'artist.name' => { -ident => 'artist.pseudonym' } } );
   is_same_sql_bind (
     $sql,