function encrypt_test ( )

%*****************************************************************************80
%
%% encrypt_test tests encrypt.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 January 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'encrypt_test\n' );
  fprintf ( 1, '  Test encrypt\n' );
  fprintf ( 1, '\n' );

  filename1 = 'gettysburg.txt';
  filename2 = 'gettysburg2.txt';
  filename3 = 'gettysburg3.txt';

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Plaintext file %s:\n', filename1 );
  fprintf ( 1, '\n' );
  type ( filename1 );

  encrypt ( filename1, filename2 );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Encrypted file %s:\n', filename2 );
  fprintf ( 1, '\n' );
  type ( filename2 );

  encrypt ( filename2, filename3 );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Decrypted file %s:\n', filename3 );
  fprintf ( 1, '\n' );
  type ( filename3 );

  return
end

