diff options
Diffstat (limited to 'ext/XS-APItest/t/xsub_h.t')
| -rw-r--r-- | ext/XS-APItest/t/xsub_h.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ext/XS-APItest/t/xsub_h.t b/ext/XS-APItest/t/xsub_h.t index 8735552152..93742b1ba8 100644 --- a/ext/XS-APItest/t/xsub_h.t +++ b/ext/XS-APItest/t/xsub_h.t @@ -114,4 +114,10 @@ foreach $XS_VERSION (undef, @versions) { is ($count, 0, "no objects exist"); } +is_deeply([XS_APIVERSION_valid("Pie")], [], "XS_APIVERSION_BOOTCHECK passes"); +is(eval {XS_APIVERSION_invalid("Pie"); 1}, undef, + "XS_APIVERSION_BOOTCHECK croaks for an invalid version"); +like($@, qr/Perl API version v1.0.16 of Pie does not match v5\.\d+\.\d+/, + "expected error"); + done_testing(); |