is_prime1_test <- function ( )

#*****************************************************************************80
#
## is_prime1_test() tests is_prime1().
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    29 December 2022
#
#  Author:
#
#    John Burkardt
#
{
  source ( "/home/burkardt/public_html/r_src/is_prime/is_prime1.R" ) 
  source ( "/home/burkardt/public_html/r_src/test_values/is_prime_values.R" ) 

  cat ( '\n' )
  cat ( 'is_prime1_test():\n' )
  cat ( '  is_prime1(n) is TRUE if n is a prime.\n' )
  cat ( '\n' )
  cat ( '       n      is_prime(n)    is_prime1(n)\n' )
  cat ( '\n' )

  n_data = 0

  while ( TRUE )
  {
    output = is_prime_values ( n_data )
    n_data = output[1]
    n      = output[2]
    tf1    = output[3]

    if ( n_data == 0 )
    {
      break
    }

    output = is_prime1 ( n )
    tf2 = output[1]

    if ( tf1 )
    {
      s1 = 'True'
    }
    else
    {
      s1 = 'False'
    }

    if ( tf2 )
    {
      s2 = 'True'
    }
    else
    {
      s2 = 'False'
    }

    cat ( '  ', n, '  ', s1, '  ', s2, '\n' )
  }

}