Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

file 25 lines (23 sloc) 0.67 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
#!perl -w
use strict;
use Test::More tests => 6;
BEGIN { use_ok('Imager::Expr') }

SKIP:
{
  my $expr = Imager::Expr->new({rpnexpr=><<EXPR, variables=>[ qw(x y) ], constants=>{one=>1, two=>2}});
x two * # see if comments work
y one +
getp1
EXPR
  ok($expr, "compile postfix")
    or print "# ", Imager::Expr->error, "\n";
  $expr
    or skip("Could not compile", 4);

  # perform some basic validation on the code
  my $code = $expr->dumpcode();
  my @code = split /\n/, $code;
  ok($code[-1] =~ /:\s+ret/, "ret at the end");
  ok(grep(/:\s+mult.*x/, @code), "found mult");
  ok(grep(/:\s+add.*y/, @code), "found add");
  ok(grep(/:\s+getp1/, @code), "found getp1");
}
Something went wrong with that request. Please try again.