From: Ken Youens-Clark <kclark@cpan.org>
Date: Fri, 9 May 2003 17:03:43 +0000 (+0000)
Subject: Added passing of schema arg.
X-Git-Tag: v0.02~128
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b73ef23754d8953130801070a924bb2a6304b3f;p=dbsrgits%2FSQL-Translator.git

Added passing of schema arg.
---

diff --git a/t/06xsv.t b/t/06xsv.t
index ed8107c..41ddfe4 100644
--- a/t/06xsv.t
+++ b/t/06xsv.t
@@ -6,17 +6,19 @@
 #
 use strict;
 use SQL::Translator;
+use SQL::Translator::Schema;
 use SQL::Translator::Parser::xSV qw(parse);
 use Test::More tests => 13;
 
 my $tr = SQL::Translator->new;
+my $s  = SQL::Translator::Schema->new;
 my $data = q|One, Two, Three, Four, Five, Six, Seven
 I, Am, Some, Data, Yo, -10, .04
 And, So, am, I, "you crazy, crazy bastard", 500982, 1.1
 |;
 
 $tr->parser_args( trim_fields => 1, scan_fields => 1 );
-my $val = parse($tr, $data);
+my $val = parse($tr, $data, $s);
 
 # $val holds the processed data structure.