diff options
Diffstat (limited to 'test/disabled/run')
28 files changed, 0 insertions, 1688 deletions
diff --git a/test/disabled/run/applet-prop.scala b/test/disabled/run/applet-prop.scala deleted file mode 100644 index 9c29dfd979..0000000000 --- a/test/disabled/run/applet-prop.scala +++ /dev/null @@ -1,40 +0,0 @@ -import scala.tools.partest._ -import java.util.PropertyPermission -import java.security.AccessControlException - -class S extends javax.swing.JApplet { - scala.collection.Traversable -} - -object Test extends SecurityTest { - val s = new S - // lazy val TestKey = sys.SystemProperties.noTraceSupression.key - // def hitPerm() = new Throwable with scala.util.control.ControlThrowable { } - // - // var throwing = false - // override def propertyCheck(p: PropertyPermission): Unit = { - // if (p.getName == TestKey) { - // println("I see " + p.getName) - // if (throwing) - // throwIt(p) - // } - // } - // - // hitPerm() - // securityOn() - // hitPerm() - // - // throwing = true - // - // val caught = - // try { hitPerm() ; false } - // catch { case _: AccessControlException => true } - // - // assert(caught, "Should have incurred exception.") - // throwing = false - // hitPerm() - // - // val xs = new Traversable[Int] { def foreach[U](f: Int => U) = 1 to 3 foreach f } - // xs foreach println -} - diff --git a/test/disabled/run/coder2/Coder2.scala b/test/disabled/run/coder2/Coder2.scala deleted file mode 100644 index c1ec70b842..0000000000 --- a/test/disabled/run/coder2/Coder2.scala +++ /dev/null @@ -1,212 +0,0 @@ - - -import collection.immutable._ -import collection.parallel._//immutable._ - - -class SeqCoder(words: List[String]) { - - private val m = Map( - '2' -> "ABC", '3' -> "DEF", '4' -> "GHI", '5' -> "JKL", - '6' -> "MNO", '7' -> "PQRS", '8' -> "TUV", '9' -> "WXYZ") - - /** Invert the mnemonics map to give a map from chars 'A' ... 'Z' to '2' ... '9' */ - private val charCode: Map[Char, Char] = - for ((digit, letters) <- m; letter <- letters) yield letter -> digit - - /** Maps a word to the digit string it represents, - * e.g. `Java` -> `5282` */ - private def wordCode(word: String): String = word.toUpperCase map charCode - - /** A map from digit strings to the words that represent - * them e.g. `5282` -> List(`Java`, `Kata`, `Lava`, ...) - */ - val wordsForNum: Map[String, Seq[String]] = - (words groupBy wordCode).map(t => (t._1, t._2.toSeq)) withDefaultValue Seq() - - val memo = collection.mutable.Map[String, Set[Seq[String]]]("" -> Set(Seq())) - val wfnmemo = collection.mutable.Map[(String, String), Set[Seq[String]]]() - val subsmemo = collection.mutable.Map[(String, String, String), Set[Seq[String]]]() - - /** All ways to encode a number as a list of words */ - def encode(number: String): Set[Seq[String]] = - if (number.isEmpty) Set(Seq()) - else { - val splits = (1 to number.length).toSet - // for { - // split <- splits - // word <- wordsForNum(number take split) - // rest <- encode(number drop split) - // } yield word :: rest - val r = splits.flatMap(split => { - val wfn = wordsForNum(number take split).flatMap(word => { - val subs = encode(number drop split) - val subsmapped = subs.map(rest => word +: rest) - subsmemo += (number, number drop split, word) -> subsmapped - subsmapped - }) - wfnmemo += (number, number take split) -> wfn.toSet - wfn - }) - memo += number -> r - r - } - - /** Maps a number to a list of all word phrases that can - * represent it */ - def translate(number: String): Set[String] = encode(number) map (_ mkString " ") - - def ??? : Nothing = throw new UnsupportedOperationException -} - -class ParCoder(words: List[String]) { - - private val m = Map( - '2' -> "ABC", '3' -> "DEF", '4' -> "GHI", '5' -> "JKL", - '6' -> "MNO", '7' -> "PQRS", '8' -> "TUV", '9' -> "WXYZ") - - /** Invert the mnemnonics map to give a map from chars 'A' ... 'Z' to '2' ... '9' */ - private val charCode: Map[Char, Char] = - for ((digit, letters) <- m; letter <- letters) yield letter -> digit - - /** Maps a word to the digit string it represents, - * e.g. `Java` -> `5282` */ - private def wordCode(word: String): String = word.toUpperCase map charCode - - /** A map from digit strings to the words that represent - * them e.g. `5282` -> List(`Java`, `Kata`, `Lava`, ...) - */ - val wordsForNum: Map[String, ParSeq[String]] = - (words groupBy wordCode).map(t => (t._1, t._2.toSeq.par)) withDefaultValue ParSeq() - - val comparison = new SeqCoder(words) - - /** All ways to encode a number as a list of words */ - def encode(number: String): ParSet[ParSeq[String]] = - if (number.isEmpty) ParSet(ParSeq()) - else { - val splits = (1 to number.length).toSet.par - // for { - // split <- splits - // word <- wordsForNum(number take split) - // rest <- encode(number drop split) - // } yield word :: rest - val r = splits.flatMap(split => { - val wfn = wordsForNum(number take split).flatMap(word => { - val subs = encode(number drop split) - assertNumber(number drop split, subs) - val subsmapped = subs.map(rest => word +: rest) - assertSubs(number, number drop split, word, subsmapped) - subsmapped - }) - assertWfn(number, number take split, number drop split, wfn) - wfn - }) - assertNumber(number, r) - r - } - - def assertSubs(num: String, subsfrom: String, word: String, r: ParSet[ParSeq[String]]) { - val m = comparison.subsmemo((num, subsfrom, word)) - if (r != m) { - println("map for number from subs and word: " + num + ", " + subsfrom + ", " + word) - println("parset: " + r.size) - println("memoed: " + m.size) - error("r != m") - } - } - - def assertWfn(num: String, split: String, dropped: String, r: ParSeq[ParSeq[String]]) { - val m = comparison.wfnmemo((num, split)) - val rs = r.toSet.par - val words: ParSeq[String] = wordsForNum(split) - if (rs != m) { - println("flatmap for number with split: " + num + ", " + split) - println("words for: " + words) - println("parset: " + rs.size) - println("memoed: " + m.size) - println("retrying...") - for (i <- 0 until 30) { - val r2: ParSeq[ParSeq[String]] = words.flatMap(word => { - val subs: ParSet[ParSeq[String]] = encode(dropped) - println("subs size for '" + dropped + "': " + subs.size) - val subsmapped: ParSet[ParSeq[String]] = subs.map(rest => word +: rest) - println("map size: " + subsmapped.size) - subsmapped.toList - }) - println(i + ") retry size: " + r2.size) - } - error("rs != m") - } - } - - def assertNumber(num: String, r: ParSet[ParSeq[String]]) { - val m = comparison.memo(num) - if (r != m) { - println("for number: " + num) - println("parset: " + r.size) - println("memoed: " + m.size) - error("r != m") - } - } - - /** Maps a number to a list of all word phrases that can - * represent it */ - def translate(number: String): ParSet[String] = { - comparison.translate(number) - encode(number) map (_.seq mkString " ") - } - - def ??? : Nothing = throw new UnsupportedOperationException -} - - -/** Test code */ -object Test { - val code = "2328437472947"//36262633"//837976"//"6477323986225453446" - //val code = "747294736262633" - - /* */ - def main(args : Array[String]) { - for (i <- 0 until 10) { - val seqcoder = new SeqCoder(Dictionary.wordlist) - val sts = seqcoder.translate(code) - //println("Translation check: " + st.size) - - val parcoder = new ParCoder(Dictionary.wordlist) - val pts = parcoder.translate(code) - //println("Translation check: " + pt.size) - - val st = sts.toList.sorted - val pt = pts.toList.sorted - if (st.size != pt.size) { - val zipped = st.zip(pt) - val ind = zipped.indexWhere { case (a, b) => a != b } - val sliced = zipped.slice(ind - 10, ind + 10) - //println(sliced.map(t => t._1 + "\n" + t._2 + "\n--------").mkString("\n")) - //println(i + ") seq vs par: " + st.size + " vs " + pt.size) - } - if (st != pt) { - val zipped = (st.toList.sorted zip pt.toList.sorted); - val diffp = zipped indexWhere { case (x, y) => x != y } - //println(zipped/*.slice(diffp - 10, diffp + 10)*/ mkString ("\n")) - //println((st.toList.sorted zip pt.toList.sorted) map { case (x, y) => (x == y) } reduceLeft(_ && _)) - } - assert(st == pt) - } - } -} - - - - - - - - - - - - - - diff --git a/test/disabled/run/coder2/Dictionary.scala b/test/disabled/run/coder2/Dictionary.scala deleted file mode 100644 index 7b354b9aa8..0000000000 --- a/test/disabled/run/coder2/Dictionary.scala +++ /dev/null @@ -1,10 +0,0 @@ - - - - - -object Dictionary { - val wordlist = wordlines.split(System.getProperty("line.separator")).filter(_.trim != "").toList - val wordarray = wordlist.toArray - def wordlines = scala.io.Source.fromFile("test/files/run/coder/dict.txt").mkString -} diff --git a/test/disabled/run/docgenerator.check b/test/disabled/run/docgenerator.check deleted file mode 100644 index dbb7eeed28..0000000000 --- a/test/disabled/run/docgenerator.check +++ /dev/null @@ -1,177 +0,0 @@ -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>List of all classes and objects</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <body onload="init()"><div><div class="kinds" id="Classes">Classes</div><ul class="list"> - <li id="Classes_C"><a href="examples/C0.html" target="contentFrame">C0</a></li> -<li><a href="examples/C0.C1_Protected.html" target="contentFrame">C0.C1_Protected</a></li> -<li><a href="examples/C0.C1_Public.html" target="contentFrame">C0.C1_Public</a></li> -<li><a href="examples/C0_Protected.html" target="contentFrame">C0_Protected</a></li> -<li><a href="examples/C0_Protected.C1_Protected.html" target="contentFrame">C0_Protected.C1_Protected</a></li> -<li><a href="examples/C0_Protected.C1_Public.html" target="contentFrame">C0_Protected.C1_Public</a></li> - </ul> -<div class="kinds" id="Objects">Objects</div><ul class="list"> - <li id="Objects_o"><a href="examples/obj0$object.html" target="contentFrame">obj0</a></li> -<li><a href="examples/obj0$object.obj1_Protected$object.html" target="contentFrame">obj0.obj1_Protected</a></li> -<li><a href="examples/obj0$object.obj1_Public$object.html" target="contentFrame">obj0.obj1_Public</a></li> -<li><a href="examples/obj0_Protected$object.html" target="contentFrame">obj0_Protected</a></li> -<li><a href="examples/obj0_Protected$object.obj1_Protected$object.html" target="contentFrame">obj0_Protected.obj1_Protected</a></li> -<li><a href="examples/obj0_Protected$object.obj1_Public$object.html" target="contentFrame">obj0_Protected.obj1_Public</a></li> - </ul></div></body> - </html> -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>Scala 2</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <frameset cols="25%, 75%"> - <frameset rows="50%, 28, 50%"> - <frame src="modules.html" name="modulesFrame"></frame> - <frame src="nav-classes.html" name="navigationFrame"></frame> - <frame src="all-classes.html" name="classesFrame"></frame> - </frameset> - <frame src="root-content.html" name="contentFrame"></frame> - </frameset> - </html> - -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>List of all classes and objects</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <body onload="init()"><div><div class="kinds" id="Classes">Classes</div><ul class="list"> - <li id="Classes_C"><a href="examples/C0.html" target="contentFrame">C0</a></li> -<li><a href="examples/C0.C1_Public.html" target="contentFrame">C0.C1_Public</a></li> - </ul> -<div class="kinds" id="Objects">Objects</div><ul class="list"> - <li id="Objects_o"><a href="examples/obj0$object.html" target="contentFrame">obj0</a></li> -<li><a href="examples/obj0$object.obj1_Public$object.html" target="contentFrame">obj0.obj1_Public</a></li> - </ul></div></body> - </html> -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>Scala 2</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <frameset cols="25%, 75%"> - <frameset rows="50%, 28, 50%"> - <frame src="modules.html" name="modulesFrame"></frame> - <frame src="nav-classes.html" name="navigationFrame"></frame> - <frame src="all-classes.html" name="classesFrame"></frame> - </frameset> - <frame src="root-content.html" name="contentFrame"></frame> - </frameset> - </html> - -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>List of all classes and objects</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <body onload="init()"><div><div class="kinds" id="Classes">Classes</div><ul class="list"> - <li id="Classes_C"><a href="examples/C0.html" target="contentFrame">C0</a></li> -<li><a href="examples/C0.C1_Protected.html" target="contentFrame">C0.C1_Protected</a></li> -<li><a href="examples/C0.C1_Public.html" target="contentFrame">C0.C1_Public</a></li> -<li><a href="examples/C0_Protected.html" target="contentFrame">C0_Protected</a></li> -<li><a href="examples/C0_Protected.C1_Protected.html" target="contentFrame">C0_Protected.C1_Protected</a></li> -<li><a href="examples/C0_Protected.C1_Public.html" target="contentFrame">C0_Protected.C1_Public</a></li> - </ul> -<div class="kinds" id="Objects">Objects</div><ul class="list"> - <li id="Objects_o"><a href="examples/obj0$object.html" target="contentFrame">obj0</a></li> -<li><a href="examples/obj0$object.obj1_Protected$object.html" target="contentFrame">obj0.obj1_Protected</a></li> -<li><a href="examples/obj0$object.obj1_Public$object.html" target="contentFrame">obj0.obj1_Public</a></li> -<li><a href="examples/obj0_Protected$object.html" target="contentFrame">obj0_Protected</a></li> -<li><a href="examples/obj0_Protected$object.obj1_Protected$object.html" target="contentFrame">obj0_Protected.obj1_Protected</a></li> -<li><a href="examples/obj0_Protected$object.obj1_Public$object.html" target="contentFrame">obj0_Protected.obj1_Public</a></li> - </ul></div></body> - </html> -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>Scala 2</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <frameset cols="25%, 75%"> - <frameset rows="50%, 28, 50%"> - <frame src="modules.html" name="modulesFrame"></frame> - <frame src="nav-classes.html" name="navigationFrame"></frame> - <frame src="all-classes.html" name="classesFrame"></frame> - </frameset> - <frame src="root-content.html" name="contentFrame"></frame> - </frameset> - </html> - -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>List of all classes and objects</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <body onload="init()"><div><div class="kinds" id="Classes">Classes</div><ul class="list"> - <li id="Classes_C"><a href="examples/C0.html" target="contentFrame">C0</a></li> -<li><a href="examples/C0.C1_Private.html" target="contentFrame">C0.C1_Private</a></li> -<li><a href="examples/C0.C1_Protected.html" target="contentFrame">C0.C1_Protected</a></li> -<li><a href="examples/C0.C1_Public.html" target="contentFrame">C0.C1_Public</a></li> -<li><a href="examples/C0_Protected.html" target="contentFrame">C0_Protected</a></li> -<li><a href="examples/C0_Protected.C1_Private.html" target="contentFrame">C0_Protected.C1_Private</a></li> -<li><a href="examples/C0_Protected.C1_Protected.html" target="contentFrame">C0_Protected.C1_Protected</a></li> -<li><a href="examples/C0_Protected.C1_Public.html" target="contentFrame">C0_Protected.C1_Public</a></li> - </ul> -<div class="kinds" id="Objects">Objects</div><ul class="list"> - <li id="Objects_o"><a href="examples/obj0$object.html" target="contentFrame">obj0</a></li> -<li><a href="examples/obj0$object.obj1_Private$object.html" target="contentFrame">obj0.obj1_Private</a></li> -<li><a href="examples/obj0$object.obj1_Protected$object.html" target="contentFrame">obj0.obj1_Protected</a></li> -<li><a href="examples/obj0$object.obj1_Public$object.html" target="contentFrame">obj0.obj1_Public</a></li> -<li><a href="examples/obj0_Protected$object.html" target="contentFrame">obj0_Protected</a></li> -<li><a href="examples/obj0_Protected$object.obj1_Private$object.html" target="contentFrame">obj0_Protected.obj1_Private</a></li> -<li><a href="examples/obj0_Protected$object.obj1_Protected$object.html" target="contentFrame">obj0_Protected.obj1_Protected</a></li> -<li><a href="examples/obj0_Protected$object.obj1_Public$object.html" target="contentFrame">obj0_Protected.obj1_Public</a></li> - </ul></div></body> - </html> -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>Scala 2</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <frameset cols="25%, 75%"> - <frameset rows="50%, 28, 50%"> - <frame src="modules.html" name="modulesFrame"></frame> - <frame src="nav-classes.html" name="navigationFrame"></frame> - <frame src="all-classes.html" name="classesFrame"></frame> - </frameset> - <frame src="root-content.html" name="contentFrame"></frame> - </frameset> - </html> - -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>List of all classes and objects</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <body onload="init()"><div><div class="kinds" id="Classes">Classes</div><ul class="list"> - <li id="Classes_B"><a href="annots/Bar.html" target="contentFrame">Bar</a></li> -<li><a href="annots/Bar1.html" target="contentFrame">Bar1</a></li> -<li><a href="annots/Bar2.html" target="contentFrame">Bar2</a></li> - </ul> -<div class="kinds" id="Objects">Objects</div><ul class="list"> - <li id="Objects_B"><a href="annots/Bar1.Foo11$object.html" target="contentFrame">Bar1.Foo11</a></li> -<li id="Objects_F"><a href="annots/Foo$object.html" target="contentFrame">Foo</a></li> -<li><a href="annots/Foo1$object.html" target="contentFrame">Foo1</a></li> -<li><a href="annots/Foo1$object.Foo11$object.html" target="contentFrame">Foo1.Foo11</a></li> -<li><a href="annots/Foo2$object.html" target="contentFrame">Foo2</a></li> - </ul></div></body> - </html> -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html> - <head><title>Scala 2</title> - <meta http-equiv="content-type" content="text/html; charset=UTF8"></meta><meta content="scaladoc" name="generator"></meta><link href="style.css" type="text/css" rel="stylesheet"></link><script type="text/javascript" src="script.js"></script> - </head> - <frameset cols="25%, 75%"> - <frameset rows="50%, 28, 50%"> - <frame src="modules.html" name="modulesFrame"></frame> - <frame src="nav-classes.html" name="navigationFrame"></frame> - <frame src="all-classes.html" name="classesFrame"></frame> - </frameset> - <frame src="root-content.html" name="contentFrame"></frame> - </frameset> - </html> - diff --git a/test/disabled/run/docgenerator.scala b/test/disabled/run/docgenerator.scala deleted file mode 100644 index ebbc869fb1..0000000000 --- a/test/disabled/run/docgenerator.scala +++ /dev/null @@ -1,295 +0,0 @@ -object Test { - import java.io.{File, FileReader, FileWriter} - - /** Tests the generation of the HTML documentation for some Scala - * code samples (see value 'code' below) with different scaladoc - * options (currently -access:<value>). - * - * @author Stephane Micheloud - */ - def main(args: Array[String]) { - // overwrites value of UrlContext.generator in file DocUtil.scala - System.setProperty("doc.generator", "scaladoc") - var dirname = System.getProperty("partest.output") - if (dirname eq null) dirname = System.getProperty("java.io.tmpdir") - val tmpDir = new File(dirname) - tmpDir.mkdirs() - test1(tmpDir) - test2(tmpDir) - } - - private def test1(tmpDir: File) { - def testOptions(inFile: File, outDirName: String, opts: String*) { - val outDir = createDir(tmpDir, outDirName) - val args = Array.concat(Array("-d", outDir.getPath, inFile.getPath), opts.toArray:Array[String]) - if (MainDoc.main0(args)) { - for (name <- List("all-classes.html", "index.html")) { - val outFile = new File(outDir, name) - val n = outFile.length.toInt - val in = new FileReader(outFile) - val cbuf = new Array[Char](n) - in.read(cbuf, 0, n) - println(new String(cbuf)) - } - println - } - } - val inFile = { - val f = new File(tmpDir.getPath, "docgenerator1.scala") - val writer = new FileWriter(f) - writer.write(code1, 0, code1.length) - writer.close - f - } - testOptions(inFile, "test1", "") // none (default is -access:protected) - testOptions(inFile, "test2", "-access:public") - testOptions(inFile, "test3", "-access:protected") - testOptions(inFile, "test4", "-access:private") - } - - private def test2(tmpDir: File) { - val code =""" -package annots - -@deprecated("msg") -object Foo { val x = 0 } - -@deprecated("msg") -class Bar { val x = 1 } - -object Foo1 { - @deprecated("msg") - object Foo11 { val x = 3 } -} - -class Bar1 { - @deprecated("msg") - object Foo11 { val x = 2 } -} - -class Bar2 { - def bar { - @deprecated("msg") - object Foo21 { val x = 4 } - () - } -} - -object Foo2 { - def foo { - @deprecated("msg") - object Foo21 { val x = 5 } - () - } -} -""" - val inFile = { - val f = new File(tmpDir.getPath, "docgenerator2.scala") - val writer = new FileWriter(f) - writer.write(code, 0, code.length) - writer.close - f - } - val outDir = createDir(tmpDir, "annots1") - val args = Array.concat(Array("-d", outDir.getPath, inFile.getPath)) - if (MainDoc.main0(args)) { - for (name <- List("all-classes.html", "index.html")) { - val outFile = new File(outDir, name) - val n = outFile.length.toInt - val in = new FileReader(outFile) - val cbuf = new Array[Char](n) - in.read(cbuf, 0, n) - println(new String(cbuf)) - } - println - } - } - - object MainDoc { - import scala.tools.nsc._ - import scala.tools.nsc.doc.DefaultDocDriver - import scala.tools.nsc.reporters.ConsoleReporter - def error(msg: String) { Console.err.println(msg) } - var reporter: ConsoleReporter = _ - def process(args: Array[String]) { - val docSettings = new scala.tools.nsc.doc.Settings(error) - // when running that compiler, give it a scala-library to the classpath - docSettings.classpath.value = System.getProperty("java.class.path") - reporter = new ConsoleReporter(docSettings) - val command = new CompilerCommand(args.toList, docSettings) - try { - object compiler extends Global(command.settings, reporter) { - override protected def computeInternalPhases() : Unit = { - phasesSet += syntaxAnalyzer - phasesSet += analyzer.namerFactory - phasesSet += analyzer.typerFactory - } - override def forScaladoc = true - } - if (reporter.hasErrors) { - reporter.flush() - return - } - val run = new compiler.Run - run compile command.files - object generator extends DefaultDocDriver { - lazy val global: compiler.type = compiler - lazy val settings = docSettings - } - generator process run.units - reporter.printSummary() - } catch { - case ex @ FatalError(msg) => - if (command.settings.debug.value) - ex.printStackTrace(); - reporter.error(null, "fatal error: " + msg) - } - } - def main(args: Array[String]) { - process(args) - exit(if (reporter.hasErrors) 1 else 0) - } - // main returning a status (no exit code) - def main0(args: Array[String]): Boolean = { - process(args) - !reporter.hasErrors - } - } - - private def createDir(parent: File, dirname: String): File = { - val outDir = new File(parent, dirname) - outDir.mkdir - outDir - } - - private val code1 = """ -package examples - -abstract class C0 { - def foo_public - protected def foo_protected - private def foo_private {} - class C1_Public { - val x_public = () - protected val x_protected = () - private val x_private = () - } - protected class C1_Protected { - val x_public = () - protected val x_protected = () - private val x_private = () - } - private class C1_Private { - val x_public = () - protected val x_protected = () - private val x_private = () - } -} - -protected abstract class C0_Protected { - def foo_public - protected def foo_protected - private def foo_private {} - class C1_Public { - val x_public = () - protected val x_protected = () - private val x_private = () - } - protected class C1_Protected { - val x_public = () - protected val x_protected = () - private val x_private = () - } - private class C1_Private { - val x_public = () - protected val x_protected = () - private val x_private = () - } -} - -private abstract class C0_Private { - def foo_public - protected def foo_protected - private def foo_private {} - class C1_Public { - val x_public = () - protected val x_protected = () - private val x_private = () - } - protected class C1_Protected { - val x_public = () - protected val x_protected = () - private val x_private = () - } - private class C1_Private { - val x_public = () - protected val x_protected = () - private val x_private = () - } -} - - -object obj0 { - def bar_public {} - protected def bar_protected {} - private def bar_private {} - object obj1_Public { - val x_public = () - protected val x_protected = () - private val x_private = () - } - protected object obj1_Protected { - val x_public = () - protected val x_protected = () - private val x_private = () - } - private object obj1_Private { - val x_public = () - protected val x_protected = () - private val x_private = () - } -} - -protected object obj0_Protected { - def bar_public {} - protected def bar_protected {} - private def bar_private {} - object obj1_Public { - val x_public = () - protected val x_protected = () - private val x_private = () - } - protected object obj1_Protected { - val x_public = () - protected val x_protected = () - private val x_private = () - } - private object obj1_Private { - val x_public = () - protected val x_protected = () - private val x_private = () - } -} - -private object obj0_Private { - def bar_public {} - protected def bar_protected {} - private def bar_private {} - object obj1_Public { - val x_public = () - protected val x_protected = () - private val x_private = () - } - protected object obj1_Protected { - val x_public = () - protected val x_protected = () - private val x_private = () - } - private object obj1_Private { - val x_public = () - protected val x_protected = () - private val x_private = () - } -} -""" -} diff --git a/test/disabled/run/javap.check b/test/disabled/run/javap.check deleted file mode 100644 index 1985fd611d..0000000000 --- a/test/disabled/run/javap.check +++ /dev/null @@ -1,18 +0,0 @@ -Arguments: '' -public class Bippy extends java.lang.Object implements scala.ScalaObject{ -public scala.collection.immutable.List f(scala.collection.immutable.List); -public Bippy(); -Arguments: '-v' -public class Bippy extends java.lang.Object implements scala.ScalaObject -public #28= #25 of #27; //Bippy=class Bippy of class -public scala.collection.immutable.List f(scala.collection.immutable.List); -public Bippy(); -Arguments: '-s' -public class Bippy extends java.lang.Object implements scala.ScalaObject{ -public scala.collection.immutable.List f(scala.collection.immutable.List); -public Bippy(); -Arguments: '-private' -public class Bippy extends java.lang.Object implements scala.ScalaObject{ -private int privateMethod(); -public scala.collection.immutable.List f(scala.collection.immutable.List); -public Bippy(); diff --git a/test/disabled/run/javap.scala b/test/disabled/run/javap.scala deleted file mode 100644 index 3704d64423..0000000000 --- a/test/disabled/run/javap.scala +++ /dev/null @@ -1,24 +0,0 @@ -import scala.tools.nsc.interpreter._ - -object Test { - def run(args: String) = { - println("Arguments: '" + args + "'") - ILoop.run(""" - |class Bippy { - | private def privateMethod = 5 - | def f[T <: List[_]](x: T): T = x - |} - | - |:javap %s Bippy - """.stripMargin.format(args)).lines map (_.trim) filter { line => - (line startsWith "private") || (line startsWith "public") - } foreach println - } - - def main(args: Array[String]): Unit = { - run("") - run("-v") - run("-s") - run("-private") - } -} diff --git a/test/disabled/run/lisp.check b/test/disabled/run/lisp.check deleted file mode 100644 index 64053f26d0..0000000000 --- a/test/disabled/run/lisp.check +++ /dev/null @@ -1,26 +0,0 @@ -(lambda (x) (+ (* x x) 1)) -(lambda (x) (+ (* x x) 1)) - -( '(1 2 3)) = (1 2 3) -(car '(1 2 3)) = 1 -(cdr '(1 2 3)) = (2 3) -(null? '(2 3)) = 0 -(null? '()) = 1 - -faculty(10) = 3628800 -faculty(10) = 3628800 -foobar = ("a" "bc" "def" "z") - -List('lambda, List('x), List('+, List('*, 'x, 'x), 1)) -(lambda (x) (+ (* x x) 1)) - -( '(1 2 3)) = (1 2 3) -(car '(1 2 3)) = 1 -(cdr '(1 2 3)) = (2 3) -(null? '(2 3)) = 0 -(null? '()) = 1 - -faculty(10) = 3628800 -faculty(10) = 3628800 -foobar = ("a" "bc" "def" "z") - diff --git a/test/disabled/run/lisp.scala b/test/disabled/run/lisp.scala deleted file mode 100644 index 73f24da757..0000000000 --- a/test/disabled/run/lisp.scala +++ /dev/null @@ -1,518 +0,0 @@ -//############################################################################ -// Lisp interpreter -//############################################################################ - -//############################################################################ -// Lisp Scanner - -class LispTokenizer(s: String) extends Iterator[String] { - private var i = 0; - private def isDelimiter(ch: Char) = ch <= ' ' || ch == '(' || ch == ')' - def hasNext: Boolean = { - while (i < s.length() && s.charAt(i) <= ' ') i += 1 - i < s.length() - } - def next: String = - if (hasNext) { - val start = i - if (isDelimiter(s charAt i)) i += 1 - else - do i = i + 1 - while (!isDelimiter(s charAt i)) - s.substring(start, i) - } else sys.error("premature end of string") -} - -//############################################################################ -// Lisp Interface - -trait Lisp { - type Data - - def string2lisp(s: String): Data - def lisp2string(s: Data): String - - def evaluate(d: Data): Data - // !!! def evaluate(s: String): Data = evaluate(string2lisp(s)) - def evaluate(s: String): Data -} - -//############################################################################ -// Lisp Implementation Using Case Classes - -object LispCaseClasses extends Lisp { - - import List.range - - trait Data { - def elemsToString(): String = toString(); - } - case class CONS(car: Data, cdr: Data) extends Data { - override def toString() = "(" + elemsToString() + ")"; - override def elemsToString() = car.toString() + (cdr match { - case NIL() => "" - case _ => " " + cdr.elemsToString(); - }) - } - case class NIL() extends Data { // !!! use case object - override def toString() = "()"; - } - case class SYM(name: String) extends Data { - override def toString() = name; - } - case class NUM(x: Int) extends Data { - override def toString() = x.toString(); - } - case class STR(x: String) extends Data { - override def toString() = "\"" + x + "\""; - } - case class FUN(f: List[Data] => Data) extends Data { - override def toString() = "<fn>"; - } - - def list(): Data = - NIL(); - def list(x0: Data): Data = - CONS(x0, NIL()); - def list(x0: Data, x1: Data): Data = - CONS(x0, list(x1)); - def list(x0: Data, x1: Data, x2: Data): Data = - CONS(x0, list(x1, x2)); - def list(x0: Data, x1: Data, x2: Data, x3: Data): Data = - CONS(x0, list(x1, x2, x3)); - def list(x0: Data, x1: Data, x2: Data, x3: Data, x4: Data): Data = - CONS(x0, list(x1, x2, x3, x4)); - def list(x0: Data, x1: Data, x2: Data, x3: Data, x4: Data, x5: Data): Data = - CONS(x0, list(x1, x2, x3, x4, x5)); - def list(x0: Data, x1: Data, x2: Data, x3: Data, x4: Data, x5: Data, - x6: Data): Data = - CONS(x0, list(x1, x2, x3, x4, x5, x6)); - def list(x0: Data, x1: Data, x2: Data, x3: Data, x4: Data, x5: Data, - x6: Data, x7: Data): Data = - CONS(x0, list(x1, x2, x3, x4, x5, x6, x7)); - def list(x0: Data, x1: Data, x2: Data, x3: Data, x4: Data, x5: Data, - x6: Data, x7: Data, x8: Data): Data = - CONS(x0, list(x1, x2, x3, x4, x5, x6, x7, x8)); - def list(x0: Data, x1: Data, x2: Data, x3: Data, x4: Data, x5: Data, - x6: Data, x7: Data, x8: Data, x9: Data): Data = - CONS(x0, list(x1, x2, x3, x4, x5, x6, x7, x8, x9)); - - var curexp: Data = null - var trace: Boolean = false - var indent: Int = 0 - - def lispError[a](msg: String): a = - sys.error("error: " + msg + "\n" + curexp); - - trait Environment { - def lookup(n: String): Data; - def extendRec(name: String, expr: Environment => Data) = - new Environment { - def lookup(n: String): Data = - if (n == name) expr(this) else Environment.this.lookup(n); - } - def extend(name: String, v: Data) = extendRec(name, (env1 => v)); - } - val EmptyEnvironment = new Environment { - def lookup(n: String): Data = lispError("undefined: " + n); - } - - def toList(x: Data): List[Data] = x match { - case NIL() => List() - case CONS(y, ys) => y :: toList(ys) - case _ => lispError("malformed list: " + x); - } - - def toBoolean(x: Data) = x match { - case NUM(0) => false - case _ => true - } - - def normalize(x: Data): Data = x match { - case CONS(SYM("def"), - CONS(CONS(SYM(name), args), CONS(body, CONS(expr, NIL())))) => - normalize(list(SYM("def"), - SYM(name), list(SYM("lambda"), args, body), expr)) - case CONS(SYM("cond"), CONS(CONS(SYM("else"), CONS(expr, NIL())),NIL())) => - normalize(expr) - case CONS(SYM("cond"), CONS(CONS(test, CONS(expr, NIL())), rest)) => - normalize(list(SYM("if"), test, expr, CONS(SYM("cond"), rest))) - case CONS(h, t) => CONS(normalize(h), normalize(t)) - case _ => x - } - - def eval(x: Data, env: Environment): Data = { - val prevexp = curexp; - curexp = x; - if (trace) { - for (x <- range(1, indent)) Console.print(" "); - Console.println("===> " + x); - indent = indent + 1; - } - val result = eval1(x, env); - if (trace) { - indent = indent - 1; - for (x <- range(1, indent)) Console.print(" "); - Console.println("<=== " + result); - } - curexp = prevexp; - result - } - - def eval1(x: Data, env: Environment): Data = x match { - case SYM(name) => - env lookup name - case CONS(SYM("def"), CONS(SYM(name), CONS(y, CONS(z, NIL())))) => - eval(z, env.extendRec(name, (env1 => eval(y, env1)))) - case CONS(SYM("val"), CONS(SYM(name), CONS(y, CONS(z, NIL())))) => - eval(z, env.extend(name, eval(y, env))) - case CONS(SYM("lambda"), CONS(params, CONS(y, NIL()))) => - mkLambda(params, y, env) - case CONS(SYM("if"), CONS(c, CONS(t, CONS(e, NIL())))) => - if (toBoolean(eval(c, env))) eval(t, env) else eval(e, env) - case CONS(SYM("quote"), CONS(x, NIL())) => - x - case CONS(y, xs) => - apply(eval(y, env), toList(xs) map (x => eval(x, env))) - case NUM(_) => x - case STR(_) => x - case FUN(_) => x - case _ => - lispError("illegal term") - } - - def apply(fn: Data, args: List[Data]): Data = fn match { - case FUN(f) => f(args); - case _ => lispError("application of non-function: " + fn); - } - - def mkLambda(params: Data, expr: Data, env: Environment): Data = { - - def extendEnv(env: Environment, - ps: List[String], args: List[Data]): Environment = - (ps, args) match { - case (List(), List()) => - env - case (p :: ps1, arg :: args1) => - extendEnv(env.extend(p, arg), ps1, args1) - case _ => - lispError("wrong number of arguments") - } - - val ps: List[String] = toList(params) map { - case SYM(name) => name - case _ => sys.error("illegal parameter list"); - } - - FUN(args => eval(expr, extendEnv(env, ps, args))) - } - - val globalEnv = EmptyEnvironment - .extend("=", FUN({ - case List(NUM(arg1),NUM(arg2)) => NUM(if (arg1 == arg2) 1 else 0) - case List(STR(arg1),STR(arg2)) => NUM(if (arg1 == arg2) 1 else 0)})) - .extend("+", FUN({ - case List(NUM(arg1),NUM(arg2)) => NUM(arg1 + arg2) - case List(STR(arg1),STR(arg2)) => STR(arg1 + arg2)})) - .extend("-", FUN({ - case List(NUM(arg1),NUM(arg2)) => NUM(arg1 - arg2)})) - .extend("*", FUN({ - case List(NUM(arg1),NUM(arg2)) => NUM(arg1 * arg2)})) - .extend("/", FUN({ - case List(NUM(arg1),NUM(arg2)) => NUM(arg1 / arg2)})) - .extend("car", FUN({ - case List(CONS(x, xs)) => x})) - .extend("cdr", FUN({ - case List(CONS(x, xs)) => xs})) - .extend("null?", FUN({ - case List(NIL()) => NUM(1) - case _ => NUM(0)})) - .extend("cons", FUN({ - case List(x, y) => CONS(x, y)})); - - def evaluate(x: Data): Data = eval(normalize(x), globalEnv); - def evaluate(s: String): Data = evaluate(string2lisp(s)); - - def string2lisp(s: String): Data = { - val it = new LispTokenizer(s); - def parseExpr(token: String): Data = { - if (token == "(") parseList - else if (token == ")") sys.error("unbalanced parentheses") - else if ('0' <= token.charAt(0) && token.charAt(0) <= '9') - NUM(token.toInt) - else if (token.charAt(0) == '\"' && token.charAt(token.length()-1)=='\"') - STR(token.substring(1,token.length() - 1)) - else SYM(token) - } - def parseList: Data = { - val token = it.next; - if (token == ")") NIL() else CONS(parseExpr(token), parseList) - } - parseExpr(it.next) - } - - def lisp2string(d: Data): String = d.toString(); -} - -//############################################################################ -// Lisp Implementation Using Any - -object LispAny extends Lisp { - - import List._; - - type Data = Any; - - case class Lambda(f: List[Data] => Data); - - var curexp: Data = null; - var trace: Boolean = false; - var indent: Int = 0; - - def lispError[a](msg: String): a = - sys.error("error: " + msg + "\n" + curexp); - - trait Environment { - def lookup(n: String): Data; - def extendRec(name: String, expr: Environment => Data) = - new Environment { - def lookup(n: String): Data = - if (n == name) expr(this) else Environment.this.lookup(n); - } - def extend(name: String, v: Data) = extendRec(name, (env1 => v)); - } - val EmptyEnvironment = new Environment { - def lookup(n: String): Data = lispError("undefined: " + n); - } - - def asList(x: Data): List[Data] = x match { - case y: List[_] => y - case _ => lispError("malformed list: " + x) - } - - def asInt(x: Data): Int = x match { - case y: Int => y - case _ => lispError("not an integer: " + x) - } - - def asString(x: Data): String = x match { - case y: String => y - case _ => lispError("not a string: " + x) - } - - def asBoolean(x: Data): Boolean = x != 0 - - def normalize(x: Data): Data = x match { - case 'and :: x :: y :: Nil => - normalize('if :: x :: y :: 0 :: Nil) - case 'or :: x :: y :: Nil => - normalize('if :: x :: 1 :: y :: Nil) - case 'def :: (name :: args) :: body :: expr :: Nil => - normalize('def :: name :: ('lambda :: args :: body :: Nil) :: expr :: Nil) - case 'cond :: ('else :: expr :: Nil) :: rest => - normalize(expr); - case 'cond :: (test :: expr :: Nil) :: rest => - normalize('if :: test :: expr :: ('cond :: rest) :: Nil) - case 'cond :: 'else :: expr :: Nil => - normalize(expr) - case h :: t => - normalize(h) :: asList(normalize(t)) - case _ => - x - } - - def eval(x: Data, env: Environment): Data = { - val prevexp = curexp; - curexp = x; - if (trace) { - for (x <- range(1, indent)) Console.print(" "); - Console.println("===> " + x); - indent += 1; - } - val result = eval1(x, env); - if (trace) { - indent -= 1; - for (x <- range(1, indent)) Console.print(" "); - Console.println("<=== " + result); - } - curexp = prevexp; - result - } - - def eval1(x: Data, env: Environment): Data = x match { - case Symbol(name) => - env lookup name - case 'def :: Symbol(name) :: y :: z :: Nil => - eval(z, env.extendRec(name, (env1 => eval(y, env1)))) - case 'val :: Symbol(name) :: y :: z :: Nil => - eval(z, env.extend(name, eval(y, env))) - case 'lambda :: params :: y :: Nil => - mkLambda(params, y, env) - case 'if :: c :: y :: z :: Nil => - if (asBoolean(eval(c, env))) eval(y, env) else eval(z, env) - case 'quote :: y :: Nil => - y - case y :: z => - apply(eval(y, env), z map (x => eval(x, env))) - case Lambda(_) => x - case y: String => x - case y: Int => x - case y => lispError("illegal term") - } - - def lisp2string(x: Data): String = x match { - case Symbol(name) => name - case Nil => "()" - case y :: ys => - def list2string(xs: List[Data]): String = xs match { - case List() => "" - case y :: ys => " " + lisp2string(y) + list2string(ys) - } - "(" + lisp2string(y) + list2string(ys) + ")" - case _ => if (x.isInstanceOf[String]) "\"" + x + "\""; else x.toString() - } - - def apply(fn: Data, args: List[Data]): Data = fn match { - case Lambda(f) => f(args); - case _ => lispError("application of non-function: " + fn + " to " + args); - } - - def mkLambda(params: Data, expr: Data, env: Environment): Data = { - - def extendEnv(env: Environment, - ps: List[String], args: List[Data]): Environment = - (ps, args) match { - case (List(), List()) => - env - case (p :: ps1, arg :: args1) => - extendEnv(env.extend(p, arg), ps1, args1) - case _ => - lispError("wrong number of arguments") - } - - val ps: List[String] = asList(params) map { - case Symbol(name) => name - case _ => sys.error("illegal parameter list"); - } - - Lambda(args => eval(expr, extendEnv(env, ps, args))) - } - - val globalEnv = EmptyEnvironment - .extend("=", Lambda{ - case List(arg1, arg2) => if(arg1 == arg2) 1 else 0}) - .extend("+", Lambda{ - case List(arg1: Int, arg2: Int) => arg1 + arg2 - case List(arg1: String, arg2: String) => arg1 + arg2}) - .extend("-", Lambda{ - case List(arg1: Int, arg2: Int) => arg1 - arg2}) - .extend("*", Lambda{ - case List(arg1: Int, arg2: Int) => arg1 * arg2}) - .extend("/", Lambda{ - case List(arg1: Int, arg2: Int) => arg1 / arg2}) - .extend("nil", Nil) - .extend("cons", Lambda{ - case List(arg1, arg2) => arg1 :: asList(arg2)}) - .extend("car", Lambda{ - case List(x :: xs) => x}) - .extend("cdr", Lambda{ - case List(x :: xs) => xs}) - .extend("null?", Lambda{ - case List(Nil) => 1 - case _ => 0}); - - def evaluate(x: Data): Data = eval(normalize(x), globalEnv); - def evaluate(s: String): Data = evaluate(string2lisp(s)); - - def string2lisp(s: String): Data = { - val it = new LispTokenizer(s); - def parseExpr(token: String): Data = { - if (token == "(") parseList - else if (token == ")") sys.error("unbalanced parentheses") - //else if (Character.isDigit(token.charAt(0))) - else if (token.charAt(0).isDigit) - token.toInt - else if (token.charAt(0) == '\"' && token.charAt(token.length()-1)=='\"') - token.substring(1,token.length() - 1) - else Symbol(token) - } - def parseList: List[Data] = { - val token = it.next; - if (token == ")") Nil else parseExpr(token) :: parseList - } - parseExpr(it.next) - } -} - -//############################################################################ -// List User - -class LispUser(lisp: Lisp) { - - import lisp._; - - def evaluate(s: String) = lisp2string(lisp.evaluate(s)); - - def run = { - - Console.println(string2lisp("(lambda (x) (+ (* x x) 1))").asInstanceOf[AnyRef]); - Console.println(lisp2string(string2lisp("(lambda (x) (+ (* x x) 1))"))); - Console.println; - - Console.println("( '(1 2 3)) = " + evaluate(" (quote(1 2 3))")); - Console.println("(car '(1 2 3)) = " + evaluate("(car (quote(1 2 3)))")); - Console.println("(cdr '(1 2 3)) = " + evaluate("(cdr (quote(1 2 3)))")); - Console.println("(null? '(2 3)) = " + evaluate("(null? (quote(2 3)))")); - Console.println("(null? '()) = " + evaluate("(null? (quote()))")); - Console.println; - - Console.println("faculty(10) = " + evaluate( - "(def (faculty n) " + - "(if (= n 0) " + - "1 " + - "(* n (faculty (- n 1)))) " + - "(faculty 10))")); - Console.println("faculty(10) = " + evaluate( - "(def (faculty n) " + - "(cond " + - "((= n 0) 1) " + - "(else (* n (faculty (- n 1))))) " + - "(faculty 10))")); - Console.println("foobar = " + evaluate( - "(def (foo n) " + - "(cond " + - "((= n 0) \"a\")" + - "((= n 1) \"b\")" + - "((= (/ n 2) 1) " + - "(cond " + - "((= n 2) \"c\")" + - "(else \"d\")))" + - "(else " + - "(def (bar m) " + - "(cond " + - "((= m 0) \"e\")" + - "((= m 1) \"f\")" + - "(else \"z\"))" + - "(bar (- n 4)))))" + - "(val nil (quote ())" + - "(val v1 (foo 0) " + - "(val v2 (+ (foo 1) (foo 2)) " + - "(val v3 (+ (+ (foo 3) (foo 4)) (foo 5)) " + - "(val v4 (foo 6) " + - "(cons v1 (cons v2 (cons v3 (cons v4 nil))))))))))")); - Console.println; - } -} - -//############################################################################ -// Main - -object Test { - def main(args: Array[String]) { - new LispUser(LispCaseClasses).run; - new LispUser(LispAny).run; - () - } -} - -//############################################################################ diff --git a/test/disabled/run/script-positions.scala b/test/disabled/run/script-positions.scala deleted file mode 100644 index 2c80d550c0..0000000000 --- a/test/disabled/run/script-positions.scala +++ /dev/null @@ -1,86 +0,0 @@ -import scala.tools.nsc._ -import util.stringFromStream - -// Testing "scripts" without the platform delights which accompany actual scripts. -object Scripts { - - val test1 = -"""#!/bin/sh - exec scala $0 $@ -!# - -println("statement 1") -println("statement 2".thisisborked) -println("statement 3") -""" - - val output1 = -"""thisisborked.scala:6: error: value thisisborked is not a member of java.lang.String -println("statement 2".thisisborked) - ^ -one error found""" - val test2 = -"""#!scala -// foo -// bar -!# - -val x = "line 6" -val y = "line 7" -val z "line 8"""" - - val output2 = -"""bob.scala:8: error: '=' expected but string literal found. -val z "line 8" - ^ -bob.scala:8: error: illegal start of simple expression -val z "line 8" - ^ -two errors found""" -} - -object Test { - import Scripts._ - - def settings = new GenericRunnerSettings(println _) - settings.nocompdaemon.value = true - - def runScript(code: String): String = - stringFromStream(stream => - Console.withOut(stream) { - Console.withErr(stream) { - ScriptRunner.runCommand(settings, code, Nil) - } - } - ) - - val tests: List[(String, String)] = List( - test1 -> output1, - test2 -> output2 - ) - // def lines(s: String) = s split """\r\n|\r|\n""" toList - def lines(s: String) = s split "\\n" toList - - // strip the random temp filename from error msgs - def stripFilename(s: String) = (s indexOf ".scala:") match { - case -1 => s - case idx => s drop (idx + 7) - } - def toLines(text: String) = lines(text) map stripFilename - - def main(args: Array[String]): Unit = { - for ((code, expected) <- tests) { - val out = toLines(runScript(code)) - val exp = toLines(expected) - val nomatch = out zip exp filter { case (x, y) => x != y } - val success = out.size == exp.size && nomatch.isEmpty - - assert( - success, - "Output doesn't match expected:\n" + - "Expected:\n" + expected + - "Actual:\n" + out.mkString("\n") - ) - } - } -} diff --git a/test/disabled/run/syncchannel.check b/test/disabled/run/syncchannel.check deleted file mode 100644 index d81cc0710e..0000000000 --- a/test/disabled/run/syncchannel.check +++ /dev/null @@ -1 +0,0 @@ -42 diff --git a/test/disabled/run/syncchannel.scala b/test/disabled/run/syncchannel.scala deleted file mode 100644 index 66ae47fd0a..0000000000 --- a/test/disabled/run/syncchannel.scala +++ /dev/null @@ -1,6 +0,0 @@ -object Test { - def main(args: Array[String]) { - val c = new scala.concurrent.SyncChannel[Int] - scala.concurrent.ops.par({ c.write(42) }, { println(c.read) }) - } -} diff --git a/test/disabled/run/t2886.scala b/test/disabled/run/t2886.scala deleted file mode 100644 index eb392f0c58..0000000000 --- a/test/disabled/run/t2886.scala +++ /dev/null @@ -1,7 +0,0 @@ -object Test { - def test(name: String, address: String) = null - def main(args: Array[String]) = { - val tree = scala.reflect.Code.lift((x:String) => test(address=x,name=x)).tree - println(tree) - } -} diff --git a/test/disabled/run/t2946/Parsers.scala b/test/disabled/run/t2946/Parsers.scala deleted file mode 100644 index c0961034c4..0000000000 --- a/test/disabled/run/t2946/Parsers.scala +++ /dev/null @@ -1,4 +0,0 @@ -class Parser { - def parse(t: Any): Unit = { - } -} diff --git a/test/disabled/run/t2946/ResponseCommon.scala b/test/disabled/run/t2946/ResponseCommon.scala deleted file mode 100644 index fa9d8acccb..0000000000 --- a/test/disabled/run/t2946/ResponseCommon.scala +++ /dev/null @@ -1,14 +0,0 @@ -trait ResponseCommon extends Parser { - private[this] var paramsParser: Parser = null - def withParamsParser(parser: Parser) = {paramsParser = parser; this} - - class Foo { - println(paramsParser) - } - - override abstract def parse(t: Any): Unit = t match { - case ("params", value: List[_]) => value.foreach {paramsParser.parse(_)} - case _ => super.parse(t) - } -} - diff --git a/test/disabled/run/t2946/Test.scala b/test/disabled/run/t2946/Test.scala deleted file mode 100644 index e9d9896a0e..0000000000 --- a/test/disabled/run/t2946/Test.scala +++ /dev/null @@ -1,7 +0,0 @@ -class Test extends Parser with ResponseCommon - -object Test { - def main(args: Array[String]) { - new Test - } -} diff --git a/test/disabled/run/t4146.scala b/test/disabled/run/t4146.scala deleted file mode 100644 index a17de50ee1..0000000000 --- a/test/disabled/run/t4146.scala +++ /dev/null @@ -1,7 +0,0 @@ -object bob extends App { - var name = "Bob" -} - -object Test extends App { - assert(bob.name == "Bob") -} diff --git a/test/disabled/run/t4279.scala b/test/disabled/run/t4279.scala deleted file mode 100644 index 62cc436302..0000000000 --- a/test/disabled/run/t4279.scala +++ /dev/null @@ -1,38 +0,0 @@ -import scala.tools.partest._ - -// Attempting to verify slice isn't 100,000x slower -// with views than non-views. -class Runner(num: Int, reps: Int) extends TestUtil { - var dummy = 0 - val range = Array.range(0, num) - - def iteratorSlice = { - def it = range.iterator.slice(num - 2, num) - for (i <- 1 to reps) - it foreach (dummy = _) - } - def viewSlice = { - val view = range.view.slice(num - 2, num) - for (i <- 1 to reps) - view foreach (dummy = _) - } - def straightSlice = { - val xs = range.slice(num - 2, num) - for (i <- 1 to reps) - xs foreach (dummy = _) - } - def run(multiple: Double) = { - verifySpeed(straightSlice, iteratorSlice, multiple) - verifySpeed(straightSlice, viewSlice, multiple) - } -} - -object Test { - def main(args: Array[String]): Unit = { - // warmup - { val r = new Runner(1000000, 10) ; r.straightSlice ; r.iteratorSlice ; r.viewSlice } - - new Runner(10000000, 10) run 500 - new Runner(10000000, 50) run 300 - } -} diff --git a/test/disabled/run/t4532.check b/test/disabled/run/t4532.check deleted file mode 100644 index 47a9809248..0000000000 --- a/test/disabled/run/t4532.check +++ /dev/null @@ -1,15 +0,0 @@ -Type in expressions to have them evaluated. -Type :help for more information. - -scala> - -scala> object Bippy { class Dingus ; object Bop } -defined module Bippy - -scala> :javap Bippy.Dingus -Compiled from "<console>"public class Bippy$Dingus extends java.lang.Object implements scala.ScalaObject{ public Bippy$Dingus();} -scala> :javap Bippy.Bop -Compiled from "<console>"public final class Bippy$Bop$ extends java.lang.Object implements scala.ScalaObject{ public static final Bippy$Bop$ MODULE$; public static {}; public Bippy$Bop$();} -scala> - -scala> diff --git a/test/disabled/run/t4532.scala b/test/disabled/run/t4532.scala deleted file mode 100644 index 0dabd2dca4..0000000000 --- a/test/disabled/run/t4532.scala +++ /dev/null @@ -1,34 +0,0 @@ -import scala.tools.partest.ReplTest -import scala.tools.util.Javap - -object Test extends ReplTest { - - // ugh, windows - def expectedOutput = -"""Type in expressions to have them evaluated. -Type :help for more information. - -scala> - -scala> object Bippy { class Dingus ; object Bop } -defined module Bippy - -scala> :javap Bippy.Dingus -Compiled from "<console>"public class Bippy$Dingus extends java.lang.Object implements scala.ScalaObject{ public Bippy$Dingus();} -scala> :javap Bippy.Bop -Compiled from "<console>"public final class Bippy$Bop$ extends java.lang.Object implements scala.ScalaObject{ public static final Bippy$Bop$ MODULE$; public static {}; public Bippy$Bop$();} -scala> - -scala> -""" - - override def eval() = - if (Javap.isAvailable()) super.eval() - else expectedOutput.lines - - def code = """ - |object Bippy { class Dingus ; object Bop } - |:javap Bippy.Dingus - |:javap Bippy.Bop - """.stripMargin -} diff --git a/test/disabled/run/t4602.scala b/test/disabled/run/t4602.scala deleted file mode 100644 index 655c350497..0000000000 --- a/test/disabled/run/t4602.scala +++ /dev/null @@ -1,57 +0,0 @@ -import java.io.{File, FileOutputStream, BufferedOutputStream, FileWriter, ByteArrayOutputStream, PrintStream} -import tools.nsc.{CompileClient, CompileServer} -import java.util.concurrent.{CountDownLatch, TimeUnit} - -object Test extends App { - val startupLatch = new CountDownLatch(1) - // we have to explicitly launch our server because when the client launches a server it uses - // the "scala" shell command meaning whatever version of scala (and whatever version of libraries) - // happens to be in the path gets used - val t = new Thread(new Runnable { - def run() = { - CompileServer.execute(() => startupLatch.countDown(), Array[String]()) - } - }) - t setDaemon true - t.start() - if (!startupLatch.await(2, TimeUnit.MINUTES)) - sys error "Timeout waiting for server to start" - - val baos = new ByteArrayOutputStream() - val ps = new PrintStream(baos) - - val outdir = scala.reflect.io.Directory(sys.props("partest.output")) - - val dirNameAndPath = (1 to 2).toList map {number => - val name = s"Hello${number}" - val dir = outdir / number.toString - (dir, name, dir / s"${name}.scala") - } - - dirNameAndPath foreach {case (dir, name, path) => - dir.createDirectory() - val file = path.jfile - val out = new FileWriter(file) - try - out.write(s"object ${name}\n") - finally - out.close - } - - val success = (scala.Console withOut ps) { - dirNameAndPath foreach {case (path, name, _) => - CompileClient.process(Array("-verbose", "-current-dir", path.toString, s"${name}.scala")) - } - - CompileClient.process(Array("-shutdown")) - } - - // now make sure we got success and the correct normalized paths - val msg = baos.toString() - - assert(success, s"got a failure. Full results were: \n${msg}") - dirNameAndPath foreach {case (_, _, path) => - val expected = s"Input files after normalizing paths: ${path}" - assert(msg contains expected, s"could not find '${expected}' in output. Full results were: \n${msg}") - } -} diff --git a/test/disabled/run/t6987.check b/test/disabled/run/t6987.check deleted file mode 100644 index 86fc96c679..0000000000 --- a/test/disabled/run/t6987.check +++ /dev/null @@ -1 +0,0 @@ -got successful verbose results! diff --git a/test/disabled/run/t6987.scala b/test/disabled/run/t6987.scala deleted file mode 100644 index 37e91d61ae..0000000000 --- a/test/disabled/run/t6987.scala +++ /dev/null @@ -1,43 +0,0 @@ -import java.io._ -import tools.nsc.{CompileClient, CompileServer} -import java.util.concurrent.{CountDownLatch, TimeUnit} - -object Test extends App { - val startupLatch = new CountDownLatch(1) - // we have to explicitly launch our server because when the client launches a server it uses - // the "scala" shell command meaning whatever version of scala (and whatever version of libraries) - // happens to be in the path gets used - val t = new Thread(new Runnable { - def run() = { - CompileServer.execute(() => startupLatch.countDown(), Array[String]()) - } - }) - t setDaemon true - t.start() - if (!startupLatch.await(2, TimeUnit.MINUTES)) - sys error "Timeout waiting for server to start" - - val baos = new ByteArrayOutputStream() - val ps = new PrintStream(baos) - - val success = (scala.Console withOut ps) { - // shut down the server via the client using the verbose flag - CompileClient.process(Array("-shutdown", "-verbose")) - } - - // now make sure we got success and a verbose result - val msg = baos.toString() - - if (success) { - if (msg contains "Settings after normalizing paths") { - println("got successful verbose results!") - } else { - println("did not get the string expected, full results were:") - println(msg) - } - } else { - println("got a failure. Full results were:") - println(msg) - } - scala.Console.flush -} diff --git a/test/disabled/run/t7843-jsr223-service.check b/test/disabled/run/t7843-jsr223-service.check deleted file mode 100644 index a668df3567..0000000000 --- a/test/disabled/run/t7843-jsr223-service.check +++ /dev/null @@ -1,2 +0,0 @@ -n: Object = 10 -12345678910 diff --git a/test/disabled/run/t7843-jsr223-service.scala b/test/disabled/run/t7843-jsr223-service.scala deleted file mode 100644 index 3c853878ba..0000000000 --- a/test/disabled/run/t7843-jsr223-service.scala +++ /dev/null @@ -1,6 +0,0 @@ -object Test extends App { - val m = new javax.script.ScriptEngineManager() - val engine = m.getEngineByName("scala") - engine put ("n", 10) - engine eval "1 to n.asInstanceOf[Int] foreach print" -} diff --git a/test/disabled/run/t7933.check b/test/disabled/run/t7933.check deleted file mode 100644 index 317e9677c3..0000000000 --- a/test/disabled/run/t7933.check +++ /dev/null @@ -1,2 +0,0 @@ -hello -hello diff --git a/test/disabled/run/t7933.scala b/test/disabled/run/t7933.scala deleted file mode 100644 index 58e39dd384..0000000000 --- a/test/disabled/run/t7933.scala +++ /dev/null @@ -1,9 +0,0 @@ -object Test extends App { - val m = new javax.script.ScriptEngineManager() - val engine = m.getEngineByName("scala") - val res2 = engine.asInstanceOf[javax.script.Compilable] - res2 compile "8" eval() - val res5 = res2 compile """println("hello") ; 8""" - res5 eval() - res5 eval() -} diff --git a/test/disabled/run/t8946.scala b/test/disabled/run/t8946.scala deleted file mode 100644 index a248a20501..0000000000 --- a/test/disabled/run/t8946.scala +++ /dev/null @@ -1,29 +0,0 @@ -// Tests to assert that references to threads are not strongly held when scala-reflection is used inside of them. -object Test { - import scala.ref.WeakReference - - def forceGc() = { - var obj = new Object - val ref = new WeakReference(obj) - obj = null; - while(ref.get.nonEmpty) - Array.ofDim[Byte](16 * 1024 * 1024) - } - - def main(args: Array[String]): Unit = { - val threads = for (i <- (1 to 16)) yield { - val t = new Thread { - override def run(): Unit = { - import reflect.runtime.universe._ - typeOf[List[String]] <:< typeOf[Seq[_]] - } - } - t.start() - t.join() - WeakReference(t) - } - forceGc() - val nonGCdThreads = threads.filter(_.get.nonEmpty).length - assert(nonGCdThreads == 0, s"${nonGCdThreads} threads were retained; expected 0.") - } -} |