diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2005-11-09 11:12:00 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-15 16:33:02 +0000 |
| commit | 1a787b952b2a283c0366c148171c3bc150e9489a (patch) | |
| tree | 3aef4f7a19bd6d10921dd1f1ffcfa26c741ee712 /t/op/bop.t | |
| parent | ebbebb7cd2983347317369853c473fd475e0d91e (diff) | |
| download | perl-1a787b952b2a283c0366c148171c3bc150e9489a.tar.gz | |
Re: [perl #37616] Bug in &= (string) and/or m//
Message-Id: <20051109021035.69D8.BQW10602@nifty.com>
p4raw-id: //depot/perl@26136
Diffstat (limited to 't/op/bop.t')
| -rwxr-xr-x | t/op/bop.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/op/bop.t b/t/op/bop.t index 87291676ef..6bc1067cc2 100755 --- a/t/op/bop.t +++ b/t/op/bop.t @@ -15,7 +15,7 @@ BEGIN { # If you find tests are failing, please try adding names to tests to track # down where the failure is, and supply your new names as a patch. # (Just-in-time test naming) -plan tests => 146; +plan tests => 148; # numerics ok ((0xdead & 0xbeef) == 0x9ead); @@ -329,3 +329,14 @@ SKIP: { skip "No malloc wrap checks" unless $Config::Config{usemallocwrap}; like( runperl(prog => 'eval q($#a>>=1); print 1'), "^1\n?" ); } + +# [perl #37616] Bug in &= (string) and/or m// +{ + $a = "aa"; + $a &= "a"; + ok($a =~ /a+$/, 'ASCII "a" is NUL-terminated'); + + $b = "bb\x{100}"; + $b &= "b"; + ok($b =~ /b+$/, 'Unicode "b" is NUL-terminated'); +} |