diff options
| author | Karl Williamson <khw@cpan.org> | 2018-02-02 11:38:29 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-02-07 11:19:14 -0700 |
| commit | 1a35ea2303d28449c7a073ab65a828b9420059c6 (patch) | |
| tree | 3fe2e310e7e780f41209aa03632022169695eb66 /ext | |
| parent | bb07812ea6cbac9162a7e3f9537c709ca57d4e57 (diff) | |
| download | perl-1a35ea2303d28449c7a073ab65a828b9420059c6.tar.gz | |
APItest:t/utf8_warn_base.pl; Fix 'ok' tests
This was putting the condition for the ok in a string, which always
succeeds
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/utf8_warn_base.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/XS-APItest/t/utf8_warn_base.pl b/ext/XS-APItest/t/utf8_warn_base.pl index 6c3b04afeb..3f38fd5d81 100644 --- a/ext/XS-APItest/t/utf8_warn_base.pl +++ b/ext/XS-APItest/t/utf8_warn_base.pl @@ -1616,7 +1616,7 @@ foreach my $test (@tests) { . " = test_$func(" . "'$this_bytes', $this_length, $this_flags)"; eval "$eval_text"; - if (! ok ("$@ eq ''", "$this_name: eval succeeded")) + if (! ok ($@ eq "", "$this_name: eval succeeded")) { diag "\$@='$@'; call was: " . utf8n_display_call($eval_text); @@ -1748,7 +1748,7 @@ foreach my $test (@tests) { . "$this_bytes', $this_length," . " $this_flags)"; eval $eval_text; - if (! ok ("$@ eq ''", + if (! ok ($@ eq "", " And eval succeeded with CHECK_ONLY")) { diag "\$@='$@'; Call was: " @@ -1806,7 +1806,7 @@ foreach my $test (@tests) { . " test_uvchr_to_utf8_flags(" . "$allowed_uv, $this_flags)"; eval "$eval_text"; - if (! ok ("$@ eq ''", "$this_name: eval succeeded")) + if (! ok ($@ eq "", "$this_name: eval succeeded")) { diag "\$@='$@'; call was: " . uvchr_display_call($eval_text); |