aboutsummaryrefslogtreecommitdiff
path: root/tests/disabled/macro/pos/t8013/inpervolator_1.scala
diff options
context:
space:
mode:
authorDmitry Petrashko <dmitry.petrashko@gmail.com>2015-06-15 18:19:06 +0200
committerDmitry Petrashko <dmitry.petrashko@gmail.com>2015-06-15 18:19:06 +0200
commit75d5eee8c7f4d83dd64bca989027925e5ff081b6 (patch)
treef03fabc0434f1543bf0420a7602ee5b1ffdeb9ce /tests/disabled/macro/pos/t8013/inpervolator_1.scala
parenta9863ab9b947180f04fd2302e86a4410dc27934b (diff)
downloaddotty-75d5eee8c7f4d83dd64bca989027925e5ff081b6.tar.gz
dotty-75d5eee8c7f4d83dd64bca989027925e5ff081b6.tar.bz2
dotty-75d5eee8c7f4d83dd64bca989027925e5ff081b6.zip
Move tests that have " macro" or "reify" to disabled.
Diffstat (limited to 'tests/disabled/macro/pos/t8013/inpervolator_1.scala')
-rw-r--r--tests/disabled/macro/pos/t8013/inpervolator_1.scala33
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/disabled/macro/pos/t8013/inpervolator_1.scala b/tests/disabled/macro/pos/t8013/inpervolator_1.scala
new file mode 100644
index 000000000..612e1d727
--- /dev/null
+++ b/tests/disabled/macro/pos/t8013/inpervolator_1.scala
@@ -0,0 +1,33 @@
+
+package t8013
+
+// perverse macro to confuse Xlint
+
+import scala.language.experimental.macros
+import scala.reflect.macros.blackbox.Context
+
+object Perverse {
+
+ implicit class Impervolator(sc: StringContext) {
+ def p(args: Any*): String = macro pImpl
+ }
+
+ // turn a nice interpolation into something that looks
+ // nothing like an interpolation or anything we might
+ // recognize, but which includes a "$id" in an apply.
+ def pImpl(c: Context)(args: c.Expr[Any]*): c.Expr[String] = {
+ import c.universe._
+ val macroPos = c.macroApplication.pos
+ val text = macroPos.source.lineToString(macroPos.line - 1) substring macroPos.column
+ val tt = Literal(Constant(text))
+ val tree = q"t8013.Perverse.pervert($tt)"
+ c.Expr[String](tree)
+ }
+
+ // identity doesn't seem very perverse in this context
+ //def pervert(text: String): String = text
+ def pervert(text: String): String = {
+ Console println s"Perverting [$text]"
+ text
+ }
+}