languages/pugs/t/pmc/capture.t

   1 =head NAME
   2
   3 dynclasses/siva.t     -- siva pmc test
   4
   5 =head DESCRIPTION
   6
   7
   8 This file is used to test the siva.pmc.
   9 Run C<make> in dynclasses/ to buil the siva library.
  10
  11 Run from the root folder of the parrot distribution
  12
  13   perl  dynclasses/siva.t
  14
  15 from the the shell to test.
  16
  17 See the README in dynclasses/ for more information.
  18
  19 =cut
  20
  21
  22 use lib 'lib';
  23 use Parrot::Test tests => 1;
  24 use Test::More;
  25
  26 pir_output_is(<<'CODE', <<'OUTPUT', "Testing siva");
  27
  28 .HLL "Perl6", "pugs_group"
  29 .sub _main
  30 #  loadlib P10, "siva"
  31 #  print "siva loaded\n"
  32 #  find_type I10, "siva"
  33   loadlib $P1, "pugs_group"
  34
  35   $P0 = new .PugsCapture
  36   $P1 = new .PugsInt
  37   $P2 = new .PugsInt
  38   set $P1, 4
  39   set $P0[5], P1
  40   print $P1
  41   elements $I0, $P0
  42   print $I0
  43
  44   set $S1, "toto"
  45   set $S2, $S1
  46   print $S2
  47   print "\n"
  48
  49   print $P1
  50   print $I0
  51   print $S2
  52   print "\n"
  53
  54   new $P3, .Key
  55   set $P3, "key"
  56   set $P0[$P3], "val"
  57   set $P4,  $P0[$P3]
  58   print $P4
  59   print "\n"
  60   set $S4,  $P0[$P3]
  61   print $S4
  62   print "\n"
  63
  64   set $P3, 2
  65   set $P0[$P3], 666
  66   set $I3, $P0[$P3]
  67   print $I3
  68   print "\n"
  69
  70   set $P5,  $P0["val"]
  71
  72 .end
  73 CODE
  74 46toto
  75 46toto
  76 val
  77 val
  78 666
  79 OUTPUT
  80