use v6;
use lib $?FILE.IO.parent(2).add: 'packages';
use Test;
use Test::Util;

plan 4;

# https://github.com/rakudo/rakudo/issues/1567
like 42, /42/, '`like` can accept non-Str objects (Int)';
like class { method Str { 'foo' } }, /foo/,
    '`like` can accept non-Str objects (custom)';

# https://github.com/rakudo/rakudo/issues/1567
unlike 42, /43/, '`unlike` can accept non-Str objects (Int)';
unlike class { method Str { 'foo' } }, /bar/,
    '`unlike` can accept non-Str objects (custom)';

Test like/unlike coerce to Str
Test like/unlike coerce to Str

Covers https://github.com/rakudo/rakudo/issues/1567
