use v6;
use Test;
plan 6;

# U+2286 SUBSET OF OR EQUAL TO
only sub infix:<<"\x2286">>($a, $b --> Bool) {
    $a (<=) $b;
}

is set( <a b c> ) ⊆ set( <a b c d> ), True,  'a b c   ⊆ a b c d';
is set( <a b c d> ) ⊆ set( <a b c> ), False, 'a b c d ⊆ a b c';
is <a b c> ⊆ <a b d>, False,                 'a b c   ⊆ a b d';
is <a b c> === <a b c>, False, 'a b c === a b c';
is <a b c> eqv <a b c>, True, 'a b c eqv a b c';
is set(<a b c>).WHICH, 'Set|Str|a Str|b Str|c', 'is .WHICH what we expect';

use v6;
use Test;
plan 6;

# U+2286 SUBSET OF OR EQUAL TO
only sub infix:<<"\x2286">>($a, $b --> Bool) {
    $a (<=) $b;
}

is set( <a b c> ) ⊆ set( <a b c d> ), True,  'a b c   ⊆ a b c d';
is set( <a b c d> ) ⊆ set( <a b c> ), False, 'a b c d ⊆ a b c';
is <a b c> ⊆ <a b d>, False,                 'a b c   ⊆ a b d';
is <a b c> === <a b c>, False, 'a b c === a b c';
is <a b c> eqv <a b c>, True, 'a b c eqv a b c';
is set(<a b c>).WHICH, set(<c b a>).WHICH, 'make sure .WHICH is consistent';

Make bogus .WHICH test less bogus
Make bogus .WHICH test less bogus
