X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fclauses.t;fp=xt%2Fclauses.t;h=a20bd67818d05d3a30f48792325ebe715bfd841e;hb=08a26ed63ec442af166da0bdd837339df4898536;hp=399fc66bac532794e391e5b5a2027e0b1d207201;hpb=95ab9342f9069e8b460242e00d19f12a39c865b3;p=dbsrgits%2FSQL-Abstract.git

diff --git a/xt/clauses.t b/xt/clauses.t
index 399fc66..a20bd67 100644
--- a/xt/clauses.t
+++ b/xt/clauses.t
@@ -6,6 +6,11 @@ use SQL::Abstract::ExtraClauses;
 
 my $sqlac = SQL::Abstract::ExtraClauses->new(unknown_unop_always_func => 1);
 
+is_deeply(
+  [ $sqlac->statement_list ],
+  [ sort qw(select update insert delete) ],
+);
+
 my ($sql, @bind) = $sqlac->select({
   select => [ qw(artist.id artist.name), { -json_agg => 'cd' } ],
   from => [