Added passing of schema arg.
Ken Youens-Clark [Fri, 9 May 2003 17:03:43 +0000 (17:03 +0000)]
t/06xsv.t

index ed8107c..41ddfe4 100644 (file)
--- 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.