switch expr.t to factored out t/expr.include

diff --git a/t/expr.t b/t/expr.t
index 9173a89..8b024f3 100644 (file)
--- a/t/expr.t
+++ b/t/expr.t
@@ -1,22 +1,8 @@
 use strictures 1;
 use Test::More qw(no_plan);
-use Data::Query::ExprBuilder::Identifier;
-use Data::Query::Constants qw(DQ_IDENTIFIER DQ_OPERATOR DQ_VALUE);
 use Test::Exception;
 
-sub expr (&) {
-  _mk_expr($_[0]);
-}
-
-sub _mk_expr {
-  local $_ = Data::Query::ExprBuilder::Identifier->new({
-    expr => {
-      type => DQ_IDENTIFIER,
-      elements => [],
-    },
-  });
-  $_[0]->()->{expr};
-}
+BEGIN { require 't/expr.include' }
 
 sub expr_is (&;@) {
   my $sub = shift;