#!/usr/bin/env perl
# https://github.com/xslate/p5-Text-Xslate/issues/68
# "Logic for constant folding unary ops isn't quite right"
use strict;
use warnings;
use Test::More;

use Text::Xslate;

    my $tx = Text::Xslate->new(cache => 0);
{
    my $warnings = '';
    local $SIG{__WARN__} = sub { $warnings .= $_[0] };
    my $result = $tx->render_string(': -(1 + $a)', { a => 2 });
    is($result, "-3");
    is($warnings, '');
}

done_testing;