#!../src/tops -i -s ../sys -u drivers
/*
Program Tops - a stack-based computing environment
Copyright (C) 1999-2011  Dale R. Williamson

Author: Dale R. Williamson <dale.williamson@prodigy.net>

File test/cluster_ssl  March 2011

------------------------------------------------------------------------

   Running the Make-pi demo of file clu.v with encrypted connections.

   SSL certification files (.pem) must be at usrpath, defined above by
   -u drivers.

----------------------------------------------------------------------*/

   if(!SSL)
      HALT(nl(dot(" cluster_ssl: OpenSSL missing, test skipped")));

   if(!file?("cluster"))
      HALT(nl(
      dot(" cluster_ssl: local file cluster missing, test skipped")));

   nl(dot(nl(" Begin secure cluster demo")));

   ssl_connect(yes); // cluster connections will be encrypted

   psource("cluster"); // running the Make-pi demo as usual

   dot(" End secure cluster demo");
   nl;
