PageRenderTime 45ms CodeModel.GetById 22ms RepoModel.GetById 0ms app.codeStats 0ms

/t/php/md5.t

https://github.com/pipp/pipp
Unknown | 85 lines | 64 code | 21 blank | 0 comment | 0 complexity | aa551282919580bcf8eefdb617e6f5cd MD5 | raw file
Possible License(s): AGPL-3.0
  1. # Copyright (C) 2008, The Perl Foundation.
  2. =head1 NAME
  3. t/php/md5.t - Standard Library md5
  4. =head1 SYNOPSIS
  5. % perl t/harness t/php/md5.t
  6. =head1 DESCRIPTION
  7. Tests PHP Standard Library md5
  8. (implemented in F<languages/pipp/src/common/php_md5.pir>).
  9. See L<http://www.php.net/manual/en/ref.strings.php>.
  10. =cut
  11. use strict;
  12. use warnings;
  13. use FindBin;
  14. use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib";
  15. use Test::More tests => 5;
  16. use Pipp::Test;
  17. language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg)' );
  18. <?php
  19. echo md5('message digest'), "\n";
  20. ?>
  21. CODE
  22. f96b697d7cb7938d525a2f31aaf161d0
  23. OUT
  24. language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg, FALSE)' );
  25. <?php
  26. echo md5('message digest', FALSE), "\n";
  27. ?>
  28. CODE
  29. f96b697d7cb7938d525a2f31aaf161d0
  30. OUT
  31. language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg, TRUE)' );
  32. <?php
  33. $md = md5('message digest', TRUE);
  34. echo gettype($md), "\n";
  35. echo strlen($md), "\n";
  36. ?>
  37. CODE
  38. string
  39. 16
  40. OUT
  41. unlink 'file.txt' if -f 'file.txt';
  42. open my $X, '>', 'file.txt';
  43. print {$X} 'message digest';
  44. close $X;
  45. language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5_file(file)' );
  46. <?php
  47. echo md5_file('file.txt'), "\n";
  48. ?>
  49. CODE
  50. f96b697d7cb7938d525a2f31aaf161d0
  51. OUT
  52. unlink 'file.txt' if -f 'file.txt';
  53. language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5_file(nofile)' );
  54. <?php
  55. echo md5_file('nofile.txt'), "\n";
  56. ?>
  57. CODE
  58. OUT
  59. # Local Variables:
  60. # mode: cperl
  61. # cperl-indent-level: 4
  62. # fill-column: 100
  63. # End:
  64. # vim: expandtab shiftwidth=4: