#!perl
# Explicit use of PP version

use strict;
use Test::More tests => 5;

BEGIN {
    use_ok 'Text::Xslate::PP';
    use_ok 'Text::Xslate', qw(escaped_string);
}


use B;

ok( !B::svref_2object(Text::Xslate->can('render'))->XSUB, 'render() is not an xsub' );

eval {
    my $tx = Text::Xslate->new();

    is $tx->render_string('Hello, <: $lang :> world!', { lang => escaped_string('<Xslate>') }),
        "Hello, <Xslate> world!";
};
is $@, '';

done_testing;