Tests with new Period subtype

Author: omus

test/dates/periods.jl

@@ -238,6 +238,23 @@ test = ((((((((dt + y) - m) + w) - d) + h) - mi) + s) - ms)
 @test_throws MethodError Dates.Year(1) == Dates.Millisecond(1)
 @test_throws MethodError Dates.Millisecond(1) == Dates.Year(1)
 
+# Allow comparisons with new Period subtypes
+let
+    # https://en.wikipedia.org/wiki/Swatch_Internet_Time
+    struct BeatTime <: Dates.Period
+        value::Int64
+    end
+
+    Dates.value(b::BeatTime) = b.value
+    Dates.toms(b::BeatTime) = Dates.value(b) * 86400
+    Dates._units(b::BeatTime) = " beat" * (abs(Dates.value(b)) == 1 ? "" : "s")
+    Base.promote_rule(::Type{Dates.Day}, ::Type{BeatTime}) = Dates.Millisecond
+    Base.convert{T<:Dates.Millisecond}(::Type{T}, b::BeatTime) = T(Dates.toms(b))
+
+    @test BeatTime(1000) == Dates.Day(1)
+    @test BeatTime(1) < Dates.Day(1)
+end
+
 @test Dates.Year("1") == y
 @test Dates.Month("1") == m
 @test Dates.Week("1") == w