From: Jess Robinson Date: Wed, 31 Jan 2007 14:06:49 +0000 (+0000) Subject: Oops, cross-platform filename checking! X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86ef9f0d42674723bd1f2a23090a2ffe23d2aea3;p=dbsrgits%2FDBIx-Class-Historic.git Oops, cross-platform filename checking! --- diff --git a/t/94versioning.t b/t/94versioning.t index 852d4fc..15ad32b 100644 --- a/t/94versioning.t +++ b/t/94versioning.t @@ -2,6 +2,7 @@ use strict; use warnings; use Test::More; +use File::Spec; BEGIN { eval "use DBD::SQLite; use SQL::Translator;"; @@ -23,7 +24,7 @@ unlink('t/var/DBICVersion-Schema-1.0-SQLite.sql'); my $schema_orig = DBICVersion::Schema->connect("dbi:SQLite:$db_file"); # $schema->storage->ensure_connected(); -is($schema_orig->ddl_filename('SQLite', 't/var', '1.0'), 't/var/DBICVersion-Schema-1.0-SQLite.sql', 'Filename creation working'); +is($schema_orig->ddl_filename('SQLite', 't/var', '1.0'), File::Spec->catfile('t', 'var', 'DBICVersion-Schema-1.0-SQLite.sql', 'Filename creation working'); $schema_orig->create_ddl_dir('SQLite', undef, 't/var'); ok(-f 't/var/DBICVersion-Schema-1.0-SQLite.sql', 'Created DDL file');