/t/php/md5.t
Unknown | 85 lines | 64 code | 21 blank | 0 comment | 0 complexity | aa551282919580bcf8eefdb617e6f5cd MD5 | raw file
Possible License(s): AGPL-3.0
- # Copyright (C) 2008, The Perl Foundation.
- =head1 NAME
- t/php/md5.t - Standard Library md5
- =head1 SYNOPSIS
- % perl t/harness t/php/md5.t
- =head1 DESCRIPTION
- Tests PHP Standard Library md5
- (implemented in F<languages/pipp/src/common/php_md5.pir>).
- See L<http://www.php.net/manual/en/ref.strings.php>.
- =cut
- use strict;
- use warnings;
- use FindBin;
- use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib";
- use Test::More tests => 5;
- use Pipp::Test;
- language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg)' );
- <?php
- echo md5('message digest'), "\n";
- ?>
- CODE
- f96b697d7cb7938d525a2f31aaf161d0
- OUT
- language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg, FALSE)' );
- <?php
- echo md5('message digest', FALSE), "\n";
- ?>
- CODE
- f96b697d7cb7938d525a2f31aaf161d0
- OUT
- language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg, TRUE)' );
- <?php
- $md = md5('message digest', TRUE);
- echo gettype($md), "\n";
- echo strlen($md), "\n";
- ?>
- CODE
- string
- 16
- OUT
- unlink 'file.txt' if -f 'file.txt';
- open my $X, '>', 'file.txt';
- print {$X} 'message digest';
- close $X;
- language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5_file(file)' );
- <?php
- echo md5_file('file.txt'), "\n";
- ?>
- CODE
- f96b697d7cb7938d525a2f31aaf161d0
- OUT
- unlink 'file.txt' if -f 'file.txt';
- language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5_file(nofile)' );
- <?php
- echo md5_file('nofile.txt'), "\n";
- ?>
- CODE
- OUT
- # Local Variables:
- # mode: cperl
- # cperl-indent-level: 4
- # fill-column: 100
- # End:
- # vim: expandtab shiftwidth=4: