File: 610-postfix.t

package info (click to toggle)
libimager-perl 1.005%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 6,308 kB
  • ctags: 4,067
  • sloc: perl: 30,915; ansic: 27,680; makefile: 55; cpp: 4
file content (25 lines) | stat: -rw-r--r-- 670 bytes parent folder | download | duplicates (9)
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");
}