From: Ken Youens-Clark <kclark@cpan.org>
Date: Wed, 12 May 2004 21:33:49 +0000 (+0000)
Subject: Some changes to get tests to pass.
X-Git-Tag: v0.06~59
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57e7e329c606fc87003f8a5577ff8f37907c7cdb;p=dbsrgits%2FSQL-Translator.git

Some changes to get tests to pass.
---

diff --git a/t/24yaml.t b/t/24yaml.t
index cf24d00..90f4d9a 100644
--- a/t/24yaml.t
+++ b/t/24yaml.t
@@ -218,7 +218,7 @@ schema:
           where  person.person_id=pet.pet_id
 translator:
   add_drop_table: 0
-  filename: '/work/sqlfairy/sqlfairy/t/data/sqlite/create.sql'
+  filename: ~
   no_comments: 0
   parser_args: {}
   parser_type: SQL::Translator::Parser::SQLite
@@ -226,13 +226,17 @@ translator:
   producer_type: SQL::Translator::Producer::YAML
   show_warnings: 0
   trace: 0
-  version: 0.05
+  version: 0.06
 YAML
 
-my $tr = SQL::Translator->new(
+my $file = "$Bin/data/sqlite/create.sql";
+open FH, "<$file" or die "Can't read '$file': $!\n";
+local $/;
+my $data = <FH>;
+my $tr   = SQL::Translator->new(
     parser   => 'SQLite',
     producer => 'YAML',
-    filename => "$Bin/data/sqlite/create.sql",
+    data     => $data,
 );
 
 my $out;