languages/pipp/t/php/concat.t

   1 # $Id$
   2
   3 =head1 NAME
   4
   5 concat.t - testing concatenation
   6
   7 =head1 DESCRIPTION
   8
   9 Concatenate various thingies.
  10
  11 =cut
  12
  13 # pragmata
  14 use strict;
  15 use warnings;
  16
  17 use FindBin;
  18 use lib "$FindBin::Bin/../../lib";
  19
  20 # core Perl modules
  21 use Test::More     tests => 3;
  22
  23 # Parrot modules
  24 use Parrot::Test;
  25
  26 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'concatenate 2 strings' );
  27 <?php
  28 echo '1' . "a\n"
  29 ?>
  30 END_CODE
  31 1a
  32 END_EXPECTED
  33
  34 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'concatenate four strings' );
  35 <?php
  36 echo 'Hell' . 'o, ' . 'World!' . "\n"
  37 ?>
  38 END_CODE
  39 Hello, World!
  40 END_EXPECTED
  41
  42 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'concatenate an int and a string' );
  43 <?php
  44 echo 1 . "a\n"
  45 ?>
  46 END_CODE
  47 1a
  48 END_EXPECTED
  49