view release on metacpan or  search on metacpan

t/36.escape.t  view on Meta::CPAN

#!/usr/local/bin/perl
BEGIN
{
    use strict;
    use warnings;
    # use Test::More qw( no_plan );
    use Test::More;
    use lib './lib';
    use vars qw( $BASE_URI $DEBUG );
    # use_ok( 'Apache2::SSI' ) || BAIL_OUT( "Unable to load Apache2::SSI" );
    require( "./t/functions.pl" ) || BAIL_OUT( "Unable to find library \"functions.pl\"." );
    our $BASE_URI;
    our $DEBUG = exists( $ENV{AUTHOR_TESTING} ) ? $ENV{AUTHOR_TESTING} : 0;
};

use strict;
use warnings;

my $tests =
[
    {
        expect => qr/^[[:blank:]\h\v]*value\: the "value"/,
        name => 'setting variable with escaped quotes',
        uri => "${BASE_URI}/06.01.escape.html",
        code => 200,
    },
];

run_tests( $tests,
{
    debug => 0,
    type => 'escape',
});