Commit eac15ea1 authored by Yannick Ulrich's avatar Yannick Ulrich

Added help to test

parent eb58b347
......@@ -44,9 +44,9 @@ PROGRAM TEST
case('-ginac-tests')
tol = 8.0e-7
call do_ginac_tests
case ('-speed-tests')
case('-speed-tests')
call do_timing_tests(readint(trim(arg),i))
case ('-hw-tests')
case('-hw-tests')
tol = 8.0e-7
call do_high_weight_tests
#else
......@@ -55,17 +55,16 @@ PROGRAM TEST
#endif
#ifdef HAVE_GINAC
case ('-long-test')
case('-long-test')
tol = 8.0e-7
call do_long_test
#else
case('-long-test')
call errprint("Argument "//trim(arg)//" is not available, compile with --with-ginac")
#endif
case ('-report')
#ifdef DEBUG
case('-report')
verb = 1000
#endif
tol = zero * 1.e5_prec
call do_MPL_tests
call do_GPL_tests
......@@ -73,10 +72,13 @@ PROGRAM TEST
tests_successful = tests_successful .and. do_chen_test()
#if defined(HAVE_GINAC) && defined(HAVE_MM)
call do_ginac_tests
#endif
#endif
case('--help','--h','-h','-help')
call printhelp
case default
call errprint("Unknown argument "//trim(arg))
call errprint("Unknown argument "//trim(arg)//". Try -h to get help")
end select
i = i+1
......@@ -100,6 +102,43 @@ CONTAINS
stop 1
end subroutine
subroutine printhelp
character(len=32) :: arg
call get_command_argument(0,arg)
#ifdef DEBUG
print*,"Usage: "//trim(arg)//" [-verb <n>] [opts]"
#else
print*,"Usage: "//trim(arg)//" [opts]"
#endif
print*,"Runs a set of tests for handyG"
print*,""
print*,"Possible tests are:"
print*," -mpl-test performs tests on the series expansion of"
print*," convergent MPLs"
print*," -gpl-test tests GPLs and their reduction. This includes"
print*," real, ieps, and complex arguments"
print*," -chen-test compares all GPLs needed in [1811.06461] to"
print*," reference values"
#ifdef HAVE_GINAC
#ifdef HAVE_MM
print*," -ginac-tests compare all GPLs needed by [1801.01033],"
print*," [1709.07435], and [1806.08241] to GiNaC"
print*," -speed-tests <n> compare the evaluation speed of the"
print*," aforementioned GPLs to GiNaC by averaging over"
print*," <n> evaluations"
print*," -hw-tests compares `random' GPLs with high weight to GiNaC"
#endif
print*," -long-test compares many `random' GPLs with weight up to"
print*," four to GiNaC"
#endif
#ifdef DEBUG
print*," -verb <n> sets the verbosity level to <n>"
print*," -report performs a coverage test"
#endif
end subroutine
function readint(prev,i)
integer i, readint, st
character(len=32) :: arg
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment