languages/PIR/t/pirstat.t

   1 #!perl
   2
   3 # Copyright (C) 2007, The Perl Foundation.
   4 # $Id$
   5
   6 use strict;
   7 use warnings;
   8 use lib qw(t . lib ../lib ../../lib ../../../lib);
   9 use Parrot::Test tests => 3;
  10 use Test::More;
  11
  12 language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'globalconst' );
  13
  14 .sub main
  15         .globalconst int x = 42
  16         .globalconst num pi = 3.14
  17         .globalconst string hi = "hello"
  18 .end
  19
  20 CODE
  21
  22 language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'namespace' );
  23
  24 .sub main
  25         .namespace x
  26         .endnamespace x
  27
  28         .namespace y
  29 .end
  30
  31 CODE
  32
  33 language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'const' );
  34
  35 .sub main
  36         .const int x = 42
  37         .const num pi = 3.14
  38         .const string hi = "hello"
  39 .end
  40
  41 CODE
  42