On VMS, stdout may very well lead to a file that is written to in a

[openssl.git] / util / selftest.pl

diff --git a/util/selftest.pl b/util/selftest.pl
index 91aaaeca9d5c1409dbe1f0b2666ef59a5fd877ca..eb50d52ff8ffcf1819161508cb6d6c21d3fa61f5 100644 (file)
--- a/util/selftest.pl
+++ b/util/selftest.pl
@@ -19,6 +19,7 @@ my $ok=0;
 my $cc="cc";
 my $cversion="??";
 my $sep="-----------------------------------------------------------------------------\n";
+my $not_our_fault="\nPlease ask your system administrator/vendor for more information.\n[Problems with your operating system setup should not be reported\nto the OpenSSL project.]\n";
 
 open(OUT,">$report") or die;
 
@@ -76,16 +77,18 @@ print OUT "\n";
 
 print "Checking compiler...\n";
 if (open(TEST,">cctest.c")) {
-    print TEST "#include <stdio.h>\nmain(){printf(\"Hello world\\n\");}\n";
+    print TEST "#include <stdio.h>\n#include <errno.h>\nmain(){printf(\"Hello world\\n\");}\n";
     close(TEST);
     system("$cc -o cctest cctest.c");
     if (`./cctest` !~ /Hello world/) {
        print OUT "Compiler doesn't work.\n";
+       print OUT $not_our_fault;
        goto err;
     }
-    system("ar r cctest.a");
+    system("ar r cctest.a /dev/null");
     if (not -f "cctest.a") {
        print OUT "Check your archive tool (ar).\n";
+       print OUT $not_our_fault;
        goto err;
     }
 } else {
@@ -102,6 +105,7 @@ if (open(TEST,">cctest.c")) {
        } else {
            print OUT "Can't compile test program!\n";
        }
+       print OUT $not_our_fault;
        goto err;
     }
 } else {
@@ -133,6 +137,13 @@ if (/no-/)
     goto err;
 }
 
+if (`echo 4+1 | bc` != 5)
+{
+    print OUT "Can't run bc! Test skipped.\n";
+    print OUT $not_our_fault;
+    goto err;
+}
+
 print "Running make test...\n";
 if (system("make test 2>&1 | tee maketest.log") > 255)
  {