1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Description: fix #723925 by allowing for random hash key ordering
Author: Alexander Zangerl <az@debian.org>
--- a/t/130_trait_runtime_instance.t
+++ b/t/130_trait_runtime_instance.t
@@ -122,7 +122,7 @@ require Extra::TSpouse;
eval { Extra::TSpouse->apply($foo) };
ok $@, 'Trying to apply a runtime trait with unmet requirements should fail';
-like $@, qr/Requirement \(alimony\) for Extra::TSpouse not in Foo::/,
+like $@, qr/Requirement \((alimony|lawyer)\) for Extra::TSpouse not in Foo::/,
'... with an appropriate error message';
ok $foo->isa($anon_package),
--- a/t/140_trait_runtime_class.t
+++ b/t/140_trait_runtime_class.t
@@ -147,7 +147,7 @@ is_deeply \@does, [qw/TBomb TSpouse/],
clean_inc();
eval { Class::Trait->apply(Foo => 'Extra::TSpouse') };
ok $@, 'Trying to apply a runtime trait with unmet requirements should fail';
-like $@, qr/Requirement \(alimony\) for Extra::TSpouse not in Foo/,
+like $@, qr/Requirement \((alimony|lawyer)\) for Extra::TSpouse not in Foo/,
'... with an appropriate error message';
clean_inc();
|
