1*e0c4386eSCy Schubert#! /usr/bin/env perl 2*e0c4386eSCy Schubert 3*e0c4386eSCy Schubertuse strict; 4*e0c4386eSCy Schubertuse warnings; 5*e0c4386eSCy Schubertuse OpenSSL::Test qw/:DEFAULT data_file/; 6*e0c4386eSCy Schubertuse OpenSSL::Test::Utils; 7*e0c4386eSCy Schubert 8*e0c4386eSCy Schubertsetup("test_includes"); 9*e0c4386eSCy Schubert 10*e0c4386eSCy Schubertplan skip_all => "test_includes doesn't work without posix-io" 11*e0c4386eSCy Schubert if disabled("posix-io"); 12*e0c4386eSCy Schubert 13*e0c4386eSCy Schubertdelete $ENV{OPENSSL_CONF_INCLUDE}; 14*e0c4386eSCy Schubert 15*e0c4386eSCy Schubertplan tests => # The number of tests being performed 16*e0c4386eSCy Schubert 6 17*e0c4386eSCy Schubert + ($^O eq "VMS" ? 2 : 0); 18*e0c4386eSCy Schubert 19*e0c4386eSCy Schubertok(run(test(["conf_include_test", data_file("includes.cnf")])), "test directory includes"); 20*e0c4386eSCy Schubertok(run(test(["conf_include_test", data_file("includes-file.cnf")])), "test file includes"); 21*e0c4386eSCy Schubertok(run(test(["conf_include_test", data_file("includes-eq.cnf")])), "test includes with equal character"); 22*e0c4386eSCy Schubertok(run(test(["conf_include_test", data_file("includes-eq-ws.cnf")])), "test includes with equal and whitespaces"); 23*e0c4386eSCy Schubertif ($^O eq "VMS") { 24*e0c4386eSCy Schubert ok(run(test(["conf_include_test", data_file("vms-includes.cnf")])), 25*e0c4386eSCy Schubert "test directory includes, VMS syntax"); 26*e0c4386eSCy Schubert ok(run(test(["conf_include_test", data_file("vms-includes-file.cnf")])), 27*e0c4386eSCy Schubert "test file includes, VMS syntax"); 28*e0c4386eSCy Schubert} 29*e0c4386eSCy Schubertok(run(test(["conf_include_test", "-f", data_file("includes-broken.cnf")])), "test broken includes"); 30*e0c4386eSCy Schubertok(run(test(["conf_include_test", "-f", data_file("incdir.cnf")])), "test includedir"); 31