diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-01-27 00:25:52 +0000 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-01-27 14:32:24 +0000 |
| commit | f88a640eb8334d93b3168e58b297a85641ecd751 (patch) | |
| tree | fc7a8aff078dc5d16b857a0a975959771f84cc36 /ext/XS-APItest | |
| parent | e269455b0d814664d0f8b5c7b34e7f2782a52d31 (diff) | |
| download | perl-f88a640eb8334d93b3168e58b297a85641ecd751.tar.gz | |
Slight tidying of tests
Diffstat (limited to 'ext/XS-APItest')
| -rw-r--r-- | ext/XS-APItest/t/sv_numeq.t | 7 | ||||
| -rw-r--r-- | ext/XS-APItest/t/sv_streq.t | 7 |
2 files changed, 8 insertions, 6 deletions
diff --git a/ext/XS-APItest/t/sv_numeq.t b/ext/XS-APItest/t/sv_numeq.t index 1949715f6b..6439a48d2b 100644 --- a/ext/XS-APItest/t/sv_numeq.t +++ b/ext/XS-APItest/t/sv_numeq.t @@ -23,9 +23,10 @@ ok sv_numeq_flags($1, 10, SV_GMAGIC), 'sv_numeq_flags with SV_GMAGIC does'; '==' => sub { return $_[1] == 10 }, '0+' => sub { 123456 }; } + my $obj = bless([], "AlwaysTen"); - ok sv_numeq(bless([], "AlwaysTen"), 10), 'AlwaysTen is 10'; - ok !sv_numeq(bless([], "AlwaysTen"), 11), 'AlwaysTen is not 11'; + ok sv_numeq($obj, 10), 'AlwaysTen is 10'; + ok !sv_numeq($obj, 11), 'AlwaysTen is not 11'; - ok !sv_numeq_flags(bless([], "AlwaysTen"), 10, SV_SKIP_OVERLOAD), 'AlwaysTen is not 10 with SV_SKIP_OVERLOAD' + ok !sv_numeq_flags($obj, 10, SV_SKIP_OVERLOAD), 'AlwaysTen is not 10 with SV_SKIP_OVERLOAD' } diff --git a/ext/XS-APItest/t/sv_streq.t b/ext/XS-APItest/t/sv_streq.t index f8ca1378b1..52b850ea6a 100644 --- a/ext/XS-APItest/t/sv_streq.t +++ b/ext/XS-APItest/t/sv_streq.t @@ -21,9 +21,10 @@ ok sv_streq_flags($1, "ABC", SV_GMAGIC), 'sv_streq_flags with SV_GMAGIC does'; 'eq' => sub { return $_[1] eq "ABC" }, '""' => sub { "not-a-string" }; } + my $obj = bless([], "AlwaysABC"); - ok sv_streq(bless([], "AlwaysABC"), "ABC"), 'AlwaysABC is "ABC"'; - ok !sv_streq(bless([], "AlwaysABC"), "DEF"), 'AlwaysABC is not "DEF"'; + ok sv_streq($obj, "ABC"), 'AlwaysABC is "ABC"'; + ok !sv_streq($obj, "DEF"), 'AlwaysABC is not "DEF"'; - ok !sv_streq_flags(bless([], "AlwaysABC"), "ABC", SV_SKIP_OVERLOAD), 'AlwaysABC is not "ABC" with SV_SKIP_OVERLOAD'; + ok !sv_streq_flags($obj, "ABC", SV_SKIP_OVERLOAD), 'AlwaysABC is not "ABC" with SV_SKIP_OVERLOAD'; } |