issue272.t 814 B

123456789101112131415161718192021222324252627282930
  1. #! /usr/bin/env perl
  2. # http://code.google.com/p/perl-compiler/issues/detail?id=272
  3. # "" HV key SvLEN=0 => sharedhash
  4. # if SvIsCOW(sv) && SvLEN(sv) == 0 => sharedhek (key == "")
  5. # >= 5.10: SvSHARED_HASH keysv: PV offset to hek_hash
  6. use strict;
  7. BEGIN {
  8. unshift @INC, 't';
  9. require "test.pl";
  10. }
  11. use Test::More tests => 2;
  12. use B::C ();
  13. #use Config;
  14. my $todo = ($B::C::VERSION ge '1.43_02' or $] < 5.009) ? "" : "TODO ";
  15. #$todo = "TODO 5.10 " if $] =~ /^5\.010/;
  16. #my $rtodo = $todo;
  17. #if ($Config{ccflags} =~ /DEBUGGING/ and $] > 5.009) {
  18. # $rtodo = "TODO hek assertion ";
  19. #}
  20. ctestok(1,'C,-O3','ccode272i',<<'EOF',$todo.'empty run-time HV key #272');
  21. $d{""} = qq{ok\n}; print $d{""}
  22. EOF
  23. ctestok(2,'C,-O3','ccode272i',<<'EOF',$todo.'empty compile-time HV key #272');
  24. BEGIN{ $d{""} = qq{ok\n};} print $d{""}
  25. EOF