view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

	like(
		$encoded,
		qr{^[\w\+\*\-/=]+$},
		"no funny chars",
	);

	cmp_ok( $binary, "ne", $encoded, "encoded != binary" );

	cmp_ok( length($binary), "<", length($encoded), "encoded is longer" );

	is( $c->decrypt_string( string => $encoded, decode => 1 ), $c->decrypt_string( string => $binary ), "decoded == binary" );
}

ok( !$c->has_default_digest, "no default digest" );

my $fallback_digest = eval { $c->fallback_digest };

SKIP: {
	skip "Couldn't load any digest", 4 if $@ =~ /^Couldn't load any digest/;

	ok( !$@, "no unexpected error" );