languages/pipp/t/pmc/boolean.t

   1 #! perl
   2 # Copyright (C) 2008, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/boolean.t - Boolean PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/boolean.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests C<PhpBoolean> PMC.
  16
  17 =cut
  18
  19 use strict;
  20 use warnings;
  21
  22 use FindBin;
  23 use lib "$FindBin::Bin/../../lib";
  24
  25 use Test::More   tests => 1;
  26 use Parrot::Test;
  27
  28 pir_output_is( << 'CODE', << 'OUTPUT', "stringification" );
  29 .loadlib 'php_group'
  30
  31 .sub 'main' :main
  32     .local pmc true
  33     true = new 'PhpBoolean'
  34     true = 1
  35
  36     .local pmc false
  37     false = new 'PhpBoolean'
  38     false = 0
  39
  40     $S0 = true
  41     say $S0
  42     $S0 = false
  43     say $S0
  44
  45 .end
  46 CODE
  47 1
  48
  49 OUTPUT
  50
  51 # Local Variables:
  52 #   mode: cperl
  53 #   cperl-indent-level: 4
  54 #   fill-column: 100
  55 # End:
  56 # vim: expandtab shiftwidth=4: