languages/pipp/t/php/filestat.t

   1 #! perl
   2 # Copyright (C) 2008, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/php/filestat.t - Standard Library filestat
   8
   9 =head1 SYNOPSIS
  10
  11     % perl -I../lib pipp/t/php/filestat.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests PHP Standard Library file
  16 (implemented in F<languages/pipp/src/common/php_filestat.pir>).
  17
  18 See L<http://www.php.net/manual/en/ref.filesystem.php>.
  19
  20 =cut
  21
  22 use strict;
  23 use warnings;
  24
  25 use FindBin;
  26 use lib "$FindBin::Bin/../../lib";
  27
  28 use Test::More     tests => 3;
  29 use Parrot::Test;
  30
  31
  32 unlink 'pipp/file.txt' if (-f 'pipp/file.txt');
  33
  34 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'file_exists()' );
  35 <?php
  36   echo file_exists('file.txt'), "\n";
  37 ?>
  38 CODE
  39
  40 OUTPUT
  41
  42 open my $X, '>', 'pipp/file.txt';
  43 binmode $X, ':raw';
  44 print {$X} "line 1\n";
  45 print {$X} "line 2\n";
  46 print {$X} "line 3\n";
  47 close $X;
  48
  49 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'file_exists()' );
  50 <?php
  51   echo file_exists('file.txt'), "\n";
  52 ?>
  53 CODE
  54 1
  55 OUTPUT
  56
  57 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'filesize()' );
  58 <?php
  59   echo filesize('file.txt'), "\n";
  60 ?>
  61 CODE
  62 21
  63 OUTPUT
  64
  65 unlink 'pipp/file.txt' if (-f 'pipp/file.txt');
  66
  67
  68 # Local Variables:
  69 #   mode: cperl
  70 #   cperl-indent-level: 4
  71 #   fill-column: 100
  72 # End:
  73 # vim: expandtab shiftwidth=4: