#!/usr/bin/perl
# 01-live.t 
# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
BEGIN {
    $ENV{EXISTS} = q{XXX}; 
    $ENV{PREPEND} = q{XXX}; 
    $ENV{SLASH}  = q{FAIL};
    $ENV{END}    = q{FAIL};
};

use Test::More tests => 7;
use FindBin qw($Bin);
use lib "$Bin";
use Catalyst::Test qw(TestApp);


is($ENV{FOO}, 'foo');
is($ENV{BAR}, 'bar');
is($ENV{EXISTS}, 'XXX:YYY');
is($ENV{PREPEND}, 'YYY:XXX');
is($ENV{NEW}, ':YYY');
is($ENV{SLASH}, '\:YYY');
is($ENV{END}, 'YYY\:');