use v6.c;
use Test;

use FindBin < Bin >;

my $resolved    = Bin( True  );
my $symlink     = Bin( False );
my $sanity      = $resolved.IO.dirname;

say "# Symlink: '$sanity'";

ok $resolved ne $sanity, "Resolved: '$resolved'";
ok $symlink  eq $sanity, "Symlink:  '$symlink'";

done-testing;
