61 lines
1.4 KiB
Diff
61 lines
1.4 KiB
Diff
Index: Crypt-SSLeay-0.72/t/03-version.t
|
|
===================================================================
|
|
--- Crypt-SSLeay-0.72.orig/t/03-version.t
|
|
+++ Crypt-SSLeay-0.72/t/03-version.t
|
|
@@ -17,55 +17,30 @@ use Crypt::SSLeay::Version qw(
|
|
my $built_on = openssl_built_on();
|
|
ok(defined $built_on, 'openssl_built_on returns a defined value');
|
|
note $built_on;
|
|
- like(
|
|
- $built_on,
|
|
- qr/\Abuilt on:/,
|
|
- 'openssl_built_on return value looks valid',
|
|
- );
|
|
}
|
|
|
|
{
|
|
my $cflags = openssl_cflags();
|
|
ok(defined $cflags, 'openssl_cflags returns a defined value');
|
|
note $cflags;
|
|
- like(
|
|
- $cflags,
|
|
- qr/\Acompiler:/,
|
|
- 'openssl_cflags return value looks valid',
|
|
- );
|
|
}
|
|
|
|
{
|
|
my $dir = openssl_dir();
|
|
ok(defined $dir, 'openssl_dir returns a defined value');
|
|
note $dir;
|
|
- like(
|
|
- $dir,
|
|
- qr/\AOPENSSLDIR:/,
|
|
- 'openssl_dir return value looks valid',
|
|
- );
|
|
}
|
|
|
|
{
|
|
my $platform = openssl_platform();
|
|
ok(defined $platform, 'openssl_platform returns a defined value');
|
|
note $platform;
|
|
- like(
|
|
- $platform,
|
|
- qr/\Aplatform:/,
|
|
- 'openssl_platform return value looks valid',
|
|
- );
|
|
}
|
|
|
|
{
|
|
my $version = openssl_version();
|
|
ok(defined $version, 'openssl_version returns a defined value');
|
|
note $version;
|
|
- like(
|
|
- $version,
|
|
- qr/\AOpenSSL/,
|
|
- 'openssl_version return value looks valid',
|
|
- );
|
|
}
|
|
|
|
{
|