diff options
| author | Craig A. Berry <craigberry@mac.com> | 2016-09-09 14:05:38 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2016-09-09 14:05:38 -0500 |
| commit | d79ccf40b9c1858e3bbca7c4102f7bb989e995b3 (patch) | |
| tree | ede17b3c7b94d5fddc4d4e56cbf631e9dec3315e | |
| parent | 49fc490652d8b428d67872fae3acb10f0b43cff7 (diff) | |
| download | perl-d79ccf40b9c1858e3bbca7c4102f7bb989e995b3.tar.gz | |
Force a newline in new attrs.t test.
VMS is going to give you newline at EOF willy nilly, so make it
explicit and match expectations everywhere.
| -rw-r--r-- | t/op/attrs.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 5e3125fe66..13359bf468 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -455,17 +455,17 @@ package P126257 { is runperl( prog => 'package Foo; sub MODIFY_CODE_ATTRIBUTES {()} ' - . 'sub BEGIN :Foo; print q{OK}', + . 'sub BEGIN :Foo; print qq{OK\n}', stderr => 1, ), - "OK", + "OK\n", 'RT #129099 BEGIN'; is runperl( prog => 'package Foo; sub MODIFY_CODE_ATTRIBUTES {()} ' - . 'no warnings q{prototype}; sub BEGIN() :Foo; print q{OK}', + . 'no warnings q{prototype}; sub BEGIN() :Foo; print qq{OK\n}', stderr => 1, ), - "OK", + "OK\n", 'RT #129099 BEGIN()'; |