| 1 | '--------------------------------------------------------------------
|
|---|
| 2 | ' Test case of DateTime Class
|
|---|
| 3 | '--------------------------------------------------------------------
|
|---|
| 4 |
|
|---|
| 5 | Namespace DateTimeTest
|
|---|
| 6 |
|
|---|
| 7 | Sub TestMain()
|
|---|
| 8 |
|
|---|
| 9 | UnitTest("DateTime.Now" + " " + DateTime.Now.ToString(), True)
|
|---|
| 10 |
|
|---|
| 11 | UnitTest("DateTime.IsLeapYear - 2000", DateTime.IsLeapYear(2000) = True)
|
|---|
| 12 | UnitTest("DateTime.IsLeapYear - 2001", DateTime.IsLeapYear(2001) = False)
|
|---|
| 13 | UnitTest("DateTime.IsLeapYear - 2004", DateTime.IsLeapYear(2004) = True)
|
|---|
| 14 | UnitTest("DateTime.IsLeapYear - 2100", DateTime.IsLeapYear(2100) = False)
|
|---|
| 15 |
|
|---|
| 16 | Dim testDateTime = New DateTime(2008, 12, 31, 23, 59, 59, 999)
|
|---|
| 17 | UnitTest("DateTime.Millisecond", testDateTime.Millisecond = 999)
|
|---|
| 18 | UnitTest("DateTime.Second", testDateTime.Second = 59)
|
|---|
| 19 | UnitTest("DateTime.Minute", testDateTime.Minute = 59)
|
|---|
| 20 | UnitTest("DateTime.Hour", testDateTime.Hour = 23)
|
|---|
| 21 | UnitTest("DateTime.Day", testDateTime.Day = 31)
|
|---|
| 22 | UnitTest("DateTime.Month", testDateTime.Month = 12)
|
|---|
| 23 | UnitTest("DateTime.Year", testDateTime.Year = 2008)
|
|---|
| 24 | UnitTest("DateTime.DayOfWeek", testDateTime.DayOfWeek = 3)'DayOfWeek.Wednesday)
|
|---|
| 25 | UnitTest("DateTime.Kind", testDateTime.Kind = DateTimeKind.Unspecified)
|
|---|
| 26 | UnitTest("DateTime.DayOfYear", testDateTime.DayOfYear = 366)
|
|---|
| 27 |
|
|---|
| 28 | UnitTest("DateTime.Equals", testDateTime.Equals(testDateTime))
|
|---|
| 29 | UnitTest("DateTime.Compare (Case1)", DateTime.Compare(New DateTime(2000, 1, 2), New DateTime(2000, 1, 2)) = 0)
|
|---|
| 30 | UnitTest("DateTime.Compare (Case2)", DateTime.Compare(New DateTime(2000, 1, 2), New DateTime(2000, 1, 1)) > 0)
|
|---|
| 31 | UnitTest("DateTime.Compare (Case3)", DateTime.Compare(New DateTime(2000, 1, 1), New DateTime(2000, 1, 2)) < 0)
|
|---|
| 32 |
|
|---|
| 33 | Dim testDate = testDateTime.Date
|
|---|
| 34 | UnitTest("DateTime.Date", DateTime.Compare(testDate, New DateTime(2008, 12, 31)) = 0)
|
|---|
| 35 | UnitTest("DateTime.Add", testDate.Add(TimeSpan.FromTicks(863999990000)) = testDateTime)
|
|---|
| 36 | UnitTest("DateTime.AddTicks", testDate.AddTicks(863999990000) = testDateTime)
|
|---|
| 37 | UnitTest("DateTime.AddMilliseconds", testDate.AddMilliseconds(86399999) = testDateTime)
|
|---|
| 38 | UnitTest("DateTime.AddSeconds", testDate.AddSeconds(86399.999) = testDateTime)
|
|---|
| 39 | UnitTest("DateTime.AddMinutes", DateTime.Compare(testDate.AddMinutes(1), New DateTime(2008, 12, 31, 0, 1, 0)) = 0)
|
|---|
| 40 | UnitTest("DateTime.AddHours", DateTime.Compare(testDate.AddHours(1), New DateTime(2008, 12, 31, 1, 0, 0)) = 0)
|
|---|
| 41 | UnitTest("DateTime.AddDays", DateTime.Compare(testDate.AddDays(1), New DateTime(2009, 1, 1)) = 0)
|
|---|
| 42 | UnitTest("DateTime.AddYears", DateTime.Compare(testDate.AddYears(1), New DateTime(2009, 12, 31)) = 0)
|
|---|
| 43 | End Sub
|
|---|
| 44 |
|
|---|
| 45 | End Namespace
|
|---|
| 46 |
|
|---|
| 47 | DateTimeTest.TestMain()
|
|---|
