Added help to test

checks/test.f90

@@ -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