#*****************************************************************************80
#
## constants_test() tests constants().
#
#  Discussion:
#
#    R and my brain are orthogonal.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    08 May 2021
#
#  Author:
#
#    John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "constants_test():\n" )
cat ( " ", version$version.string, "\n" )
cat ( "  Test constants(), with the interface:\n" )
cat ( "    [g,c,h] = constants()\n" )

source ( "/home/burkardt/public_html/r_src/persistence/constants.R" )

output <- constants ( )

g <- output[1]
c <- output[2]
h <- output[3]

cat ( "\n" )
cat ( "    g = ", g, ", c = ", c, ", h = ", h, "\n" ); 
#
#  Terminate.
#
cat ( "\n" )
cat ( "constants_test():\n" )
cat ( "  Normal end of execution.\n" )
cat ( date ( ), "\n" )

quit ( )