test/recipes/03-test_internal_*: call setup() first.

Strawberry Perl bailed out running test\run_tests.pl insisting on
setup() being called explicitly.

Reviewed-by: Richard Levitte <levitte@openssl.org>

diff --git a/test/recipes/03-test_internal_asn1.t b/test/recipes/03-test_internal_asn1.t
index 2db781365a4a8578c2491619bc32395c4901d47e..d34445f43428a3f21be944e6af955defedf523f3 100644 (file)
--- a/test/recipes/03-test_internal_asn1.t
+++ b/test/recipes/03-test_internal_asn1.t
@@ -11,6 +11,8 @@ use OpenSSL::Test;              # get 'plan'
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 

+setup("test_internal_asn1");
+

 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 
 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 

diff --git a/test/recipes/03-test_internal_chacha.t b/test/recipes/03-test_internal_chacha.t
index 642c00a1babda4d1b451fcfb780136138d4c2637..58e21f7cd70c1cc354f34b30bb3926668abe582f 100644 (file)
--- a/test/recipes/03-test_internal_chacha.t
+++ b/test/recipes/03-test_internal_chacha.t
@@ -11,6 +11,8 @@ use OpenSSL::Test;              # get 'plan'
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 

+setup("test_internal_chacha");
+

 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 
 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 

diff --git a/test/recipes/03-test_internal_modes.t b/test/recipes/03-test_internal_modes.t
index 9f66702e490c49ebd56efb9c1a128da960555442..4371822306848e3d1da5a18978be1703b0fc9673 100644 (file)
--- a/test/recipes/03-test_internal_modes.t
+++ b/test/recipes/03-test_internal_modes.t
@@ -11,6 +11,8 @@ use OpenSSL::Test;              # get 'plan'
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 

+setup("test_internal_modes");
+

 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 
 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 

diff --git a/test/recipes/03-test_internal_poly1305.t b/test/recipes/03-test_internal_poly1305.t
index 1c88d28f11e1b7ed1509cfb617db59c3806f590b..2f5625d626b4423045faadc5f9c6973b12e5db48 100644 (file)
--- a/test/recipes/03-test_internal_poly1305.t
+++ b/test/recipes/03-test_internal_poly1305.t
@@ -11,6 +11,8 @@ use OpenSSL::Test;              # get 'plan'
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 

+setup("test_internal_poly1305");
+

 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 
 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 

diff --git a/test/recipes/03-test_internal_siphash.t b/test/recipes/03-test_internal_siphash.t
index f8569de769b56ac0927df23eb2e7933196bf49f1..1a8a61736fce20e1a9b7c855b929c5d78dca662f 100644 (file)
--- a/test/recipes/03-test_internal_siphash.t
+++ b/test/recipes/03-test_internal_siphash.t
@@ -11,6 +11,8 @@ use OpenSSL::Test;              # get 'plan'
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 

+setup("test_internal_siphash");
+

 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 
 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 

diff --git a/test/recipes/03-test_internal_x509.t b/test/recipes/03-test_internal_x509.t
index 2f6402cac84849101f98bbefe7392b2176fae4c1..d4aaa22e72d248f981951b5a02bf4cfcece32ba1 100644 (file)
--- a/test/recipes/03-test_internal_x509.t
+++ b/test/recipes/03-test_internal_x509.t
@@ -11,6 +11,8 @@ use OpenSSL::Test;              # get 'plan'
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 
 use OpenSSL::Test::Simple;
 use OpenSSL::Test::Utils;
 

+setup("test_internal_x509");
+

 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");
 
 plan skip_all => "This test is unsupported in a shared library build on Windows"
     if $^O eq 'MSWin32' && !disabled("shared");