https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| e53d8f76 Z |
1 | use warnings; |
| 2 | use strict; | |
| 3 | ||
| 4 | use Test::More tests => 16; | |
| 5 | ||
| 6 | BEGIN { $^H |= 0x20000; } | |
| 7 | ||
| 8 | my $t; | |
| 9 | ||
| 10 | $t = ""; | |
| 11 | eval q{ | |
| 12 | use XS::APItest qw(blockasexpr); | |
| 13 | $t .= "a"; | |
| 14 | $t .= "b" . blockasexpr { "c"; } . "d"; | |
| 15 | $t .= "e"; | |
| 16 | }; | |
| 17 | is $@, ""; | |
| 18 | is $t, "abcde"; | |
| 19 | ||
| 20 | $t = ""; | |
| 21 | eval q{ | |
| 22 | use XS::APItest qw(blockasexpr); | |
| 23 | no warnings "void"; | |
| 24 | $t .= "a"; | |
| 25 | $t .= "b" . blockasexpr { "z"; "c"; } . "d"; | |
| 26 | $t .= "e"; | |
| 27 | }; | |
| 28 | is $@, ""; | |
| 29 | is $t, "abcde"; | |
| 30 | ||
| 31 | $t = ""; | |
| 32 | eval q{ | |
| 33 | use XS::APItest qw(blockasexpr); | |
| 34 | $t .= "a"; | |
| 35 | $t .= "b" . blockasexpr { if($t eq "a") { "c"; } else { "d"; } } . "e"; | |
| 36 | $t .= "f"; | |
| 37 | }; | |
| 38 | is $@, ""; | |
| 39 | is $t, "abcef"; | |
| 40 | ||
| 41 | $t = ""; | |
| 42 | eval q{ | |
| 43 | use XS::APItest qw(blockasexpr); | |
| 44 | $t .= "a"; | |
| 45 | $t .= "b" . blockasexpr { if($t eq "z") { "c"; } else { "d"; } } . "e"; | |
| 46 | $t .= "f"; | |
| 47 | }; | |
| 48 | is $@, ""; | |
| 49 | is $t, "abdef"; | |
| 50 | ||
| 51 | $t = ""; | |
| 52 | eval q{ | |
| 53 | use XS::APItest qw(blockasexpr); | |
| 54 | no warnings "void"; | |
| 55 | $t .= "a"; | |
| 56 | $t .= "b" . blockasexpr { { "z"; "c"; } } . "d"; | |
| 57 | $t .= "e"; | |
| 58 | }; | |
| 59 | is $@, ""; | |
| 60 | is $t, "abcde"; | |
| 61 | ||
| 62 | $t = ""; | |
| 63 | eval q{ | |
| 64 | use XS::APItest qw(blockasexpr); | |
| 65 | $t .= "a"; | |
| 66 | $t .= blockasexpr { | |
| 67 | my $t = "z"; | |
| 68 | "b"; | |
| 69 | }; | |
| 70 | $t .= "c"; | |
| 71 | }; | |
| 72 | is $@, ""; | |
| 73 | is $t, "abc"; | |
| 74 | ||
| 75 | $t = ""; | |
| 76 | eval q{ | |
| 77 | use XS::APItest qw(blockasexpr); | |
| 78 | my $f = 1.5; | |
| 79 | $t .= "a(".($f+$f).")"; | |
| 80 | $t .= "b(" . blockasexpr { | |
| 81 | use integer; | |
| 82 | $f+$f; | |
| 83 | } . ")"; | |
| 84 | $t .= "c(".($f+$f).")"; | |
| 85 | }; | |
| 86 | is $@, ""; | |
| 87 | is $t, "a(3)b(2)c(3)"; | |
| 88 | ||
| 89 | $t = ""; | |
| 90 | eval q{ | |
| 91 | use XS::APItest qw(blockasexpr); | |
| 92 | our $z = "z"; | |
| 93 | $t .= "a$z"; | |
| 94 | $t .= "b" . blockasexpr { | |
| 95 | local $z = "y"; | |
| 96 | $z; | |
| 97 | }; | |
| 98 | $t .= "c$z"; | |
| 99 | }; | |
| 100 | is $@, ""; | |
| 101 | is $t, "azbycz"; | |
| 102 | ||
| 103 | 1; |