[Dart-dev] [4142] DART/trunk/time_manager: Some simple unit tests for the last time manager changes;

[nancy at ucar.edu]

Revision: 4142
Author:   nancy
Date:     2009-11-06 14:20:32 -0700 (Fri, 06 Nov 2009)
Log Message:
-----------
Some simple unit tests for the last time manager changes;
possible template for additional unit tests?  or not - 

Added Paths:
-----------
    DART/trunk/time_manager/tests/
    DART/trunk/time_manager/tests/Makefile
    DART/trunk/time_manager/tests/input.nml
    DART/trunk/time_manager/tests/timetest.f90

-------------- next part --------------
Added: DART/trunk/time_manager/tests/Makefile
===================================================================
--- DART/trunk/time_manager/tests/Makefile	                        (rev 0)
+++ DART/trunk/time_manager/tests/Makefile	2009-11-06 21:20:32 UTC (rev 4142)
@@ -0,0 +1,37 @@
+
+
+# get the flag settings from the mkmf template directly
+
+include ../../mkmf/mkmf.template
+
+OBJS = types_mod.o utilities_mod.o time_manager_mod.o null_mpi_utilities_mod.o
+MODS = types_mod.mod utilities_mod.mod time_manager_mod.mod mpi_utilities_mod.mod
+EXES = timetest
+LOGS = dart_log.out dart_log.nml
+
+all: $(EXES)
+
+check: $(EXES)
+	./timetest
+
+clean:
+	rm -fr $(OBJS) $(MODS) $(EXES) timetest.o $(LOGS)
+
+timetest: $(OBJS) timetest.o
+	ifort -o timetest timetest.o $(OBJS) $(LDFLAGS)
+
+types_mod.o: ../../common/types_mod.f90
+	ifort -c ../../common/types_mod.f90 $(FFLAGS)
+
+null_mpi_utilities_mod.o: ../../mpi_utilities/null_mpi_utilities_mod.f90 types_mod.o
+	ifort -c ../../mpi_utilities/null_mpi_utilities_mod.f90 $(FFLAGS)
+
+utilities_mod.o: ../../utilities/utilities_mod.f90 types_mod.o
+	ifort -c ../../utilities/utilities_mod.f90 $(FFLAGS)
+
+time_manager_mod.o: ../time_manager_mod.f90 utilities_mod.o types_mod.o
+	ifort -c ../time_manager_mod.f90 $(FFLAGS)
+
+timetest.o: timetest.f90 time_manager_mod.o
+	ifort -c timetest.f90 $(FFLAGS)
+


Property changes on: DART/trunk/time_manager/tests/Makefile
___________________________________________________________________
Added: svn:executable
   + *
Added: svn:mime-type
   + text/text
Added: svn:eol-style
   + native

Added: DART/trunk/time_manager/tests/input.nml
===================================================================
--- DART/trunk/time_manager/tests/input.nml	                        (rev 0)
+++ DART/trunk/time_manager/tests/input.nml	2009-11-06 21:20:32 UTC (rev 4142)
@@ -0,0 +1,3 @@
+&utilities_nml
+ module_details = .false.
+ /


Property changes on: DART/trunk/time_manager/tests/input.nml
___________________________________________________________________
Added: svn:mime-type
   + text/text
Added: svn:keywords
   + Date Revision Author HeadURL Id

Added: DART/trunk/time_manager/tests/timetest.f90
===================================================================
--- DART/trunk/time_manager/tests/timetest.f90	                        (rev 0)
+++ DART/trunk/time_manager/tests/timetest.f90	2009-11-06 21:20:32 UTC (rev 4142)
@@ -0,0 +1,42 @@
+
+program timetest
+
+use time_manager_mod, only : set_calendar_type, GREGORIAN, time_type, &
+                             set_date, leap_year
+
+
+type(time_type) :: mytime
+integer :: i
+
+! start of code
+
+call set_calendar_type(GREGORIAN)
+
+print *, ' '
+print * ,' testing gregorian calendar 1980 to 1910'
+do i = 1890, 1910
+
+ mytime = set_date(i, 1, 1, 0, 0, 0)
+ if (leap_year(mytime)) then
+   print *, i, 'is a leap year'
+ else
+   print *, i, 'is not a leap year'
+ endif
+
+enddo
+
+print *, ' '
+print * ,' testing gregorian calendar 1990 to 2010'
+do i = 1990, 2010
+
+ mytime = set_date(i, 1, 1, 0, 0, 0)
+ if (leap_year(mytime)) then
+   print *, i, 'is a leap year'
+ else
+   print *, i, 'is not a leap year'
+ endif
+
+enddo
+
+end program
+


Property changes on: DART/trunk/time_manager/tests/timetest.f90
___________________________________________________________________
Added: svn:keywords
   + Date Revision Author HeadURL Id