t/05inline.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::Kaos;
   6 plan tests => 6;
   7
   8 test_output("Inline - same scope", q{
   9         numeric foo;
  10         _caos { .inline let $foo = FOO; }
  11         print(foo);
  12 }, q{
  13         OUTV FOO
  14 });
  15
  16 test_output("Inline - different scope, within statement", q{
  17         define foo() returning numeric {
  18                 _caos { .inline let $return = FOO; }
  19         }
  20         install {
  21                 print(foo());
  22         }
  23 }, q{
  24         OUTV FOO
  25 });
  26
  27 test_output("Inline - different scope, cross statement", q{
  28         define foo() returning numeric {
  29                 _caos { .inline let $return = FOO; }
  30         }
  31         install {
  32                 numeric bar = foo();
  33                 print(bar);
  34         }
  35 }, q{
  36         SETV $1 FOO
  37         OUTV $1
  38 });
  39
  40 test_output("Static - same scope", q{
  41         numeric foo;
  42         _caos { .static let $foo = FOO; }
  43         print(foo);
  44 }, q{
  45         OUTV FOO
  46 });
  47
  48 test_output("Static - different scope, within statement", q{
  49         define foo() returning numeric {
  50                 _caos { .static let $return = FOO; }
  51         }
  52         install {
  53                 print(foo());
  54         }
  55 }, q{
  56         OUTV FOO
  57 });
  58
  59 test_output("Static - different scope, cross statement", q{
  60         define foo() returning numeric {
  61                 _caos { .static let $return = FOO; }
  62         }
  63         install {
  64                 numeric bar = foo();
  65                 print(bar);
  66         }
  67 }, q{
  68         OUTV FOO
  69 });