basic time limit assertion #15

pkg/DESCRIPTION

@@ -6,7 +6,6 @@ Date: 2015-04-22
 Author: Revolution Analytics
 Imports: digest, functional, testthat, pryr, microbenchmark, dplyr, bitops
 Suggests: covr
-Collate: quickcheck.R generators.R
 Maintainer: Revolution Analytics <[email protected]>
 URL: https://github.com/RevolutionAnalytics/quickcheck
 Description: Provides functions to test and reproduce failures of assertions on random data. Also provides a variety of random data generators.

pkg/NAMESPACE

@@ -27,6 +27,7 @@ export(qc.option)
 export(default)
 export(`%||%`)
 export(forall)
+export(assert.time.limit)
 S3method(coverage, character)
 S3method(print, TestSet)
 importFrom(functional, Curry)

pkg/R/performance.R

@@ -0,0 +1,22 @@
+# Copyright 2015 Revolution Analytics
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+
+assert.time.limit =
+  function(expr, cpu = Inf, elapsed = Inf) {
+    setTimeLimit(cpu, elapsed, TRUE)
+    retval = eval.parent(expr)
+    setTimeLimit(Inf, Inf, TRUE)
+    TRUE}