rt_test_task: with correct=TRUE, now also check class first

brry · brry · commit b14dfc6db5f5 · 2023-09-28T13:48:31.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: codeoceanR
 Title: Test R tasks with CodeOcean at HPI
-Version: 0.8.49
-Date: 2023-05-22
+Version: 0.8.50
+Date: 2023-09-28
 Authors@R: 
     person(given = "Berry",
            family = "Boessenkool",
diff --git a/R/rt_test_task.R b/R/rt_test_task.R
@@ -120,6 +120,8 @@ if(correct && !is.function(value))
 	  				toString(class(object)), "'", de=" haben", ".")
 	  return(rt_env(fail=tnumber))
 	  }
+	if(!rt_has_class(object, class(value), name=n, intnum=intnum))
+			return(rt_env(fail=tnumber))
 	if(!isTRUE(all.equal(sort(object),sort(value))))
 		{
 		toString2 <- function(x)

Original file line number	Diff line number	Diff line change
`@@ -120,6 +120,8 @@ if(correct && !is.function(value))`
`120`	`120`	`toString(class(object)), "'", de=" haben", ".")`
`121`	`121`	`return(rt_env(fail=tnumber))`
`122`	`122`	`}`
	`123`	`+ if(!rt_has_class(object, class(value), name=n, intnum=intnum))`
	`124`	`+ return(rt_env(fail=tnumber))`
`123`	`125`	`if(!isTRUE(all.equal(sort(object),sort(value))))`
`124`	`126`	`{`
`125`	`127`	`toString2 <- function(x)`