#
# Testing OpenWFE
#
# John Mettraux at openwfe.org
#
# Sun Oct 29 16:18:25 JST 2006
#

require 'test/unit'
require 'openwfe/otime'
require 'openwfe/util/scheduler'

#
# testing otime and the scheduler
#

class TimeTest < Test::Unit::TestCase

    #def setup
    #end

    #def teardown
    #end

    #def test_to_iso_date
    def xxxx_to_iso_date
        #
        # well... this test is not timezone friendly...
        # commented out thus...

        t = 1169019813.93468

        s = OpenWFE.to_iso8601_date(t)
        puts s

        assert \
            OpenWFE.to_iso8601_date(t) == "2007-01-17 02:43:33-0500",
            "conversion to iso8601 date failed"

        d = OpenWFE.to_ruby_time(s)

        #puts d.to_s

        assert \
            d.to_s == "2007-01-17T02:43:33-0500",
            "iso8601 date parsing failed"
    end

    def test_is_digit

        for i in 0...9
            si = "#{i}"
            assert \
                OpenWFE::is_digit?(si),
                "'#{si}' should be a digit"
        end

        assert \
            (not OpenWFE::is_digit?(1)),
            "the integer 1 is not a character digit"
        assert \
            (not OpenWFE::is_digit?("a")),
            "the character 'a' is not a character digit"
    end

    def test_parse_time_string

        pts("500", 0.5)
        pts("1000", 1.0)
        pts("1h", 3600.0)
        pts("1h10s", 3610.0)
    end

    def test_scheduler_0

        $var = nil

        scheduler = OpenWFE::Scheduler.new()
        scheduler.start

        sid = scheduler.schedule_in('2s', TestSchedulable.new, nil)

        assert \
            sid,
            "scheduler did not return a job id"

        assert \
            (not $var),
            "scheduler_0 is blocking but should not"

        sleep(2.5)
        scheduler.stop

        #puts ">#{$var}<"

        assert \
            ($var == "ok"),
            "scheduler_0 didn't work"
    end

    protected

        class TestSchedulable
            include OpenWFE::Schedulable

            def trigger (params)
                $var = "ok"
            end
        end

        def pts (time_string, seconds)

            assert \
                OpenWFE::parse_time_string(time_string) == seconds,
                "'#{time_string}' did not map to #{seconds} seconds"
        end

end