diff options
Diffstat (limited to 'ext/XS-APItest/t/stmtasexpr.t')
| -rw-r--r-- | ext/XS-APItest/t/stmtasexpr.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/stmtasexpr.t b/ext/XS-APItest/t/stmtasexpr.t index 44aae8a271..ebd9d07cfb 100644 --- a/ext/XS-APItest/t/stmtasexpr.t +++ b/ext/XS-APItest/t/stmtasexpr.t @@ -1,7 +1,7 @@ use warnings; use strict; -use Test::More tests => 8; +use Test::More tests => 10; BEGIN { $^H |= 0x20000; } @@ -48,4 +48,14 @@ eval q{ is $@, ""; is $t, "abcde"; +$t = ""; +eval q{ + use XS::APItest qw(stmtasexpr); + $t .= "a"; + $t .= "b" . stmtasexpr x: "c"; . "d"; + $t .= "e"; +}; +isnt $@, ""; +is $t, ""; + 1; |