like $cksum->{1}{cpan_path}, qr{t/tdir$},
        "cpan_path is as expected" or diag explain $cksum;

##</code><code>##

my $path = File::Spec->catfile('t', 'tdir');
like $cksum->{1}{cpan_path}, qr{\Q$path\E$},
        "cpan_path is as expected" or diag explain $cksum;

##</code><code>##

    my $path = _d"t/tdir";