use Catalyst::Test qw(TestApp);
plan 'skip_all' if !-e '/bin/ls'; # see if /bin/ls exists
-plan tests => 4; # otherwise
+plan tests => 8; # otherwise
-ok(my $result = get('/fork/%2Fbin%2Fls'), 'get /fork//bin/ls');
-my @result = split /$/m, $result;
-$result = join "", @result[-4..-1];
+{
+ fork:
+ ok(my $result = get('/fork/fork/%2Fbin%2Fls'), 'get /fork//bin/ls');
+ my @result = split /$/m, $result;
+ $result = join q{}, @result[-4..-1];
+
+ my $result_ref = eval { Load($result) };
+ ok($result_ref, 'is YAML');
+ is($result_ref->{code}, 0, 'exited successfully');
+ like($result_ref->{result}, qr{^/bin/ls[^:]}, 'contains ^/bin/ls$');
+}
-my $result_ref = eval { Load($result) };
-ok($result_ref, 'is YAML');
-is($result_ref->{code}, 0, 'exited successfully');
-like($result_ref->{result}, qr{^/bin/ls[^:]}, 'contains ^/bin/ls$');
+{
+ backticks:
+ ok(my $result = get('/fork/backticks/%2Fbin%2Fls'), 'get /fork//bin/ls');
+ my @result = split /$/m, $result;
+ $result = join q{}, @result[-4..-1];
+
+ my $result_ref = eval { Load($result) };
+ ok($result_ref, 'is YAML');
+ is($result_ref->{code}, 0, 'exited successfully');
+ like($result_ref->{result}, qr{^/bin/ls[^:]}, 'contains ^/bin/ls$');
+}