@@ -3,13 +3,13 @@ use Test;
3
3
plan 6 ;
4
4
5
5
# U+2286 SUBSET OF OR EQUAL TO
6
- only sub infix :< <"\x2286" >> ($ a , $ b --> Bool ) {
7
- $ a (<=) $ b ;
8
- }
6
+ only sub infix :< <"\x2286" >> ($ a , $ b --> Bool ) {
7
+ $ a (<=) $ b ;
8
+ }
9
9
10
- is ( set( <a b c > ) β set( <a b c d > ), True ) ;
11
- is ( set( <a b c d > ) β set( <a b c > ), False ) ;
12
- is ( <a b c > β <a b d >, False ) ;
10
+ is set( <a b c > ) β set( <a b c d > ), True , ' a b c β a b c d ' ;
11
+ is set( <a b c d > ) β set( <a b c > ), False , ' a b c d β a b c ' ;
12
+ is <a b c > β <a b d >, False , ' a b c β a b d ' ;
13
13
14
14
# in the advent article, it returned False. Since then, S07:55
15
15
#
@@ -18,7 +18,7 @@ is(<a b c> β <a b d>, False);
18
18
#
19
19
# is interpreted in such a way that Parcels have become value based,
20
20
# and that means that this test should return True
21
- is ( <a b c > === <a b c >, True ) ;
21
+ is <a b c > === <a b c >, True , ' a b c === a b c ' ;
22
22
23
- is ( <a b c > eqv <a b c >, True ) ;
24
- is ( set(<a b c >). WHICH , ' Set|Str|a Str|b Str|c' ) ;
23
+ is <a b c > eqv <a b c >, True , ' a b c eqv a b c ' ;
24
+ is set(<a b c >). WHICH , ' Set|Str|a Str|b Str|c' , ' is .WHICH what we expect ' ;
0 commit comments