Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Metabase-Fact CPAN distribution.

Report information
The Basics
Id: 60724
Status: resolved
Priority: 0/
Queue: Metabase-Fact

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.017
Fixed in: (no value)



Subject: Space in path
Attached patch fixed two issues with spaces in a path (home dir and perlbin) t/user/profile.t (Wstat: 512 Tests: 13 Failed: 2) Failed tests: 12-13 t/user/profile.t .............. 1/? Can't open perl script "/cygdrive/d/data/urbanr/My": No such file or directory # Failed test 'created named profile file with metabase-profile' # at t/user/profile.t line 80. Can't open perl script "/cygdrive/d/data/urbanr/My": No such file or directory # Failed test 'created default profile file with metabase-profile' # at t/user/profile.t line 83. Can't open metabase_id.json: No such file or directory at t/user/profile.t line 85. Use of uninitialized value in subroutine entry at (eval 17) line 163. malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "(end of string)") at (eval 17) line 163. # Tests were run but no plan was declared and done_testing() was not seen. t/user/profile.t .............. Dubious, test returned 2 (wstat 512, 0x200) Failed 2/13 subtests
Subject: Metabase-Fact-0.017.patch
difforig Metabase-Fact-0.017 diff -u Metabase-Fact-0.017/t/user/profile.t.orig --- Metabase-Fact-0.017/t/user/profile.t.orig 2010-08-14 22:08:13.000000000 +0200 +++ Metabase-Fact-0.017/t/user/profile.t 2010-08-25 14:11:21.527643900 +0200 @@ -75,10 +75,12 @@ my $cwd = Cwd::cwd(); chdir $tempdir; END { chdir $cwd } my $output_file = 'my.profile.json'; -qx/$^X $bin -o $output_file --name "JohnPublic" --email jp\@example.com --secret 3.14159/; +my $X = $^X =~ m/\s/ ? qq{"$^X"} : $^X; +$bin = $bin =~ m/\s/ ? qq{"$bin"} : $bin; +qx/$X $bin -o $output_file --name "JohnPublic" --email jp\@example.com --secret 3.14159/; ok( -r $output_file, 'created named profile file with metabase-profile' ); -qx/$^X $bin --name "JohnPublic" --email jp\@example.com --secret 3.14159/; +qx/$X $bin --name "JohnPublic" --email jp\@example.com --secret 3.14159/; ok( -r 'metabase_id.json', 'created default profile file with metabase-profile' ); my $file_guts = do { local (@ARGV,$/) = 'metabase_id.json'; <> };