languages/pipp/t/php/md5.t

   1 #! perl
   2 # Copyright (C) 2008, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/php/md5.t - Standard Library md5
   8
   9 =head1 SYNOPSIS
  10
  11     % perl -I../lib pipp/t/php/md5.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests PHP Standard Library md5
  16 (implemented in F<languages/pipp/src/common/php_md5.pir>).
  17
  18 See L<http://www.php.net/manual/en/ref.strings.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 => 5;
  29 use Parrot::Test;
  30
  31
  32 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5(msg)' );
  33 <?php
  34   echo md5('message digest'), "\n";
  35 ?>
  36 CODE
  37 f96b697d7cb7938d525a2f31aaf161d0
  38 OUTPUT
  39
  40 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5(msg, FALSE)' );
  41 <?php
  42   echo md5('message digest', FALSE), "\n";
  43 ?>
  44 CODE
  45 f96b697d7cb7938d525a2f31aaf161d0
  46 OUTPUT
  47
  48 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5(msg, TRUE)' );
  49 <?php
  50   $md = md5('message digest', TRUE);
  51   echo gettype($md), "\n";
  52   echo strlen($md), "\n";
  53 ?>
  54 CODE
  55 string
  56 16
  57 OUTPUT
  58
  59 unlink 'pipp/file.txt' if -f 'pipp/file.txt';
  60 open my $X, '>', 'pipp/file.txt';
  61 print {$X} 'message digest';
  62 close $X;
  63
  64 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5_file(file)' );
  65 <?php
  66   echo md5_file('file.txt'), "\n";
  67 ?>
  68 CODE
  69 f96b697d7cb7938d525a2f31aaf161d0
  70 OUTPUT
  71
  72 unlink 'pipp/file.txt' if -f 'pipp/file.txt';
  73
  74 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5_file(nofile)' );
  75 <?php
  76   echo md5_file('nofile.txt'), "\n";
  77 ?>
  78 CODE
  79
  80 OUTPUT
  81
  82 # Local Variables:
  83 #   mode: cperl
  84 #   cperl-indent-level: 4
  85 #   fill-column: 100
  86 # End:
  87 # vim: expandtab shiftwidth=4: