| Subject: | t/rest/users.t - fails on Win32 |
Hi,
I have experienced the following error on Win32/strawberry perl:
# Failed test at t/rest/users.t line 77.
# got: 't\root\lists\user_options.yml'
# expected: 't/root/lists/user_options.yml'
It is obviously a path separator issue '/' vs. '\'.
Please consider the following patch to users.t:
--- users.t.orig 2009-09-12 17:43:46.000000000 +0200
+++ users.t 2009-09-25 01:02:10.438900000 +0200
@@ -4,6 +4,7 @@
use warnings;
use HTTP::Request::Common;
+use File::Spec;
use JSON;
use lib qw(t/lib);
@@ -74,7 +75,7 @@
# custom options with validation
-is(MyApp->controller('User')->list_options_file,
't/root/lists/user_options.yml');
+is(MyApp->controller('User')->list_options_file,
File::Spec->catfile('t','root','lists','user_options.yml'));
$mech->get('/users?start=10&limit=20&sort=password&dir=asc&ending=1');
--
kmx