Add $Wikibase::Datatype::Utils::SKIP_CHECK_LANG variable

Author: michal-josef-spacek

Changes

@@ -1,5 +1,7 @@
 0.37
  - Error message change: Rename error message for check_language() helper.
+ - Add $Wikibase::Datatype::Utils::SKIP_CHECK_LANG variable to skip check of
+   Wikibase languages which are supported.
  - Remove obsolete error message in doc for check_language() helper.
 
 0.36 2025-01-01T22:02:29+01:00

lib/Wikibase/Datatype/Utils.pm

@@ -13,6 +13,8 @@ use Readonly;
 Readonly::Array our @EXPORT_OK => qw(check_datetime check_entity check_language
 	check_lexeme check_property check_sense);
 
+our $SKIP_CHECK_LANG => 0;
+
 our $VERSION = 0.37;
 
 sub check_datetime {
@@ -77,7 +79,7 @@ sub check_entity {
 sub check_language {
 	my ($self, $key) = @_;
 
-	if (none { $_ eq $self->{$key} } all_language_codes()) {
+	if (! $SKIP_CHECK_LANG && none { $_ eq $self->{$key} } all_language_codes()) {
 		err "Language code '".$self->{$key}."' isn't code supported by Wikibase.";
 	}
 
@@ -155,6 +157,14 @@ Wikibase::Datatype::Utils - Wikibase datatype utilities.
 
 Datatype utilities for checking of data objects.
 
+=head1 VARIABLES
+
+=head2 C<$SKIP_CHECK_LANG>
+
+Boolean variable to skip check of right language.
+
+Default value is 0, checking is working.
+
 =head1 SUBROUTINES
 
 =head2 C<check_datetime>

t/Wikibase-Datatype-Utils/05-check_language.t

@@ -3,7 +3,7 @@ use warnings;
 
 use English;
 use Error::Pure::Utils qw(clean);
-use Test::More 'tests' => 4;
+use Test::More 'tests' => 5;
 use Test::NoWarnings;
 use Wikibase::Datatype::Utils qw(check_language);
 
@@ -35,3 +35,11 @@ $self = {
 };
 my $ret = check_language($self, 'key');
 is($ret, undef, 'Right language is present.');
+
+# Test.
+$self = {
+	'key' => 'xx',
+};
+$Wikibase::Datatype::Utils::SKIP_CHECK_LANG = 1;
+$ret = check_language($self, 'key');
+is($ret, undef, 'Not supported language is present without error.');

t/Wikibase-Datatype-Value-Monolingual/03-new.t

@@ -3,7 +3,7 @@ use warnings;
 
 use English;
 use Error::Pure::Utils qw(clean);
-use Test::More 'tests' => 6;
+use Test::More 'tests' => 7;
 use Test::NoWarnings;
 use Unicode::UTF8 qw(decode_utf8);
 use Wikibase::Datatype::Value::Monolingual;
@@ -48,3 +48,11 @@ eval {
 };
 is($EVAL_ERROR, "Language code 'ger' isn't code supported by Wikibase.\n",
 	"Language code 'ger' isn't code supported by Wikibase.");
+
+# Test.
+$Wikibase::Datatype::Utils::SKIP_CHECK_LANG = 1;
+$obj = Wikibase::Datatype::Value::Monolingual->new(
+	'language' => 'ger',
+	'value' => 'foo',
+);
+isa_ok($obj, 'Wikibase::Datatype::Value::Monolingual');