[gtksourceview] Sweave: Testfile

[Sébastien Wilmet <swilmet src gnome org>]

commit 2cada6913858b788a831356da848925a1edf012d
Author: Mathias Moser <matmoser wu ac at>
Date:   Sun Apr 20 21:17:24 2014 +0200

    Sweave: Testfile
    
    https://bugzilla.gnome.org/show_bug.cgi?id=728614

 tests/testfiles.sh |   18 ++++++++++++++++++
 1 files changed, 18 insertions(+), 0 deletions(-)
---
diff --git a/tests/testfiles.sh b/tests/testfiles.sh
index 1f7c30a..6d6eb69 100755
--- a/tests/testfiles.sh
+++ b/tests/testfiles.sh
@@ -1077,3 +1077,21 @@ cat > $dir/file.json <<EOFEOF
        }
 }
 EOFEOF
+
+cat > $dir/file.Rnw <<EOFEOF
+\documentclass{article}
+\begin{document}
+Hi there!
+<<hello>>=
+    # Say hello
+    hello <- setClass("hello", slots = c(a="character", b="character"))
+    sayHi <- hello(a="Hello", b="World")
+    paste(sayHi a, sayHi b)
+    rm(hello)
+
+    hello <- list()
+    hello$a <- sayHi a
+@
+Hi again!
+\end{document}
+EOFEOF