From 5855bb7a4a7f0b0054deee03638a355fbfee7b04 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 27 Oct 2024 11:27:36 +0100
Subject: [PATCH] skip test for perls without given/when (fix for GH#18)
---
t/irc-schema.t | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/t/irc-schema.t b/t/irc-schema.t
index 443c5db..559a1ee 100644
--- a/t/irc-schema.t
+++ b/t/irc-schema.t
@@ -34,7 +34,7 @@ subtest Channel => sub { # {{{
is( $result_class->table, 'Channels', 'table gets set correctly');
- is( $result_class->test_perl_version, 'station', 'perl version gets set from base class') if $] >= 5.010;
+ is( $result_class->test_perl_version, 'station', 'perl version gets set from base class') if $] >= 5.010 && $] <= 5.041003;
is( $result_class->test_experimental->(1), 2, 'experimental gets set from base class') if $] >= 5.020;
is( IRC::Schema->resultset('Channel')->test_experimental->(2), 3, 'experimental gets set from base class of rs') if $] >= 5.020;
}; # }}}
--
2.11.0