compilation cache: tests now part of test suite

15 files changed, 194 insertions, 30 deletions

diff --git a/tests/rodfiles/aconv.nim b/tests/rodfiles/aconv.nim
new file mode 100644
index 000000000..ffd8f3648
--- /dev/null
+++ b/tests/rodfiles/aconv.nim
@@ -0,0 +1,9 @@
+discard """
+  output: "ugly conversion successful"
+"""
+
+import int2bool
+
+if 4:
+  echo "ugly conversion successful"
+
diff --git a/tests/rodfiles/amethods.nim b/tests/rodfiles/amethods.nim
new file mode 100644
index 000000000..c51d27d24
--- /dev/null
+++ b/tests/rodfiles/amethods.nim
@@ -0,0 +1,13 @@
+
+type
+  TBaseClass* = object of TObject
+
+proc newBaseClass*: ref TBaseClass =
+  new result
+  
+method echoType*(x: ref TBaseClass) =
+  echo "base class"
+
+proc echoAlias*(x: ref TBaseClass) =
+  echoType x
+
diff --git a/tests/rodfiles/bconv.nim b/tests/rodfiles/bconv.nim
new file mode 100644
index 000000000..2289a7f97
--- /dev/null
+++ b/tests/rodfiles/bconv.nim
@@ -0,0 +1,9 @@
+discard """
+  output: "ugly conversion successful 2"
+"""
+
+import int2bool
+
+if 4:
+  echo "ugly conversion successful 2"
+
diff --git a/tests/rodfiles/bmethods.nim b/tests/rodfiles/bmethods.nim
new file mode 100644
index 000000000..f665efa09
--- /dev/null
+++ b/tests/rodfiles/bmethods.nim
@@ -0,0 +1,30 @@
+discard """
+  output: '''
+derived class
+base class
+'''
+"""
+
+import amethods
+
+
+type
+  TDerivedClass* = object of TBaseClass
+
+proc newDerivedClass: ref TDerivedClass =
+  new result
+  
+method echoType*(x: ref TDerivedClass) =
+  echo "derived class"
+
+var b, d: ref TBaseClass
+
+b = newBaseClass()
+d = newDerivedClass()
+
+#b.echoType()
+#d.echoType()
+
+echoAlias d
+echoAlias b
+
diff --git a/tests/rodfiles/bmethods2.nim b/tests/rodfiles/bmethods2.nim
new file mode 100644
index 000000000..c4b9c37b6
--- /dev/null
+++ b/tests/rodfiles/bmethods2.nim
@@ -0,0 +1,30 @@
+discard """
+  output: '''
+derived class 2
+base class
+'''
+"""
+
+import amethods
+
+
+type
+  TDerivedClass* = object of TBaseClass
+
+proc newDerivedClass: ref TDerivedClass =
+  new result
+  
+method echoType*(x: ref TDerivedClass) =
+  echo "derived class 2"
+
+var b, d: ref TBaseClass
+
+b = newBaseClass()
+d = newDerivedClass()
+
+#b.echoType()
+#d.echoType()
+
+echoAlias d
+echoAlias b
+
diff --git a/tests/rodfiles/deada.nim b/tests/rodfiles/deada.nim
new file mode 100644
index 000000000..dca776640
--- /dev/null
+++ b/tests/rodfiles/deada.nim
@@ -0,0 +1,9 @@
+discard """
+  output: '''
+246
+'''
+"""
+
+import deadg, deadb
+
+
diff --git a/tests/rodfiles/deada2.nim b/tests/rodfiles/deada2.nim
new file mode 100644
index 000000000..ee8298371
--- /dev/null
+++ b/tests/rodfiles/deada2.nim
@@ -0,0 +1,13 @@
+discard """
+  output: '''
+246
+xyzabc
+'''
+"""
+
+import deadg, deadb
+
+# now add call to previously unused proc p2:
+echo p2("xyz", "abc")
+
+
diff --git a/tests/rodfiles/deadb.nim b/tests/rodfiles/deadb.nim
new file mode 100644
index 000000000..776a07ac7
--- /dev/null
+++ b/tests/rodfiles/deadb.nim
@@ -0,0 +1,7 @@
+
+import deadg
+
+
+echo p1(123, 123)
+
+
diff --git a/tests/rodfiles/deadg.nim b/tests/rodfiles/deadg.nim
new file mode 100644
index 000000000..97bfbed4f
--- /dev/null
+++ b/tests/rodfiles/deadg.nim
@@ -0,0 +1,10 @@
+
+{.deadCodeElim: on.}
+
+proc p1*(x, y: int): int =
+  result = x + y
+  
+proc p2*(x, y: string): string =
+  result = x & y
+  
+
diff --git a/tests/rodfiles/gtkex1.nim b/tests/rodfiles/gtkex1.nim
new file mode 100755
index 000000000..8f4db4a40
--- /dev/null
+++ b/tests/rodfiles/gtkex1.nim
@@ -0,0 +1,14 @@
+import 

+  cairo, glib2, gtk2

+

+proc destroy(widget: pWidget, data: pgpointer) {.cdecl.} =

+  main_quit()

+

+var

+  window: pWidget

+nimrod_init()

+window = window_new(WINDOW_TOPLEVEL)

+discard signal_connect(window, "destroy",

+                       SIGNAL_FUNC(gtkex1.destroy), nil)

+show(window)

+main()

diff --git a/tests/rodfiles/gtkex2.nim b/tests/rodfiles/gtkex2.nim
new file mode 100755
index 000000000..3d181ba12
--- /dev/null
+++ b/tests/rodfiles/gtkex2.nim
@@ -0,0 +1,22 @@
+
+import 
+  glib2, gtk2
+
+proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = 
+  main_quit()
+
+var 
+  window: PWidget
+  button: PWidget
+
+nimrod_init()
+window = window_new(WINDOW_TOPLEVEL)
+button = button_new("Click me")
+set_border_width(PContainer(Window), 5)
+add(PContainer(window), button)
+discard signal_connect(window, "destroy", 
+                           SIGNAL_FUNC(gtkex2.destroy), nil)
+show(button)
+show(window)
+main()
+
diff --git a/tests/rodfiles/hallo.nim b/tests/rodfiles/hallo.nim
new file mode 100755
index 000000000..ac45be9fa
--- /dev/null
+++ b/tests/rodfiles/hallo.nim
@@ -0,0 +1,6 @@
+discard """
+  output: "Hello World"
+"""
+
+echo "Hello World"
+
diff --git a/tests/rodfiles/hallo2.nim b/tests/rodfiles/hallo2.nim
new file mode 100644
index 000000000..a4b3957ec
--- /dev/null
+++ b/tests/rodfiles/hallo2.nim
@@ -0,0 +1,17 @@
+discard """
+  output: "Hello World"
+"""
+
+# Test incremental type information
+
+type
+  TNode = object {.pure.}
+    le, ri: ref TNode
+    data: string
+
+proc newNode(data: string): ref TNode =
+  new(result)
+  result.data = data
+  
+echo newNode("Hello World").data
+
diff --git a/tests/rodfiles/int2bool.nim b/tests/rodfiles/int2bool.nim
new file mode 100644
index 000000000..e6add9848
--- /dev/null
+++ b/tests/rodfiles/int2bool.nim
@@ -0,0 +1,5 @@
+
+converter uglyToBool*(x: int): bool =
+  result = x != 0
+
+
diff --git a/tests/rodfiles/tester.nim b/tests/rodfiles/tester.nim
deleted file mode 100644
index d2b5a1581..000000000
--- a/tests/rodfiles/tester.nim
+++ /dev/null
@@ -1,30 +0,0 @@
-#
-#
-#            Nimrod Tester
-#        (c) Copyright 2011 Andreas Rumpf
-#
-#    See the file "copying.txt", included in this
-#    distribution, for details about the copyright.
-#
-
-## This program tests Nimrod's ROD file mechanism.
-
-import
-  parseutils, strutils, pegs, os, osproc, streams, parsecfg, browsers, json,
-  marshal, cgi
-
-const
-  cmdTemplate = r"nimrod cc --hints:on $# $#"
-  resultsFile = "testresults.html"
-  jsonFile = "testresults.json"
-  Usage = "usage: tester reject|compile|examples|run|merge [nimrod options]"
-
-proc myExec(cmd: string): string =
-  result = osproc.execProcess(cmd)
-
-var
-  pegLineError = peg"{[^(]*} '(' {\d+} ', ' \d+ ') Error:' \s* {.*}"
-  pegOtherError = peg"'Error:' \s* {.*}"
-  pegSuccess = peg"'Hint: operation successful'.*"
-  pegOfInterest = pegLineError / pegOtherError / pegSuccess
-