#!/usr/bin/perl -w

use strict;

use Test::More;

BEGIN
{
    unless ( -f '/etc/passwd' )
    {
        plan skip_all => 'This trest requires that /etc/passwd exist.';
    }
}

plan tests => 1;

use HTML::Mason::Resolver::File;


my $resolver = HTML::Mason::Resolver::File->new();

my $source = $resolver->get_info( '/../../../../../../etc/passwd', 'MAIN', '/var/cache' );

ok( ! $source, 'Cannot get at /etc/passwd with bogus comp path' );

