Add more tests

Author: nicolasstucki

tests/run/i4947.check

@@ -1,2 +1,4 @@
-failed
-Test$.main(i4947.scala:9)
+track: Test$.main(i4947.scala:14)
+track: Test$.main(i4947.scala:14)
+main1: Test$.main(i4947.scala:15)
+main2: Test$.main(i4947.scala:16)

tests/run/i4947.scala

@@ -1,17 +1,19 @@
 object Test {
 
-  transparent def track[T](f: => T): T = f
+  transparent def track[T](f: => T): T = {
+    printStack("track")
+    printStack("track")
+    f
+  }
+
+  def printStack(tag: String): Unit = {
+    println(tag + ": "+ new Exception().getStackTrace().apply(1))
+  }
 
   def main(args: Array[String]): Unit = {
-    try {
-      track {
-        val a = 9
-        throw new Exception("failed")
-      }
-    } catch {
-      case ex: Throwable =>
-        println(ex.getMessage)
-        println(ex.getStackTrace.head)
+    track {
+      printStack("main1")
+      printStack("main2")
     }
   }
 

tests/run/i4947b.check

@@ -0,0 +1,4 @@
+track: Test$.main(Test_2.scala:3)
+track: Test$.main(Test_2.scala:3)
+main1: Test$.main(Test_2.scala:4)
+main2: Test$.main(Test_2.scala:5)

tests/run/i4947b/Lib_1.scala

@@ -0,0 +1,10 @@
+object Lib {
+  transparent def track[T](f: => T): T = {
+    printStack("track")
+    printStack("track")
+    f
+  }
+  def printStack(tag: String): Unit = {
+    println(tag + ": "+ new Exception().getStackTrace().apply(1))
+  }
+}

tests/run/i4947b/Test_2.scala

@@ -0,0 +1,9 @@
+object Test {
+  def main(args: Array[String]): Unit = {
+    Lib.track {
+      Lib.printStack("main1")
+      Lib.printStack("main2")
+    }
+  }
+
+}