Merge pull request #338 from tom-binary/test/data_checks_exception_fo…

…rmat Test/data checks exception format
deriv-com · Aug 20, 2024 · e4a18a4 · e4a18a4
2 parents ec93653 + 587c451
commit e4a18a4
Show file tree

Hide file tree

Showing 8 changed files with 9 additions and 9 deletions.
diff --git a/lib/Myriad/Class.pm b/lib/Myriad/Class.pm
@@ -396,7 +396,7 @@ sub import {
     }
 
     if(my $class = $args{class} // $pkg) {
-        Object::Pad->import_into($pkg, ":experimental(init_expr mop custom_field_attr adjust_params)");
+        Object::Pad->import_into($pkg, ":experimental(init_expr mop custom_field_attr)");
 
         my $method = 'begin_' . ($args{type} || 'class');
         Module::Load::load($args{extends}) if $args{extends};

diff --git a/t/RPC/full-cycle.t b/t/RPC/full-cycle.t
@@ -8,7 +8,7 @@ use Log::Any::Adapter qw(TAP);
 
 use Future;
 use Future::AsyncAwait;
-use Object::Pad qw(:experimental);
+use Object::Pad;
 
 my ($ping_service, $pong_service);
 

diff --git a/t/RPC/overflow-protection.t b/t/RPC/overflow-protection.t
@@ -12,7 +12,7 @@ use Myriad::Transport::Memory;
 use Myriad::Transport::Redis;
 use Myriad::RPC::Message;
 use Sys::Hostname qw(hostname);
-use Object::Pad qw(:experimental);
+use Object::Pad qw(:experimental(mop));
 
 use Myriad;
 

diff --git a/t/RPC/pending-requests.t b/t/RPC/pending-requests.t
@@ -12,7 +12,7 @@ use Myriad::Transport::Memory;
 use Myriad::Transport::Redis;
 use Myriad::RPC::Message;
 use Sys::Hostname qw(hostname);
-use Object::Pad qw(:experimental);
+use Object::Pad qw(:experimental(mop));
 
 use Myriad;
 

diff --git a/t/commands.t b/t/commands.t
@@ -7,7 +7,7 @@ use Test::MockObject;
 use Test::Fatal;
 use Test::Deep;
 
-use Object::Pad qw(:experimental);
+use Object::Pad qw(:experimental(mop));
 use Log::Any::Adapter qw(TAP);
 
 use Future::AsyncAwait;

diff --git a/t/myriad.t b/t/myriad.t
@@ -10,7 +10,7 @@ use Test::MockObject;
 use Future::AsyncAwait;
 use IO::Async::Test;
 
-use Object::Pad qw(:experimental);
+use Object::Pad qw(:experimental(mop));
 
 sub loop_notifiers {
     my $loop = shift;

diff --git a/t/registry.t b/t/registry.t
@@ -11,7 +11,7 @@ use IO::Async::Test;
 use Future::AsyncAwait;
 # Needed to set Testing::Service method names without fully defining service as Myriad::Service
 use Sub::Util qw(subname set_subname);
-use Object::Pad qw(:experimental);
+use Object::Pad qw(:experimental(mop));
 
 use Myriad;
 use Myriad::Registry;

diff --git a/t/syntax.t b/t/syntax.t
@@ -167,10 +167,10 @@ subtest 'Myriad::Class :v2' => sub {
     }, undef, 'can check numeric >= 5');
     like(exception {
         $obj->checked(-3)
-    }, qr/\Qsatisfying :Checked(NumGE(5))/, 'numeric check fails on number out of range');
+    }, qr/\Qsatisfying NumGE(5)/, 'numeric check fails on number out of range');
     like(exception {
         $obj->checked('xx')
-    }, qr/\Qsatisfying :Checked(NumGE(5))/, 'numeric check fails on invalid number');
+    }, qr/\Qsatisfying NumGE(5)/, 'numeric check fails on invalid number');
     done_testing;
 };
 done_testing;