ext/XS-APItest/t/keyword_plugin.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More tests => 13;
   5
   6 BEGIN { $^H |= 0x20000; }
   7 no warnings;
   8
   9 my($triangle, $num);
  10 $num = 5;
  11
  12 $triangle = undef;
  13 eval q{
  14         use XS::APItest ();
  15         $triangle = rpn($num $num 1 + * 2 /);
  16 };
  17 isnt $@, "";
  18
  19 $triangle = undef;
  20 eval q{
  21         use XS::APItest qw(rpn);
  22         $triangle = rpn($num $num 1 + * 2 /);
  23 };
  24 is $@, "";
  25 is $triangle, 15;
  26
  27 $triangle = undef;
  28 eval q{
  29         use XS::APItest qw(rpn);
  30         $triangle = join(":", "x", rpn($num $num 1 + * 2 /), "y");
  31 };
  32 is $@, "";
  33 is $triangle, "x:15:y";
  34
  35 $triangle = undef;
  36 eval q{
  37         use XS::APItest qw(rpn);
  38         $triangle = 1 + rpn($num $num 1 + * 2 /) * 10;
  39 };
  40 is $@, "";
  41 is $triangle, 151;
  42
  43 $triangle = undef;
  44 eval q{
  45         use XS::APItest qw(rpn);
  46         $triangle = rpn($num $num 1 + * 2 /);
  47         $triangle++;
  48 };
  49 is $@, "";
  50 is $triangle, 16;
  51
  52 $triangle = undef;
  53 eval q{
  54         use XS::APItest qw(rpn);
  55         $triangle = rpn($num $num 1 + * 2 /)
  56         $triangle++;
  57 };
  58 isnt $@, "";
  59
  60 $triangle = undef;
  61 eval q{
  62         use XS::APItest qw(calcrpn);
  63         calcrpn $triangle { $num $num 1 + * 2 / }
  64         $triangle++;
  65 };
  66 is $@, "";
  67 is $triangle, 16;
  68
  69 $triangle = undef;
  70 eval q{
  71         use XS::APItest qw(calcrpn);
  72         123 + calcrpn $triangle { $num $num 1 + * 2 / } ;
  73 };
  74 isnt $@, "";
  75
  76 1;