openwferu 0.9.16 → 0.9.17

data/test/cron_test.rb

@@ -1,113 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Sun Oct 29 16:18:25 JST 2006
-#
-
-require 'test/unit'
-
-require 'openwfe/util/otime'
-require 'openwfe/util/scheduler'
-
-
-#
-# testing otime and the scheduler (its cron aspect)
-#
-class CronTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    def test_0
-
-        $var = 0
-
-        scheduler = OpenWFE::Scheduler.new
-        scheduler.start
-
-        sid = scheduler.schedule(
-            '* * * * *',
-            :schedulable => CounterSchedulable.new)
-
-        assert sid, "scheduler did not return a job id"
-
-        sleep 120
-        scheduler.stop
-
-        #puts ">#{$var}<"
-
-        assert_equal $var, 2, "$var should be at 2, it's at #{$var}"
-    end
-
-    def test_1
-
-        scheduler = OpenWFE::Scheduler.new
-        scheduler.start
-
-        sec = nil
-        has_gone_wrong = false
-        counter = 0
-
-        scheduler.schedule "* * * * * *" do
-            t = Time.new
-            if (t.sec == sec)
-                has_gone_wrong = true
-                #print "x"
-            else
-                #print "."
-            end
-            #STDOUT.flush
-            sec = t.sec
-            counter = counter + 1
-        end
-
-        sleep 10
-        scheduler.stop
-
-        assert_equal 10, counter
-        assert (not has_gone_wrong)
-    end
-
-    def test_2
-
-        scheduler = OpenWFE::Scheduler.new
-        scheduler.start
-
-        seen = false
-        has_gone_wrong = false
-
-        scheduler.schedule "7 * * * * *" do
-            if seen
-                has_gone_wrong = true
-                #print "x"
-            else
-                seen = true
-                #print "."
-            end
-            #STDOUT.flush
-        end
-
-        sleep 61
-        scheduler.stop
-
-        assert seen
-        assert (not has_gone_wrong)
-    end
-
-    protected
-
-        class CounterSchedulable
-            include OpenWFE::Schedulable
-
-            def trigger (params)
-                $var = $var + 1
-            end
-        end
-
-end

data/test/cronline_test.rb

@@ -1,60 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Sun Oct 29 16:18:25 JST 2006
-#
-
-require 'pp'
-require 'test/unit'
-
-require 'openwfe/util/scheduler'
-
-
-#
-# testing the Scheduler's CronLine system
-#
-class CronLineTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    def do_cltest (line, array)
-        cl = OpenWFE::CronLine.new(line)
-
-        unless cl.to_array == array
-            puts
-            pp cl.to_array
-            puts "   should be"
-            pp array
-        end
-
-        assert \
-            cl.to_array == array
-    end
-
-    def test_0
-
-        do_cltest "* * * * *", [ [0], nil, nil, nil, nil, nil ]
-        do_cltest "10-12 * * * *", [ [0], [10, 11, 12], nil, nil, nil, nil ]
-        do_cltest "* * * * sun,mon", [ [0], nil, nil, nil, nil, [7, 1] ]
-        do_cltest "* * * * mon-wed", [ [0], nil, nil, nil, nil, [1, 2, 3] ]
-
-        #do_cltest "* * * * sun,mon-tue", [ [0], nil, nil, nil, nil, [7, 1, 2] ]
-        #do_cltest "* * * * 7-1", [ [0], nil, nil, nil, nil, [7, 1, 2] ]
-    end
-
-    def test_1
-
-        do_cltest "* * * * * *", [ nil, nil, nil, nil, nil, nil ]
-        do_cltest "1 * * * * *", [ [1], nil, nil, nil, nil, nil ]
-        do_cltest "7 10-12 * * * *", [ [7], [10, 11, 12], nil, nil, nil, nil ]
-        do_cltest "1-5 * * * * *", [ [1,2,3,4,5], nil, nil, nil, nil, nil ]
-    end
-
-end

data/test/dollar_test.rb

@@ -1,90 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require 'test/unit'
-require 'openwfe/util/dollar'
-
-#
-# testing the 'dollar notation'
-#
-
-class DollarTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    def test_0
-
-        dict = {}
-
-        dict['renard'] = 'goupil'
-        dict['cane'] = 'oie'
-        dict['oie blanche'] = 'poule'
-
-        dotest("le petit renard", dict, "le petit renard")
-        dotest("le petit {renard}", dict, "le petit {renard}")
-        dotest("le petit ${renard}", dict, "le petit goupil")
-        dotest("le petit ${renard} noir", dict, "le petit goupil noir")
-
-        dotest("la grande ${${cane} blanche}", dict, "la grande poule")
-
-        dotest("le ${renard} et la ${cane}", dict, "le goupil et la oie")
-            #
-            # excuse my french...
-
-        dotest("le \\${renard} encore", dict, "le \\${renard} encore")
-
-        dotest("", dict, "")
-
-        dotest("""
-""", dict, """
-""")
-        dotest(""" 
-""", dict, """ 
-""")
-    end
-
-    def test_1
-
-        dict = {}
-        dict['x'] = 'y'
-
-        dotest("${x}", dict, "y")
-        dotest("\\${x}", dict, "\\${x}")
-    end
-
-    def test_2
-
-        dict = {}
-        dict['A'] = 'a'
-        dict['B'] = 'b'
-        dict['ab'] = 'ok'
-
-        dotest("${${A}${B}}", dict, "ok")
-    end
-
-    #def test_3
-    #    assert_equal OpenWFE.unescape("toto and ${toto}"), "toto and ${toto}"
-    #    assert_equal OpenWFE.unescape("toto & \${toto}"), "toto & ${toto}"
-    #    assert_equal "toto & \\${toto}", "toto & ${toto}"
-    #    #assert_equal OpenWFE.unescape('toto & \${toto}'), "toto & ${toto}"
-    #end
-
-    def dotest (text, dict, target)
-        result = OpenWFE::dsub(text, dict)
-        #puts "..>#{text}<"
-        #puts "...->"
-        #puts "..>#{result}<"
-        #puts
-        assert_equal result, target
-    end
-end

data/test/kotoba_test.rb

@@ -1,72 +0,0 @@
-
-#
-# Testing OpenWFE (Kotoba)
-#
-# John Mettraux at openwfe.org
-#
-# Sun Mar 18 13:29:37 JST 2007
-#
-
-require 'test/unit'
-require 'openwfe/util/kotoba'
-
-#
-# testing misc things
-#
-
-class KotobaTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    def test_kotoba
-        t = Time.now
-        #puts t.to_f
-        
-        st = t.to_f * 1000 * 10
-        
-        #puts st
-        
-        st = Integer(st) % (10 * 1000 * 60 * 60)
-        #st = 28340469
-        
-        s = Kotoba::from_integer(st)
-        
-        st2 = Kotoba::to_integer(s)
-        s2 = Kotoba::from_integer(st2)
-        
-        #puts st
-        #puts s
-        
-        #puts st2
-        #puts s2
-
-        assert_equal s, s2
-        assert_equal st, st2
-
-        a = Kotoba::split(s)
-
-        assert_equal a.join, s
-
-        #puts Kotoba::to_integer("tunashima")
-        #puts Kotoba::to_integer("tsunashima")
-
-        assert Kotoba::is_kotoba_word("takeshi")
-
-        assert Kotoba::is_kotoba_word("tsunasima")
-        assert Kotoba::is_kotoba_word("tunashima")
-
-        assert (not Kotoba::is_kotoba_word("dsfadf"))
-        assert (not Kotoba::is_kotoba_word("takeshin"))
-    end
-end
-
-#require 'pp'
-#pp Kotoba::split(s2)
-#
-#puts Kotoba::is_kotoba_word("asdfadsg")
-#puts Kotoba::is_kotoba_word(s2)
-

data/test/lru_test.rb

@@ -1,79 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Sun Oct 29 16:18:25 JST 2006
-#
-
-require 'test/unit'
-require 'openwfe/util/lru'
-
-include OpenWFE
-
-
-#
-# testing the lru hash things
-#
-
-class LruTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    def test_lru_0
-
-        h = LruHash.new(3)
-
-        assert h.size == 0
-
-        h[:a] = "A"
-
-        assert h.size == 1
-
-        h[:b] = "B"
-        h[:c] = "C"
-
-        assert h.size == 3
-        assert h.ordered_keys == [ :a, :b, :c ]
-
-        h[:d] = "D"
-
-        assert h.size == 3
-        assert h.ordered_keys == [ :b, :c, :d ]
-        assert h[:a] == nil
-        assert h[:b] == "B"
-        assert h.ordered_keys == [ :c, :d, :b ]
-
-        h.delete(:d)
-
-        #require 'pp'
-        #puts "lru keys :"
-        #pp h.ordered_keys
-
-        assert h.size == 2
-        assert h.ordered_keys == [ :c, :b ]
-
-        h[:a] = "A"
-
-        assert h.size == 3
-        assert h.ordered_keys == [ :c, :b, :a ]
-
-        h[:d] = "D"
-
-
-        assert h.size == 3
-        assert h.ordered_keys == [ :b, :a, :d ]
-
-        assert h[:b] == "B"
-        assert h[:a] == "A"
-        assert h[:d] == "D"
-        assert h[:c] == nil
-        assert h.ordered_keys == [ :b, :a, :d ]
-    end
-
-end

data/test/safely_test.rb

@@ -1,84 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-
-require 'tempfile'
-
-require 'test/unit'
-require 'openwfe/util/safe'
-
-
-class SafelyTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    #def test_safely_0
-    #    assert_not_nil dotest("print ''", 4)
-    #    assert_not_nil dotest2("print ''", 4)
-    #    assert_nil dotest("print ''", 2)
-    #    assert_nil dotest2("print ''", 2)
-    #end
-
-    def test_safely_1
-
-        if OpenWFE::on_jruby?
-            puts
-            puts "skipping safe tests as JRuby doesn't support $SAFE levels..."
-            return
-        end
-
-        assert_not_nil dotest3(STDOUT, "self.print ''", 4)
-        assert_nil dotest3(STDOUT, "self.print ''", 2)
-
-        assert_not_nil dotest3(nil, "print ''", 4)
-        assert_nil dotest3(nil, "print ''", 2)
-    end
-
-    protected
-
-        #def dotest (code, level)
-        #    tf = Tempfile.new "safely_test_temp.rb"
-        #    tf.puts code
-        #    tf.close
-        #    e = nil
-        #    begin
-        #        OpenWFE::load_safely(tf.path, level)
-        #    rescue Exception => e
-        #    end
-        #    File.delete(tf.path)
-        #    e
-        #end
-
-        #def dotest2 (code, level)
-        #    begin
-        #        OpenWFE::load_eval_safely(code, level)
-        #    rescue Exception => e
-        #        return e
-        #    end
-        #    nil
-        #end
-
-        def dotest3 (instance, code, level)
-
-            begin
-                if instance
-                    OpenWFE::instance_eval_safely(instance, code, level)
-                else
-                    OpenWFE::eval_safely(code, level)
-                end
-            rescue Exception => e
-                return e
-            end
-
-            nil
-        end
-
-end
-