#*****************************************************************************80
#
## byname_test() tests byname().
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    11 May 2021
#
#  Author:
#
#    John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "byname_test():\n" )
cat ( " ", version$version.string, "\n" )
cat ( "  Test byname(), with the interface:\n" )
cat ( "    value_out = byname(action,name,value_in)\n" )
cat ( "\n" )

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

cat ( '    byname ( "print", "*" )\n' )
output <- byname ( "print", "*" )
cat ( '    alpha = byname ( "set", "alpha", 1.0 )\n' )
output <- byname ( "set", "alpha", 1.0 )
alpha <- output[1]
cat ( '    beta = byname ( "set", "beta", 99 )\n' )
output <- byname ( "set", "beta", 99.0 )
beta <- output[1]
cat ( '    byname ( "set", "gamma", alpha + beta )\n' )
output <- byname ( "set", "gamma", alpha + beta )
cat ( '    byname ( "print", "*" )\n' )
output <- byname ( "print", "*" )
cat ( '    gamma = byname ( "get", "gamma" )\n' )
output <- byname ( "get", "gamma" )
gamma <- output[1]
cat ( '    byname ( "set", "gamma", 2.0*gamma )\n' )
output <-byname ( "set", "gamma", 2.0*gamma )
cat ( '    byname ( "print", "gamma" )\n' )
output <- byname ( "print", "gamma" )
cat ( '    beta = byname ( "set", "beta", "Shazam!" )\n' )
output <- byname ( "set", "beta", "Shazam!" )
beta = output[1]
cat ( '    byname ( "print", "*" )\n' )
output <- byname ( "print", "*" )
cat ( '    byname ( "reset" )\n' )
output <- byname ( "reset" )
cat ( '    byname ( "print", "*" )\n' )
output <- byname ( "print", "*" )
#
#  Terminate.
#
cat ( "\n" )
cat ( "byname_test():\n" )
cat ( "  Normal end of execution.\n" )
cat ( date ( ), "\n" )

quit ( )