languages/pipp/t/php/functions.t

   1 # $Id$
   2
   3 =head1 NAME
   4
   5 functions.t - testing functions
   6
   7 =head1 DESCRIPTION
   8
   9 Defining and calling functions.
  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 => 1;
  22
  23 # Parrot modules
  24 use Parrot::Test;
  25
  26 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'function with not args' );
  27 <?php
  28
  29 function dummy_no_args()  {
  30   echo "The function dummy_no_args() has been called.\n";
  31 }
  32
  33 dummy_no_args();
  34
  35 ?>
  36 END_CODE
  37 The function dummy_no_args() has been called.
  38 END_EXPECTED
  39