Added tests for r language argument scope with 3 arguments (#3066)

Both these failed before #3064

Author: AndreasArvidsson

data/fixtures/scopes/r/argument/argument.actual.singleLine5.scope

@@ -0,0 +1,53 @@
+func(aaa, bbb, ccc)
+---
+
+[#1 Content] =
+[#1 Domain] = 0:5-0:8
+       >---<
+0| func(aaa, bbb, ccc)
+
+[#1 Removal] = 0:5-0:10
+       >-----<
+0| func(aaa, bbb, ccc)
+
+[#1 Trailing delimiter] = 0:8-0:10
+          >--<
+0| func(aaa, bbb, ccc)
+
+[#1 Insertion delimiter] = ", "
+
+
+[#2 Content] =
+[#2 Domain] = 0:10-0:13
+            >---<
+0| func(aaa, bbb, ccc)
+
+[#2 Removal] = 0:10-0:15
+            >-----<
+0| func(aaa, bbb, ccc)
+
+[#2 Leading delimiter] = 0:8-0:10
+          >--<
+0| func(aaa, bbb, ccc)
+
+[#2 Trailing delimiter] = 0:13-0:15
+               >--<
+0| func(aaa, bbb, ccc)
+
+[#2 Insertion delimiter] = ", "
+
+
+[#3 Content] =
+[#3 Domain] = 0:15-0:18
+                 >---<
+0| func(aaa, bbb, ccc)
+
+[#3 Removal] = 0:13-0:18
+               >-----<
+0| func(aaa, bbb, ccc)
+
+[#3 Leading delimiter] = 0:13-0:15
+               >--<
+0| func(aaa, bbb, ccc)
+
+[#3 Insertion delimiter] = ", "

data/fixtures/scopes/r/argument/argument.formal.singleLine2.scope

@@ -0,0 +1,53 @@
+foo <- function(aaa, bbb, ccc) {}
+---
+
+[#1 Content] =
+[#1 Domain] = 0:16-0:19
+                  >---<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#1 Removal] = 0:16-0:21
+                  >-----<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#1 Trailing delimiter] = 0:19-0:21
+                     >--<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#1 Insertion delimiter] = ", "
+
+
+[#2 Content] =
+[#2 Domain] = 0:21-0:24
+                       >---<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#2 Removal] = 0:21-0:26
+                       >-----<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#2 Leading delimiter] = 0:19-0:21
+                     >--<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#2 Trailing delimiter] = 0:24-0:26
+                          >--<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#2 Insertion delimiter] = ", "
+
+
+[#3 Content] =
+[#3 Domain] = 0:26-0:29
+                            >---<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#3 Removal] = 0:24-0:29
+                          >-----<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#3 Leading delimiter] = 0:24-0:26
+                          >--<
+0| foo <- function(aaa, bbb, ccc) {}
+
+[#3 Insertion delimiter] = ", "