exerb 6.0.1

data/test/test-argv/test-argv.rb

@@ -0,0 +1,9 @@
+
+#==============================================================================#
+# $Id: test-argv.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p(ARGV)
+
+#==============================================================================#
+#==============================================================================#

data/test/test-argv/test-argv.ret

@@ -0,0 +1 @@
+["a", "b", "c", "d", "e"]

data/test/test-dollarzero.rb

@@ -0,0 +1,26 @@
+
+#==============================================================================#
+# $Id: test-dollarzero.rb,v 1.2 2005/04/15 09:42:52 yuya Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class DollarZeroTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-dollarzero'
+  end
+
+  def test_loadpath
+    ret1 = read_result(@name)
+    ret2 = execute_exe(@name)
+    assert_equal(ret1, ret2)
+  end
+
+end # DollarZeroTestCase
+
+#==============================================================================#
+#==============================================================================#

data/test/test-dollarzero/test-dollarzero.rb

@@ -0,0 +1,10 @@
+
+#==============================================================================#
+# $Id: test-dollarzero.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p($0)
+p(__FILE__)
+
+#==============================================================================#
+#==============================================================================#

data/test/test-dollarzero/test-dollarzero.ret

@@ -0,0 +1,2 @@
+"test-dollarzero.rb"
+"test-dollarzero.rb"

data/test/test-dot.rb

@@ -0,0 +1,26 @@
+
+#==============================================================================#
+# $Id: test-dot.rb,v 1.6 2005/04/15 09:42:52 yuya Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class DotTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-dot'
+  end
+
+  def test_dot
+    ret1 = read_result(@name)
+    ret2 = execute_exe(@name)
+    assert_equal(ret1, ret2)
+  end
+
+end # DotTestCase
+
+#==============================================================================#
+#==============================================================================#

data/test/test-dot/dot.dot.dot.rb

@@ -0,0 +1,9 @@
+
+#==============================================================================#
+# $Id: dot.dot.dot.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p([File.basename(__FILE__), $"])
+
+#==============================================================================#
+#==============================================================================#

data/test/test-dot/dot.dot.rb

@@ -0,0 +1,9 @@
+
+#==============================================================================#
+# $Id: dot.dot.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p([File.basename(__FILE__), $"])
+
+#==============================================================================#
+#==============================================================================#

data/test/test-dot/test-dot.rb

@@ -0,0 +1,13 @@
+
+#==============================================================================#
+# $Id: test-dot.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p([File.basename(__FILE__), $"])
+require 'dot.dot'
+p([File.basename(__FILE__), $"])
+require 'dot.dot.dot'
+p([File.basename(__FILE__), $"])
+
+#==============================================================================#
+#==============================================================================#

data/test/test-dot/test-dot.ret

@@ -0,0 +1,5 @@
+["test-dot.rb", ["enumerator.so"]]
+["dot.dot.rb", ["enumerator.so"]]
+["test-dot.rb", ["enumerator.so", "dot.dot.rb"]]
+["dot.dot.dot.rb", ["enumerator.so", "dot.dot.rb"]]
+["test-dot.rb", ["enumerator.so", "dot.dot.rb", "dot.dot.dot.rb"]]

data/test/test-exitcode.rb

@@ -0,0 +1,28 @@
+
+#==============================================================================#
+# $Id: test-exitcode.rb,v 1.3 2005/04/15 09:42:52 yuya Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class ExitCodeTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-exitcode'
+  end
+
+  def test_exitcode
+    if /mswin|mingw/ =~ RUBY_PLATFORM
+      assert_equal("10\n", execute_cmd("#{@name}\\#{@name}.exe || if errorlevel 10 echo 10"))
+    else
+      assert_equal("10\n", execute_cmd("#{@name}/#{@name}.exe || echo $?"))
+    end
+  end
+
+end # ExitCodeTestCase
+
+#==============================================================================#
+#==============================================================================#

data/test/test-exitcode/test-exitcode.rb

@@ -0,0 +1,9 @@
+
+#==============================================================================#
+# $Id: test-exitcode.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+exit(10)
+
+#==============================================================================#
+#==============================================================================#

data/test/test-kcode.rb

@@ -0,0 +1,43 @@
+
+#==============================================================================#
+# $Id: test-kcode.rb,v 1.6 2005/04/15 09:42:52 yuya Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class KcodeTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-kcode'
+  end
+
+  def setup_exe
+    create_exe(@name, 'none')
+    create_exe(@name, 'euc')
+    create_exe(@name, 'sjis')
+    create_exe(@name, 'utf8')
+  end
+
+  def test_none
+    assert_equal(read_file("#{@name}/none.ret"), execute_cmd("#{@name}/none.exe"))
+  end
+
+  def test_euc
+    assert_equal(read_file("#{@name}/euc.ret"), execute_cmd("#{@name}/euc.exe"))
+  end
+
+  def test_sjis
+    assert_equal(read_file("#{@name}/sjis.ret"), execute_cmd("#{@name}/sjis.exe"))
+  end
+
+  def test_utf8
+    assert_equal(read_file("#{@name}/utf8.ret"), execute_cmd("#{@name}/utf8.exe"))
+  end
+
+end # KcodeTestCase
+
+#==============================================================================#
+#==============================================================================#

data/test/test-kcode/euc.rb

@@ -0,0 +1,10 @@
+
+#==============================================================================#
+# $Id: euc.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p($KCODE)
+p("�ţգ�")
+
+#==============================================================================#
+#==============================================================================#

data/test/test-kcode/euc.ret

@@ -0,0 +1,2 @@
+"EUC"
+"�ţգ�"

data/test/test-kcode/none.rb

@@ -0,0 +1,10 @@
+
+#==============================================================================#
+# $Id: none.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p($KCODE)
+p("NONE")
+
+#==============================================================================#
+#==============================================================================#

data/test/test-kcode/none.ret

@@ -0,0 +1,2 @@
+"NONE"
+"NONE"

data/test/test-kcode/sjis.rb

@@ -0,0 +1,10 @@
+
+#==============================================================================#
+# $Id: sjis.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p($KCODE)
+p("�r�i�h�r")
+
+#==============================================================================#
+#==============================================================================#

data/test/test-kcode/sjis.ret

@@ -0,0 +1,2 @@
+"SJIS"
+"�r�i�h�r"

data/test/test-kcode/utf8.rb

@@ -0,0 +1,10 @@
+
+#==============================================================================#
+# $Id: utf8.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p($KCODE)
+p("ＵＴＦ－８")
+
+#==============================================================================#
+#==============================================================================#

data/test/test-kcode/utf8.ret

@@ -0,0 +1,2 @@
+"UTF8"
+"ＵＴＦ－８"

data/test/test-loadpath.rb

@@ -0,0 +1,24 @@
+
+#==============================================================================#
+# $Id: test-loadpath.rb,v 1.3 2005/04/15 09:42:52 yuya Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class LoadPathTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-loadpath'
+  end
+
+  def test_loadpath
+    assert_equal(%|["."]\n|, execute_exe(@name))
+  end
+
+end # LoadPathTestCase
+
+#==============================================================================#
+#==============================================================================#

data/test/test-loadpath/test-loadpath.rb

@@ -0,0 +1,9 @@
+
+#==============================================================================#
+# $Id: test-loadpath.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p($:)
+
+#==============================================================================#
+#==============================================================================#

data/test/test-nest.rb

@@ -0,0 +1,18 @@
+# $Id: test-nest.rb,v 1.1 2008/07/01 15:39:53 arton Exp $
+
+require 'testcase'
+
+class NestTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-nest'
+  end
+
+  def test_nest
+    ret1 = read_result(@name)
+    ret2 = execute_exe(@name)
+    assert_equal(ret1, ret2)
+  end
+
+end

data/test/test-nest/foo.rb

@@ -0,0 +1 @@
+require 'foo/foo'

data/test/test-nest/foo/bar.rb

@@ -0,0 +1,2 @@
+require 'foo/foo'
+puts 'hello world'

data/test/test-nest/foo/foo.rb

@@ -0,0 +1 @@
+require 'foo/bar'

data/test/test-nest/test-nest.rb

@@ -0,0 +1 @@
+require 'foo'

data/test/test-nest/test-nest.ret

@@ -0,0 +1 @@
+hello world

data/test/test-preload.rb

@@ -0,0 +1,24 @@
+
+#==============================================================================#
+# $Id: test-preload.rb,v 1.1 2009/09/07 18:17:37 arton Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class PreloadTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-preload'
+  end
+
+  def test_preload
+    assert_equal("10\n", execute_cmd("#{@name}\\#{@name}.exe || if errorlevel 10 echo 10"))
+  end
+
+end # PreloadTestCase
+
+#==============================================================================#
+#==============================================================================#

data/test/test-preload/test-preload.rb

@@ -0,0 +1,9 @@
+#==============================================================================#
+# $Id: test-preload.rb,v 1.2 2009/09/08 00:21:29 arton Exp $
+#==============================================================================#
+begin
+  require 'enumerator'
+rescue LoadError
+  exit(0)
+end  
+exit(10)

data/test/test-regexp.rb

@@ -0,0 +1,26 @@
+
+#==============================================================================#
+# $Id: test-regexp.rb,v 1.5 2005/04/15 09:42:52 yuya Exp $
+#==============================================================================#
+
+require 'testcase'
+
+#==============================================================================#
+
+class RegexpTestCase < Minitest::Test
+  include ExerbTestCase
+
+  def name2
+    return 'test-regexp'
+  end
+
+  def test_regexp
+    ret1 = read_result(@name)
+    ret2 = execute_exe(@name)
+    assert_equal(ret1, ret2)
+  end
+
+end # RegexpTestCase
+
+#==============================================================================#
+#==============================================================================#

data/test/test-regexp/test-regexp.rb

@@ -0,0 +1,23 @@
+
+#==============================================================================#
+# $Id: test-regexp.rb,v 1.2 2003/11/29 08:55:59 yuya Exp $
+#==============================================================================#
+
+p(/Foo/)
+p(/Foo/i)
+p(/Foo/e)
+p(/Foo/s)
+p(/Foo/m)
+
+p(/Foo Bar/i)
+p(/Foo\s+Bar/i)
+
+p(/Foo Bar/i =~ "Foo Bar")
+p(/Foo Bar/i =~ "Foo\tBar")
+p(/Foo Bar/i =~ "Foo\nBar")
+p(/Foo\s+Bar/i =~ "Foo Bar")
+p(/Foo\s+Bar/i =~ "Foo\tBar")
+p(/Foo\s+Bar/i =~ "Foo\nBar")
+
+#==============================================================================#
+#==============================================================================#

data/test/test-regexp/test-regexp.ret

@@ -0,0 +1,13 @@
+/Foo/
+/Foo/i
+/Foo/e
+/Foo/s
+/Foo/m
+/Foo Bar/i
+/Foo\s+Bar/i
+0
+nil
+nil
+0
+0
+0