From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 14 Aug 2010 21:02:53 +0000 (+0100)
Subject: switch expr.t to factored out t/expr.include
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f666d37cdb3d9b82eb8b8f28dc6adf85856e11d;p=dbsrgits%2FData-Query.git

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

diff --git a/t/expr.t b/t/expr.t
index 9173a89..8b024f3 100644
--- 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;